XL 2010 (RESOLU) Code suppime valeur 1

[MASSJIPE]

Bonjour le forum
Je recherche un code pour supprimer les lignes de la feuille A partir de E6 jusqu'à la dernière ligne dont la valeur est 1 résultat d'une formule
merci

 

[Chris401]

Bonjour

Sous réserve d'avoir compris ta demande

Sub Supprimelignes()
Application.ScreenUpdating = False
derlg = Range("E65536").End(xlUp).Row
   
For i = derlg To 6 Step -1
    If Cells(i, 5) = 1 Then Rows(i).Delete
Next i
   
End Sub

 

[MASSJIPE]

Bonjour
J'ai un souci en pj
Merci

 

[Chris401]

Re

Il y a des caractères entre Next i et End Sub ; supprime-les

Sub Supprimelignes()
Sheets("A").Select
Application.ScreenUpdating = False
derlg = Range("E65536").End(xlUp).Row
For i = derlg To 6 Step -1
If Cells(i, 5) = 1 Then Rows(i).Delete
Next i
End Sub

 

[JHA]

Bonjour à tous,

Ton fichier en retour. Le code VBA de "Chris401" me parait correct.

JHA

 

[MASSJIPE]

Re
j'ai été trop vite en postant et je viens de m'apercevoir qui faut supprimer tout ce qui est supérieur à 0 et j'ai une erreur en pj
merci

 

[Chris401]

Re
Je ne vois pas ce qui te déclenche l'erreur ; je ne l'ai pas.

Sub Supprimelignes()
Sheets("A").Select
Application.ScreenUpdating = False
derlg = Range("E65536").End(xlUp).Row
For i = derlg To 6 Step -1
If Cells(i, 5) > 0 Then Rows(i).Delete
Next i
End Sub

 

[MASSJIPE]

Bonjour
C'est top et fonctionnel.
l'erreur ne serais pas du par rapport entre Excel 2010 et 2013 car j'ai moi en 2010 lorsque j'envoi par mail mes lignes reste masquées alors qu'avec 2013 les lignes sont apparente et vide c'est pour ca que j'ai fait ce post pour contourner le problème
Merci