Discussion :

[paulob]

Bonjour à tous,

Je suis dans une sacrée impasse , je viens alors vers vous pour que vous veniez à mon secours.
Je vous explique : j'ai une listBox qui contient différentes valeurs de resistance, self etc.. Ces données sont récupérées à partir de la colonne F d'un tableau Excel. Jusque la rien de sorcier, sauf que je dois trier cette liste de manière à ce que les valeurs soit affichée en ordre croissant. Toujours rien de compliqué. Et la, problème; en effet je souhaite récupérer la ligne correspondante à la valeur de la résistance pour en extraire d'autres données, si je n'effectue pas de tri par ordre croissant sur la listBox, il m'est facile de récupérer la ligne correspondante à la valeur (voir code ci dessous) , mais lorsque le tri est effectué, l'index de l'élément de la listBox sélectionné ne fais plus du tout référence à l'index avant que le tri ne soit fait . Je ne sais pas si j'ai été très clair dans mes explications, je vous donne le code correspondant si cela peut vous aider à comprendre.

Merci de votre aide.

Private Sub boutonRechercheResistance_Click()
Dim i As Integer
i = 0
listBoxFichesApprochantes.Clear
labelTypeRecherche.Caption = "R"
For j = 2 To nbLignesFeuille
valeurColonneResistance = Range("F" & j).Value
valeurEtatFiche = Range("D" & j).Value
listBoxFichesApprochantes.AddItem (valeurColonneResistance) & " " & (valeurEtatFiche)
tabLignesCorrespondantesFichesApprochantes(i) = CInt(j)
i = i + 1
Next j
Me.listBoxFichesApprochantes.List = triCroissant(Me.listBoxFichesApprochantes.List)
End Sub

Private Sub listBoxFichesApprochantes_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'recuperation de l'index de la liste resistance selectionné par l'utilisateur
indexSelectionListeFichesApprochantes = listBoxFichesApprochantes.ListIndex
'recuperation de la ligne correspondante
numeroLigneChoisie = tabLignesCorrespondantesFichesApprochantes(indexSelectionListeFichesApprochantes)
MsgBox numeroLigneChoisie
Unload Me
fiche_reglage.Show
End Sub

[joe.levrai]

Bonjour,

une solution toute simple.

tu crée une seconde colonne dans ta listbox, que tu n'affiches pas

quand tu charges les valeurs dans ta listbox (en colonne 1), tu mets dans la colonne 2 la ligne s'y rapportant

ainsi, tu peux trier tes éléments, tout en conserver l'information du numéro de la ligne source

un exemple trivial, j'insère la valeur des Cellules A1 à A3 en colonne 1 et j'insère en colonne 2 le numéro de ligne source

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
Private Sub UserForm_Initialize()
    With Me.ListBox1
        ' deux colonnes
        .ColumnCount = 2
        ' taille des colonnes, 0 = on la voit pas
        .ColumnWidths = "50;0"
 
        k = 0
        For i = 1 To 3
            .AddItem
            .List(k, 0) = Cells(i, 1)
            .List(k, 1) = Cells(i, 1).Row
            k = k + 1
        Next i
    End With
End Sub

[paulob]

Merci pour ton astuce de séparer la listBox en deux, mais ma méthode de tri ne fonctionne pas avec cette technique..

[joe.levrai]

peux-tu nous montrer cette procédure TriCroissant ?

quand tu dis que ça ne fonctionne pas, que se passe-t-il ? Message d'erreur ou les deux colonnes ne sont plus symétriques ?

[paulob]

Function triCroissant(liSte)

'permet de trier les element par ordre croissant
Dim First As Long, Last As Long
Dim i As Long, j As Long
Dim Temp
First = LBound(liSte)
Last = UBound(liSte)
For i = First To Last - 1
For j = i + 1 To Last
If CDbl(Left(liSte(i, 0), 6)) > CDbl(Left(liSte(j, 0), 6)) Then
Temp = liSte(j, 0)
liSte(j, 0) = liSte(i, 0)
liSte(i, 0) = Temp
End If
Next j
Next i
triCroissant = liSte
End Function

Cela m'affiche un message d'erreur. J'ai essaayé plusieurs solutions, soit les données sont triées et pas rattachés à un numéro de ligne, soit pas triées et bien rattachées

[joe.levrai]

J'ai un peu modifié ta procédure de tri croissant

chaque élément déplacé dans la colonne 1 génère le même déplacement dans la colonne 2

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
unction triCroissant(liSte)
 
 'permet de trier les element par ordre croissant
 Dim First As Long, Last As Long
 Dim i As Long, j As Long
 Dim Temp
 Dim Temp2
 
 First = LBound(liSte)
 Last = UBound(liSte)
    For i = First To Last - 1
        For j = i + 1 To Last
            If CDbl(Left(liSte(i, 0), 6)) > CDbl(Left(liSte(j, 0), 6)) Then
 
                Temp = liSte(j, 0)
                Temp2 = liSte(j, 1)
 
                liSte(j, 0) = liSte(i, 0)
                liSte(j, 1) = liSte(i, 1)
 
                liSte(i, 0) = Temp
                liSte(i, 1) = Temp2
            End If
        Next j
    Next i
 
 triCroissant = liSte
 End Function