Ajouter valeur du textbox dans combobox

Bonjour, avyrex19263,
tu as toujours la ressource d'une boucle de vérification, mais le plus rapide est ceci :

Private Const CB_FINDSTRINGEXACT As Long = &H158
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

Private Sub Command1_Click()
 Dim tentons As String
 tentons = "toto"
 If SendMessage(Combo1.hwnd, CB_FINDSTRINGEXACT, -1, ByVal tentons) = -1 Then
   Combo1.AddItem tentons
 Else
   MsgBox "deja existant"
 End If
End Sub

Maintenant : J'espère pour toi que tu développes bien sous VB6 (là où tu as "posté"). Pourquoi ? pour ce que jn'ai mis en rouge...
(voilà pourquoi il faut choiisir avec soin son thème...)