Doublons numérique dans combo

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