Taduction d'un code

[Florian53]

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:

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

 

[Bebere]

Re : Taduction d'un code

bonjour Florian
Lire l'aide sur lbound,ubound c'est bien expliqué
curseur sur le mot clé et appui touche fonction F1(clavier)

Sub AlimLw()
Dim Tablo, k As Long, m As Long
Dim i As Integer, j As Integer
Dim T, T1, T2'variables temporaires de type variant
m = 1
'dimensionne un tableau
'lignes 1 to 15(lbound(tablo,1) to ubound(tablo,1))
'colonnes 1 to 3(lbound(tablo,2) to ubound(tablo,2)):
Tablo = Sheets("Feuil1").Range("D5:F19")
'trie le tableau
For i = 1 To UBound(Tablo, 1)'corrigé
For j = i+1 To UBound(Tablo, 1)'corrigé
'si plus grand met dans t,t1,t2
If Tablo(i, 2) > Tablo(j, 2) Then
T = Tablo(i, 1)
T1 = Tablo(i, 2)
T2 = Tablo(i, 3)
'échanges,Tablo(j, 1) dans Tablo(i, 1)
Tablo(i, 1) = Tablo(j, 1)
Tablo(i, 2) = Tablo(j, 2)
Tablo(i, 3) = Tablo(j, 3)
'remet les variables temporaires dans le tableau
Tablo(j, 1) = T
Tablo(j, 2) = T1
Tablo(j, 3) = T2
End If
Next j
Next i
'vide la listview
ListView1.ListItems.Clear
'rempli la listview
For k = 1 To UBound(Tablo, 1)
With ListView1
.ListItems.Add , , Tablo(k, 3)'1ère colonne
'colonnes suivantes 2 et 3
.ListItems(m).SubItems(1) = Tablo(k, 1)
.ListItems(m).SubItems(2) = Tablo(k, 2)
End With
m = m + 1
Next

End Sub

à bientôt

 

[Florian53]

Re : Taduction d'un code

Merci à toi pour ton explication