petit problème avec une combobox

[eduraiss]

Bonsoir le code du combobx ci dessous le sert a lister les noms de la colonne d'une feuille B mon petit problème est que sa ne me les mets pas en ordre croissant

Y a t'il une solution?

Voici le code

Merci a vous

Private Sub ComboBox1_Click()

Set r = pl.Find(ComboBox1.Value, , xlValues, xlWhole) 'définit la variable r

If Not r Is Nothing Then 'condition : si au moins une occurrence existe
pa = r.Address 'définit la variable pa
Do 'exécute
ComboBox2.AddItem r.Offset(0, 1).Value 'remplit la ComboBox2
Set r = pl.FindNext(r) 'redéfinit la variable r
Loop While Not r Is Nothing And r.Address <> pa 'boucle tant que l'adresse de r est différente de pa
End If 'fin de la condition

ComboBox2.ListIndex = 0 'affiche le premier élément de la ComboBox2 (PRENOM)
End Sub

 

[Spitnolan08]

Re : petit problème avec une combobox

Bonsoir,

Un petit tour par Lien supprimé et tu auras ta réponse.

Cordialement


Plus généralement penser à regarder ici :