Macro pour supprimer des lignes sous conditions de valeur

Bonjour,

Je voudrais créer une macro où Excel analyse les cellules d'une colonne donnée et si des cellules de cette colonne comportent le texte "#REF!" alors les lignes qui supportent ces cellules soient effacées.

Dans le fichier joint il s'agit de la feuille "Calcul recettes" et de la colonne C.

Merci.

François

Bonjour et bienvenue,

Dans un module

Sub SupprimeLigne() 'avec #REF!
Dim Lg&, i&
    Lg = Range("a" & Rows.Count).End(xlUp).Row
    For i = Lg To 2 Step -1
        If IsError(Range("c" & i)) Then Range("c" & i).EntireRow.Delete
    Next i
End Sub

Amicalement

Claude

Merci beaucoup Claude, cela fonctionne parfaitement !

Cordialement.

François

N'oublie pas la petite formalité

à+....Claude

dubois a écrit :

N'oublie pas la petite formalité

à+....Claude

Ca marche