lebarbo
XLDnaute Occasionnel
Bonjour le forum, bonjour à tous,
Dans une feuille, je recense plusieurs nom qui ne sont pas trier par ordre alphabétique. Lorsque j'appelle un userform composé d'une listbox alimentée par ces noms, ceci sont rangés dans l'ordre chronologique. J'aimerai tout simplement, sans trier dans la feuille, mettre ces nom par ordre alphabétique dans la listbox.
J'alimente ma liste de la façon suivante :
ActiveWorkbook.Sheets("Feuil1").Names.Add Name:="Liste", RefersToR1C1:= _
"=Base!R2C3:R" & NoDerniereLigne & "C3"
For I = 1 To Sheets("Feuil1").Range("Liste").Count
ListBox1.AddItem Sheets("Feuil1").Range("Liste")(I)
Next
Merci d'avance
Dans une feuille, je recense plusieurs nom qui ne sont pas trier par ordre alphabétique. Lorsque j'appelle un userform composé d'une listbox alimentée par ces noms, ceci sont rangés dans l'ordre chronologique. J'aimerai tout simplement, sans trier dans la feuille, mettre ces nom par ordre alphabétique dans la listbox.
J'alimente ma liste de la façon suivante :
ActiveWorkbook.Sheets("Feuil1").Names.Add Name:="Liste", RefersToR1C1:= _
"=Base!R2C3:R" & NoDerniereLigne & "C3"
For I = 1 To Sheets("Feuil1").Range("Liste").Count
ListBox1.AddItem Sheets("Feuil1").Range("Liste")(I)
Next
Merci d'avance