Atiom
XLDnaute Occasionnel
Bonsoir le forum,
Le code ci-dessous récupère les données sans doublons mais ne les affiche pas par l’ordre alphabétique.
Ets-ce que quelqu’un peu m’aider à le compléter svp ? Merci d’avance .
Le code ci-dessous récupère les données sans doublons mais ne les affiche pas par l’ordre alphabétique.
Ets-ce que quelqu’un peu m’aider à le compléter svp ? Merci d’avance .
Code:
Dim Cell As Range
'Supprime les données existantes dans le ComboBox
Me.Champ23.Clear
'Boucle sur les cellules de la plage L2:L9232 pour alimenter le ComboBox
For Each Cell In Worksheets("Annuelles").Range("w2:w9232")
Me.Champ23 = Cell
'remplissage sans doublon
If Me.Champ23.ListIndex = -1 Then _
Me.Champ23.AddItem Cell
Next Cell
Dernière édition:
