sup ligne contenant 1 chiffre dans 1 des cellules

[sup ligne contenant 1 chiffre]

Bonjour a tous


Voici mon probleme qui se rapporte un peu a mon prob precedent (merci d'ailleurs a michel pour la rapidite de son aide)

Je voudrais supprimer toutes les lignes a partir de la ligne 7 qui contiennent le chiffre 0 dans leur colonne F


Merci de votre aide



bebe1310

 

[Lexikalacon]

Salut ,

voici un bout de code qui devrait fonctionner

Sub colonne_E_qand_zero()
Application.ScreenUpdating = False
For ligne = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
If Cells(lin, 6) = "0" Then Rows(ligne).Delete Shift:=xlUp
Next ligne
End Sub

A+
Steph