Question sur dictionnaire

[Calvus]

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.

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 Sub

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.

 

[gosselien]

Bonjour,

Mes exemples de dictionnaire ne vous dérangeront plus. Je les ai supprimés du site.

JB

Bin pourquoi ? , et je ne les ai jamais critiqués, ils sont excellents, c'est moi qui suis lent de la comprenette , ton site est un des plus documenté qui soit

Merci

 

[Calvus]

Bonjour,

Pourquoi cela ?
Qui était dérangé ?
Bien au contraire, c'est un puits d'informations ce site.
Quel dommage.

 

[Jacky67]

Bonjour,

Mes exemples de dictionnaire ne vous dérangeront plus. Je les ai supprimés du site.

JB

Bonjour JB
Dommage.....
Perso, j'ai beaucoup de respect pour ton travail et je fréquente souvent ton site.
Je ne vois pourtant aucune "critique" ou "dérangement" qui pourrait être blessant dans ce fil.
C'est une décision un peu radicale non ?
Je ne comprends vraiment pas.