Traduction d'un code
Bonsoir a tous un membre du forum ma donné un code que je cherché et j'essaye de le décrypter afin de mieux l'adapter a mon besoin mais j'ai beaucoup de soucis, j'aurais voulu savoir si quelqu'un pouvez m'expliquer ligne par ligne ce que veux dire le code:
Voilà le code:
Merci à vous
Bonsoir a tous un membre du forum ma donné un code que je cherché et j'essaye de le décrypter afin de mieux l'adapter a mon besoin mais j'ai beaucoup de soucis, j'aurais voulu savoir si quelqu'un pouvez m'expliquer ligne par ligne ce que veux dire le code:
Voilà le code:
Sub AlimLw()
Dim Tablo, k As Long, m As Long
Dim i As Integer, j As Integer
Dim T, T1, T2
m = 1
Tablo = Sheets("Feuil1").Range("D5:F19")
For i = 0 To UBound(Tablo, 1)
For j = 1 To UBound(Tablo, 1)
If Tablo(i, 2) > Tablo(j, 2) Then
T = Tablo(i, 1)
T1 = Tablo(i, 2)
T2 = Tablo(i, 3)
Tablo(i, 1) = Tablo(j, 1)
Tablo(i, 2) = Tablo(j, 2)
Tablo(i, 3) = Tablo(j, 3)
Tablo(j, 1) = T
Tablo(j, 2) = T1
Tablo(j, 3) = T2
End If
Next j
Next i
For k = 1 To UBound(Tablo, 1)
With ListView1
.ListItems.Add , , Tablo(k, 3)
.ListItems(m).SubItems(1) = Tablo(k, 1)
.ListItems(m).SubItems(2) = Tablo(k, 2)
End With
m = m + 1
Next
End Sub
Merci à vous
Dernière édition: