Tri inverse d'une ListBox

Bonjour,

Dans mon classeur j'ai une ListBox qui contient le noms de mes feuilles excel (dont l'ordre n'es pas alphabétique). Je souhaiterai inverser l'ordre d'affichage de ma Listbox. J'ai trouvé comment faire un tri alphabétique croissant ou décroissant mais pas juste inversé.. Pouvez-vous m'aider ?? Merci :)

Bonjour blackstrange,

Faudrait tester la formule suivante dans ton code :

Code:

---

ListBox1.AddItem intIndex, 0

---

Et nous tenir au courant.
C'est qu'une simple tentative.

Bertrand

Bonjour!

J'ai cherché un peu et j'ai mieux compris cette histoire d'index

donc j'ai ajouté "0" à la fin de ma formule permettant de remplir ma listbox, cela fonctionne bien! le seule truc c'est que si mes noms de feuilles sont inversés, le "focus" se fait sur le premier de la liste (qui est maintenant le dernier) alors que ce que je souhaite c'est rendre plus facile d'accès les dernières feuilles du classeur qui seront les plus récentes!

Alors j'ai trouvé une solution : je les insère dans l'ordre puis à la fon de mon code j'écris ceci :

Code:

---

ListBox1.TopIndex = ListBox1.ListCount

---

et ça fonctionne plutôt bien, cela m'affiche la fin de ma ListBox et l'ordre reste le même!

Que pensez-vous de cette solution ?

Citation:

---

Envoyé par blackstrange

Alors j'ai trouvé une solution : je les insère dans l'ordre puis à la fon de mon code j'écris ceci :

Code:

---

ListBox1.TopIndex = ListBox1.ListCount

---

et ça fonctionne plutôt bien, cela m'affiche la fin de ma ListBox et l'ordre reste le même!

Que pensez-vous de cette solution ?

---

Je n'ai pas testé mais ça me parait étrange car .ListCount renvoie le nombre d'articles présents... Je ne vois pas la logique.

Sinon tu peux charger "en inversant" les éléments dans une liste/array/"tableautranfert" et les retourner ensuite dans la ListBox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub inversionlistbox() ' Macro qui permet l'inversion des éléments présents dans une listbox   Dim i, j As Long Dim tableautransfert() As String Dim itemlist, nombrecolonne As Integer   ' A modifier en fonction du nom de la listbox With ListBox1   ' détermine les dimensions à retenir pour le tableau itemlist = .ListCount - 1 nombrecolonne = .ColumnCount   ' Initialise le tableau à 2 dimensions qui va recevoir les infos ReDim tableautransfert(itemlist, nombrecolonne)   'boucle pour remplir le tableau For i = 0 To nombrecolonne - 1 For j = 0 To itemlist tableautransfert(j, i) = .List(itemlist - j, i) Next j Next i .List = tableautransfert   End With   End Sub

---

C'est plus long comme code mais ça fonctionne.

Bertrand

Merci! je garde ma simple petite ligne car pour l'instant cela fonctionne même en ajoutant des feuilles! :)

mais si je vois que cela ne fonctionne plus à un moment je prendrais ton code! merci beaucoup!

Une autre petite demande :

Ma listbox se trouve dans un formulaire non modal qui reste affiché à l'écran et qui permet d'accèder à la feuille par simple clic sur son nom. Comment faire pour que la listbox se mette à jour ? parce que si l'utlilisateur supprime une feuille puis clic sur le nom qui lui est toujours visible, cela affiche une erreur (normal puisque cette feuille n'existe plus). Une idée pour remédier à ce problème ?