Supprimer les lignes contenant un zéro dans les cellules

Bonsoir à toutes et tous,

J'ai trouvé sur le forum beaucoup de réponses à mon problème mais aucune ne me satisfait.

J'ai un code qui cherche et trouve des zéros dans un champ, ces zéros reçoivent une police rouge et je souhaite supprimer les lignes

contenant ces zéros

Voici mon code

merci de m'aider encore une fois

Pierrot

Sub Rech0()

    Range("K1").Select    'Cellule à chercher

    For i = 1 To 3

    Set PlageDeRecherche = Application.Range("NC")
    ValeurCherchée = Application.ActiveCell

   For Each C In PlageDeRecherche
        If C.Value = ValeurCherchée Then

    C.Font.ColorIndex = 3

   ' ActiveCell.Rows("1:3").EntireRow.Select  'ACTION souhaitée
   ' Selection.Delete Shift:=xlUp
   ' ActiveCell.Select
            End If
    Next
    Next
End Sub

Bonjour

Pour supprimer ces lignes avec 0 en colonne A

Sub supp()
For i = [A65000].End(xlUp).Row To 1 Step -1
    If Cells(i, 1) = 0 Then Cells(i, 1).EntireRow.Delete
Next i
End Sub

Cordialement

Bonsoir Amadéus

Testé et approuvé

Un tout grand merci pour ta gentillesse et ta disponibilité

Amitiés

Pierrot

Bonjour Amadéus

Je suis désolé de devoir te déranger, mais j'ai besoin d'une aide supplémentaire pour le code que tu m'as envoyé hier

Suppression des zéros dans les lignes colonne A

La macro supprime les lignes sous les données valides mais pas les lignes du dessus.

Voir l'exemple coller ici.

que faut-il modifier pour régler ce problème ?

Merci d'avance et bonne journée.

Pierrot

NC 'Col A

0 ' non supprimé

0 ' non supprimé

5058

5028

5046

5031

5130

5131

0 'Supprimé

0 'Supprimé

0 'Supprimé

Sub supp()      'Supprime les lignes contenant un zéro feuille 2 colonne A
     Sheets("Feuil1").Select
    For i = [A65000].End(xlUp).Row To 1 Step -1
        If Cells(i, 1) = 0 Then Cells(i, 1).EntireRow.Delete
    Next i
  End Sub

Mon cher Amadéus,

J'ai encore crié trop vite,je faisais référence à une zone de noms, mais avec les lignes supprimées, cette zone était variable

En utilisant ton code toutes les lignes contenant un zéro sont bien supprimées Colonne A

Ne tiens pas compte de mon message précédant.

avec toutes mes excuses

encore merci

Amitiés

Pierrot