Discussion :

[blackstrange]

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

[Bear the french]

Bonjour blackstrange,

Faudrait tester la formule suivante dans ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListBox1.AddItem intIndex, 0

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

Bertrand

[blackstrange]

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!

[blackstrange]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Bear the french]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[blackstrange]

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!