Supprimer ligne contenant en partie un caractère

Bonjour,

J'apprends, comme la majorité des personnes venant sur le forum, le langage excel en pratiquant. Je suis confronté au(x) problème(s) suivant(s) :

J'ai un classeur excel contenant x feuilles, disons 3 feuilles. A l'intérieures de ces dernières j'ai une seule colonne A contenant des caractères alpha-numériques aléatoires (chiffre, lettre, caractères spéciaux). Je souhaite supprimer la ligne contenant en partie le caractère A (A majuscule).

J'ai réalisé un premier test :

Sub deltest()
Dim I As Integer
Dim Ws As Object
For Each Ws In ThisWorkbook.Worksheets
    For I = .Range("A" & .Rows.Count).End(xlUp).Row To 1 Step -1
        If Range("A" & I).Value Like "*A*" Then .Rows(I).Delete
    Next I
Next Ws
End Sub

J'obtiens l'erreur suivante : " Erreur de compilation : Référence incorrecte ou non qualifiée".

Le problème provient de la ligne

For I = .Range("A" & .Rows.Count).End(xlUp).Row To 1 Step -1

Je ne comprends pas pourquoi.

Si vous pouvez, à minima, m'aider dans la démarche à suivre.

Merci d'avance,

Bonne journée

Bonjour,

Voilà, il y avait quelques erreurs:

Tu avais oublié de préciser le nom de ta feuille (Ws) devant ".Range"

Pareil pour la ligne d'en dessous!

Sub deltest()
Dim I As Integer
Dim Ws As Object
For Each Ws In ThisWorkbook.Worksheets
    For I = Ws.Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Ws.Range("A" & I).Value Like "*A*" Then Ws.Rows(I).Delete
    Next I
Next Ws
End Sub

Dit moi si ça fonctionne de ton coté!

Yann

Bonjour Yann,

Effectivement je viens de comprendre. Cela fonctionne parfaitement.

Merci pour l'aide et surtout pour la réactivité.

Bonne journée.