Supprimer des lignes en fonction d'une valeur (VBA)

Bonjour,

J'ai un tableau dont l'une des colonnes contient diverses valeurs (sans format particulier) et je souhaiterai supprimer toutes les lignes qui contiennent la valeur "-4142" à l'aide de VBA.

Pourriez-vous m'aider?

Merci d'avance

Bonsoir,

Quelque chose du genre ?

Public Sub Del()
Dim lr&, a&

With Sheets("MaFeuille")
    For a = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If .Cells(a, 1) Like "*-4142*" Then
            .Rows(a).Delete
        End If
    Next a
End With
End Sub

A plus tard.

Bonsoir,

merci de votre retour, en revanche lorsque j'essaie de faire fonctionner ce code rien ne se passe

J'ai oublié de préciser que la colonne ou se situe la valeur "-4142" est la colonne E, je ne sais pas si cela change qq chose..

Merci

En effet, mon code ne porte que sur la colonne 1

Pour la colonne E, il suffit d'indiquer la colonne 5.

Public Sub Del()
Dim lr&, a&

With Sheets("MaFeuille")
    For a = .Cells(.Rows.Count, 5).End(xlUp).Row To 1 Step -1
        If .Cells(a, 5) Like "*-4142*" Then
            .Rows(a).Delete
        End If
    Next a
End With
End Sub

Après sans la structure de ton tableau, tout est variable.

Ici le code va calculer la dernière ligne de la colonne 5, et supprimer dans cette même colonne les lignes où il est inscrit "-4142".