Bonsoir à tous
J'ai ceci qui fonctionne a l'initialize:
Dim i&, j&, Y As Boolean
ComboBox1.Clear
For i = 1 To Range('B2').End(xlDown).Row
If ComboBox1.ListCount = 0 Then ComboBox1.AddItem Range('B' & i).Value
Y = False
For j = 0 To ComboBox1.ListCount - 1
If Range('B' & i).Value = ComboBox1.List(j) Then
Y = True
End If
Next
If Not Y Then ComboBox1.AddItem Range('B' & i).Value
Next
La question: Pourquoi si je met des chiffres ils n'enlèvent pas les doublons et il les enlèvent si c'est des noms ?
Je viens de trouvé que si je mets des .text aulieu de .value ca fonctionne!!
Je demande quand-même des infos si possible ...merci
Merci beaucoup
Temjeh
Message édité par: temjeh, à: 16/05/2006 02:12
J'ai ceci qui fonctionne a l'initialize:
Dim i&, j&, Y As Boolean
ComboBox1.Clear
For i = 1 To Range('B2').End(xlDown).Row
If ComboBox1.ListCount = 0 Then ComboBox1.AddItem Range('B' & i).Value
Y = False
For j = 0 To ComboBox1.ListCount - 1
If Range('B' & i).Value = ComboBox1.List(j) Then
Y = True
End If
Next
If Not Y Then ComboBox1.AddItem Range('B' & i).Value
Next
La question: Pourquoi si je met des chiffres ils n'enlèvent pas les doublons et il les enlèvent si c'est des noms ?
Je viens de trouvé que si je mets des .text aulieu de .value ca fonctionne!!
Je demande quand-même des infos si possible ...merci
Merci beaucoup
Temjeh
Message édité par: temjeh, à: 16/05/2006 02:12