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
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