Combobox :Problème de doublons

Non, pas du tout

Fais un essai

Sub test()
Mot = "    TOTO    TITI   "
Mot = Trim(Mot)
msgbox "-" & Mot & "-"
end sub

Ok Merci, je vais l'essayer mais ou je doit mettre cette fonction ?(combobox change ou initialize ..)

voici mon code d'alimentation du combo:

Private Sub UserForm_Initialize()

ComboBox2.SetFocus


For i = 3 To Sheets("CD").Cells(3, 26).End(xlDown).Row
Me.ComboBox2 = Sheets("CD").Cells(i, 26)
If Me.ComboBox2.ListIndex = -1 Then
Me.ComboBox2.AddItem Sheets("CD").Cells(i, 26)
End If
Next i

end sub

Merci pour ton suivi.

ca marche parfaitement pour les prochains nouveaux clients ( au sein du bouton OK) mais le problème c'est qu'il y'a des anciens clients déjà enregistré avec l'espace alors ya t-il un moyen de les recuperer sans espace dans le combo en intégrant le TRIM dans le combo.additem ?

Private Sub UserForm_Initialize()

ComboBox2.SetFocus


For i = 3 To Sheets("CD").Cells(3, 26).End(xlDown).Row
Me.ComboBox2 = Sheets("CD").Cells(i, 26)
If Me.ComboBox2.ListIndex = -1 Then
Me.ComboBox2.AddItem Sheets("CD").Cells(i, 26)
End If
Next i

end sub

Merci.

c'est bon je l'ai trouvé :

For i = 3 To Sheets("CD").Cells(3, 26).End(xlDown).Row
Sheets("CD").Cells(i, 26) = Trim(Sheets("CD").Cells(i, 26))

Next

For i = 3 To Sheets("CD").Cells(3, 26).End(xlDown).Row
Me.ComboBox2 = Sheets("CD").Cells(i, 26) ' on se positionne dans le combobox
If Me.ComboBox2.ListIndex = -1 Then ' Existe t-il?
Me.ComboBox2.AddItem Sheets("CD").Cells(i, 26)
End If
Next i

Merci beaucoup pour votre aide :)

j'ai découvert encore le problème suivant:

je veux lorsque le textbox1 est vide et le textbox 2 non vide le EXIT sur le textbox2 me renvoie au textbox1 pour remplissage. j'ai essayé le code suivant mais ca marche pas:


Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then
MsgBox " Borne Min vide !"
Cancel = True
End If
End sub

Merci.