Supprimer cellules ne contenant pas

Bonjour,

Sur ma plage B2:BB200, j'aimerais que les cellules ne contenant pas "MOT" ou ne contenant pas "PHRASE" soit supprimer.

Dim c As Range
With Range("b2:bb200")
For Each c In Range("b2:bb200")
    If Not c Like "*MOT*" Or c Like "*PHRASE*" Then Cells.Delete
Next
End With

Le probleme, c'est qu'il me supprime tout...

Je vois pas ou est mon erreur...

Bonjour,

Gokusam12 a écrit :

Bonjour,

Sur ma plage B2:BB200, j'aimerais que les cellules ne contenant pas "MOT" ou ne contenant pas "PHRASE" soit supprimer.

Le probleme, c'est qu'il me supprime tout...

Je vois pas ou est mon erreur...

Il me semble que tu exprime mal ton besoin ...

Dans ce que tu écrit, tu supprimes les cellules qui ne contiennent pas MOT et celles qui contiennent PHRASE

Bonjour à tous,

Cells.delete efface toutes les cellules de l'onglet + test à revoir comme indiqué ci-dessus.

Solution à tester / adapter :

    Dim c As Range

    With Range("b2:bb200")
        For Each c In Range("b2:bb200")
            If Not (c Like "*MOT*" Or c Like "*PHRASE*") And c.Value <> "" Then
                c.Delete
            End If
        Next
    End With

Bouben

Bonjour,

Vu que Or est prioritaire sur Like j'écrirais plutôt :

If Not (c Like "*MOT*") Or Not (c Like "*PHRASE*") Then c.Delete xlShiftUp

Ou c'est meme pas delete que je veux c'est plutot clear content...

Je vous fait un retour des que je peux !

Mais merci beaucoup déja pour votre temps