Bonjour à tous,
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
D’avance merci
Sub Test()
Range("F8").Select
Selection.End(xlDown).Select
DerligneEtat = ActiveCell.Row
Range("F9").Select
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
End Sub
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
D’avance merci
Sub Test()
Range("F8").Select
Selection.End(xlDown).Select
DerligneEtat = ActiveCell.Row
Range("F9").Select
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
End Sub