Problème avec une boucle

[Luigi]

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

 

[Cousinhub]

Re : Problème avec une boucle

Bonjour,

pour une suppression de ligne, il faut partir du bas, et remonter par l'instruction Step -1

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

Bonne journée

 

[Luigi]

Re : Problème avec une boucle

Merci bhbh ça marche super

a bientot