Bonjour,

J'ai une liste sur un fichier Excel ou j'ai plusieurs fois la même info et je veux que les info se trouvant dans la feuille "@liste" se charge sans doublons.

Petite particularité je ne connais pas le nombre de ligne à l'avance.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
v_Sheet = "@Liste"
                For i = 1 To Sheets(v_Sheet).Range("A65536").End(xlUp).Row
                    ComboBox1 = Sheets(v_Sheet).Range("A" & i)
                     If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets(v_Sheet).Range("A" & i)
                Next i
le souci que j'ai c'est que je voudrai que l'affiche soit vide, la il y a la dernière entré qui est affiché.

Merci du coup de main. Car je ne vois pas pourquoi.