rectification d'un code qui sert a effacer

[julien]

salut a tous

j'ai ce code :

Option Explicit

Private Sub CommandButton1_Click()
Dim Cell As Range

For Each Cell In Range("B7:B200")
If Cell.Value = "" Then
Cell.EntireRow.Delete
End If
Next Cell

End Sub


qui permet d'effacer les ligne dont la colonne est vide en b7 jusqu a 200 mais (et c'est que j'ai l'air con) c'est pour effacer par exemple des caracteres comme "AAA"

cela devrait etre :
Option Explicit

Private Sub CommandButton1_Click()
Dim Cell As Range

For Each Cell In Range("B7:B200")
If Cell.Value = "AAA" Then
Cell.EntireRow.Delete
End If
Next Cell

End Sub




mais ca marche pas

merci d'avance

 

[Alain]

Bonjour,

Essaye avec :

If InStr(Cell.Value, "AAA") <> 0 Then

Bonne journée