koukou40
XLDnaute Occasionnel
Bonjour à Tous,
Quelqu'un aurait-il l'amabilité de m'expliquer les lignes de code ci-dessous ?
Je n'y comprends rien...
Merci à vous !
Cdt,
Dim i, j, k As Integer
i = 2
Do While Sheets("Données").Cells(i, 1).Value <> ""
i = i + 1
Loop
k = 0
For j = 2 To i
If Sheets("Données").Cells(j - k, 22).Value <> Agent Then
Sheets("Données").Rows(j - k).Delete
k = k + 1
End If
Next j
Quelqu'un aurait-il l'amabilité de m'expliquer les lignes de code ci-dessous ?
Je n'y comprends rien...
Merci à vous !
Cdt,
Dim i, j, k As Integer
i = 2
Do While Sheets("Données").Cells(i, 1).Value <> ""
i = i + 1
Loop
k = 0
For j = 2 To i
If Sheets("Données").Cells(j - k, 22).Value <> Agent Then
Sheets("Données").Rows(j - k).Delete
k = k + 1
End If
Next j