J’ai un petit problème avec une boucle, voilà j’ai un tableau qui peut-être variable en nombre de lignes, dans ce tableau je veux supprimer toutes les lignes dont valeur est égal à 4 dans le colonne F.
Pour cela j’utilise une boucle puis je décale d’une ligne, mais quand il y a deux ligne qui se suive avec la valeur 4 dans le colonne F du faite que je décale d’une ligne la deuxième ligne n’est pas supprimer.
Quelqu’un pourrait-il m’indiquer une solution à ce problème.
Ci-dessous la macro que j’utilise actuellement avec le fichier.xls
For compteur = 1 To DerligneEtat
If ActiveCell.Value = 4 Then
Selection.EntireRow.Delete
ActiveCell.Value = 4
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Range("A1").Select
pour une suppression de ligne, il faut partir du bas, et remonter par l'instruction Step -1
Code:
Sub Test()
Dim DerLig As Long, I As Long
DerLig = [F65000].End(xlUp).Row
For I = DerLig To 9 Step -1
If Cells(I, 6).Value = 4 Then Rows(I).Delete
Next I
End Sub