tri dans un combobox

Le
Lionel
bonjour
cette procédure recupere les photos de mon repertoire
unité = Left(ActiveWorkbook.Path, 3)
ChDrive unité
ChDir ActiveWorkbook.Path
nf = Dir("*.jpg")
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir
Loop

jusque là tout va bien.La suite de la procédure affiche la combobox avec les
nom des photos récuperées
Tout est presque parfait a l'exception du fait que les noms ne sont pas
triés par ordre alphabetique
Y a t il une solution ?
Merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #4329431
Bonjour
Il existe plusieurs façons de procéder.
Mais pour faire rapide, va voir ici :
http://www.excelabo.net/xl/controles.php#triercombo

Cordialement
Pascal


"Lionel" 45f680ef$0$25917$
bonjour
cette procédure recupere les photos de mon repertoire
unité = Left(ActiveWorkbook.Path, 3)
ChDrive unité
ChDir ActiveWorkbook.Path
nf = Dir("*.jpg")
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir
Loop

jusque là tout va bien.La suite de la procédure affiche la combobox avec
les
nom des photos récuperées...
Tout est presque parfait a l'exception du fait que les noms ne sont pas
triés par ordre alphabetique...
Y a t il une solution ?
Merci d'avance




Lionel
Le #4328501
Ca fonctionne ...avec un peu de reflexion pour adapter mais ca fonctionne...
Merci beaucoup
"papou"
Bonjour
Il existe plusieurs façons de procéder.
Mais pour faire rapide, va voir ici :
http://www.excelabo.net/xl/controles.php#triercombo

Cordialement
Pascal


"Lionel" 45f680ef$0$25917$
bonjour
cette procédure recupere les photos de mon repertoire
unité = Left(ActiveWorkbook.Path, 3)
ChDrive unité
ChDir ActiveWorkbook.Path
nf = Dir("*.jpg")
Do While nf <> ""
Me.ChoixPhoto.AddItem nf
nf = Dir
Loop

jusque là tout va bien.La suite de la procédure affiche la combobox avec
les
nom des photos récuperées...
Tout est presque parfait a l'exception du fait que les noms ne sont pas
triés par ordre alphabetique...
Y a t il une solution ?
Merci d'avance








Publicité
Poster une réponse
Anonyme