Re : Tri tableau par ordre décroissant
Croissant Décroissant ça dépend dans quel sens on prend le tableau lol...
mais < est le signe qu'il me faut. Voila le code VBA en entier:
ReDim td(42, 1)
For x = 2 To 44
col = Target.Column
If Target.Column = 10 Then
dif = Abs(Asc(Sheets(x).Cells(14, col).Value) - Asc(UCase(Target.Value)))
Else
dif = Abs(CDec(Sheets(x).Cells(14, col).Value) - CDec(Target.Value))
End If
td(x - 2, 0) = dif
td(x - 2, 1) = x
Next x
For i = 0 To 42
For j = 0 To 42
If td(i, 0) <= td(j, 0) Then
temp0 = td(i, 0)
temp1 = td(i, 1)
td(i, 0) = td(j, 0)
td(i, 1) = td(j, 1)
td(j, 0) = temp0
td(j, 1) = temp1
End If
Next j
Next i
For x = 0 To 3
Cells(30 + x, 4).Value = Sheets(td(x, 1)).Name
Next x
Target.Font.ColorIndex = 2
Petite explication succinte, en fait je rentre un nombre dans une cellule sur une feuille 1 et il compare ce nombre à toutes les feuilles du fichier qui possède un nombre dans une cellule définie (la même pour chaque feuille).
Le but est de faire la différence, de les mettre dans un tableau et de les trier par ordre du plus petit au plus grand en partant du haut du tableau
Je comprend pas pour quelles raisons ca ne fonctionne pas, j' ai du commetre une erreure quelque part mais ou that the question
Merci
Adé