Calvus
XLDnaute Barbatruc
Bonjour le forum,
Voici un code présent sur le site de Boisgontier, permettant d'avoir une Combobox avec les éléments sans doublon.
Page ici.
Pouvez vous m'expliquer la ligne de code que j'ai mis en évidence ?
Si a(i,1) est différent de vide, alors la clé est vide.....
Comment remplit on les clés alors ?
Et pourtant ça fonctionne.
Quelque chose m'échappe.
Merci et bonne journée.
Voici un code présent sur le site de Boisgontier, permettant d'avoir une Combobox avec les éléments sans doublon.
Page ici.
VB:
Private Sub UserForm_Initialize()
Set f = Sheets("BD")
Set mondico = CreateObject("Scripting.Dictionary")
a = f.Range("A2:A" & f.[A65000].End(xlUp).Row) ' tableau a(n,1) pour rapidité
For i = LBound(a) To UBound(a)
'EXPLICATION DE CETTE LIGNE SVP
If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
Next i
Me.ComboBox1.List = mondico.keys
End SubPouvez vous m'expliquer la ligne de code que j'ai mis en évidence ?
Si a(i,1) est différent de vide, alors la clé est vide.....
Comment remplit on les clés alors ?
Et pourtant ça fonctionne.
Quelque chose m'échappe.
Merci et bonne journée.