Supprimer une ligne qui ne contient pas une certaine valeur

[Dekoy]

Bonsoir à tous,
mon souhait aurait été de supprimer toutes les ligne qui ne contienne pas un certain mot??
Par exemple, dans le fichier joint, il faudrait en cliquant sur un bouton, supprimer toutes les lignes où le mot "NON" n'apparait pas (ce mot sera toujours dans la même colonne).
Merci d'avance

 

[JCGL]

Re : Supprimer une ligne qui ne contient pas une certaine valeur

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Supprime()
Dim i&
With Sheets(1)
For i = .Range("A65536").End(xlUp).Row To 1 Step -1
     If .Cells(i, 3).Value <> "NON" Then .Rows(i).Delete
Next i
End With
End Sub

A+ à tous

Edition : Bonjour Roger

 

[ROGER2327]

Re : Supprimer une ligne qui ne contient pas une certaine valeur

Bonjour Dekoy

Le code

[COLOR="DarkSlateGray"]Sub toto()
Dim CCel As Long
   For CCel = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
      If Cells(CCel, 3).Value = "NON" Then Rows(CCel).Delete
   Next CCel
End Sub[/COLOR]

affecté à un bouton devrait faire l'affaire.​

ROGER2327

P.S. : Trop tard ! Bonjour JCGL.

 

[Dekoy]

Re : Supprimer une ligne qui ne contient pas une certaine valeur

Merci à tous les 2 pour vos réponses rapides!!!!!