tris ALPHA sur additem de lisbox

[Evelynetfrancois]

BONSOIR forum !!
Pour alimenter une lisbox de la cell 2 à la cell 1000 de la colonne A
j'utilise,

For Each Val In Sheets("COUCOU").Range("A" & "2:" & "A" & Sheets("COUCOU").Range("A" & "1000").End(xlUp).Row)
ListBox1.AddItem Val

Comment mettre cette liste en ALPHA dans la listbox
sans bien sur changer l'ordre de la dite liste de référence

merci pour le temps et l aide que vous m accordez........
bonne soirée a tous

E et F

 

[ninbihan]

Re : tris ALPHA sur additem de lisbox

Bonsoir E&F

Tu trouveras ci-joint un fichier très largement inspiré par cela
Ce site n'existe plus
Le code se trouve dans feuil1

Bonne soirée,

Ninbihan