Carnage029
XLDnaute Occasionnel
Bonjour à tous, je me permet de solliciter votre aide,
J'ai alimenté une combobox avec le code suivant :
mais je n'arrive pas à faire apparaitre dans la combobox que les uniques (sans doublons, voir plus)
J'ai vu des méthodes pour enlever les doublons, mais avec des listes sur des feuilles...
Merci de votre aide
J'ai alimenté une combobox avec le code suivant :
Code:
Dim MonRepertoire, fa, fe, x As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
chem = "C:\mondossier\"
MonRepertoire = chem & UserForm1.siglecombobox.Text
x = 1
For Each fa In fso.GetFolder(MonRepertoire).Files
lsigle = Len(UserForm1.siglecombobox.Text)
fe = fa.Name
fe = Mid(fe, lsigle + 2, 3)
UserForm1.devisecombobox.AddItem fe
x = x + 1
Next fa
mais je n'arrive pas à faire apparaitre dans la combobox que les uniques (sans doublons, voir plus)
J'ai vu des méthodes pour enlever les doublons, mais avec des listes sur des feuilles...
Merci de votre aide