Chargé un combobox/listbox "à l'envers"

[blord]

Bonjour à tous,

Normalement, lorsque l'on charge un combobox/listbox avec les données contenues dans une colonne, la première donnée qui apparaît dans le combobox/listbox est la première donnée de la colonne.

Est-il possible de faire en sorte que la première donnée qui apparait dans le combobox/listbox soit en ordre inverse, c'est-à-dire de partir avec la dernière donnée de la colonne en remontant jusqu'au début de la colonne ?

Exemple : supposons les données suivantes dans la colonne

069069069-Lebel-SAMSON, BENOIT-20090402-118541
069069069-Lebel-SOUCY, PASCALE-20090202-120639
069069069-Lebel-BERNARD, ALAIN-20090112-084514
5489-Lebel-SOUCY, PASCALE-20090202-120641
069069069-Lebel-SOUCY, PASCALE-20090202-120642
8547412-Lebel-SOUCY, PASCALE-20090201-120643

Ce que je voudrais avoir dans mon combobox/listbox serait :

8547412-Lebel-SOUCY, PASCALE-20090201-120643
069069069-Lebel-SOUCY, PASCALE-20090202-120642
5489-Lebel-SOUCY, PASCALE-20090202-120641
069069069-Lebel-BERNARD, ALAIN-20090112-084514
069069069-Lebel-SOUCY, PASCALE-20090202-120639
069069069-Lebel-SAMSON, BENOIT-20090402-118541

Merci pour votre aide !

Benoit Lord

 

[pierrejean]

Re : Chargé un combobox/listbox "à l'envers"

bonjour blord

Vois ceci

 

[blord]

Re : Chargé un combobox/listbox "à l'envers"

Bonjour PierreJean,

Merci pour la réponse, c'est exactement ça que je cherchais...

Juste une petite question, si je met le code suivant :

For n = Sheets("data").Range("A65536").End(xlUp).Row To 2 Step -1
ComboBoxModif.AddItem Range("A" & n)
Next n

mon combobox est vide, par contre, si je met le code suivant :

Sheets("data").Activate
For n = Range("A65536").End(xlUp).Row To 2 Step -1
ComboBoxModif.AddItem Range("A" & n)
Next n

Celà fonctionne ? Pourquoi je ne peux pas adresser le chargement directement en nommant la feuille dans la ligne :
For n = Sheets("data").Range("A65536").End(xlUp).Row To 2 Step -1

Merci !

Benoit Lord

 

[Pierrot93]

Re : Chargé un combobox/listbox "à l'envers"

Bonsoir Blord, PierreJean🙂

En l'absence de PierreJean, pour spécifier une feuille :

With Sheets("data")
    For n = [COLOR="Red"][B].[/B][/COLOR]Range("A65536").End(xlUp).Row To 2 Step -1
        ComboBoxModif.AddItem[COLOR="red"][B] .[/B][/COLOR]Range("A" & n)
    Next n
End With

bonne soirée
@+

Edition : Pour être plus complet, il aurait fallu remettre le nom de la feuille ici :

 ComboBoxModif.AddItem Sheets("data").Range("A" & n)

 

[blord]

Re : Chargé un combobox/listbox "à l'envers"

Bonjour Pierrot93,

Merci pour le complément d'information et encore une fois merci à PierreJean....

Benoit Lord