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
Re : Supprimer une ligne qui ne contient pas une certaine valeur
Bonjour à tous,
Peux-tu essayer avec :
Code:
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
Re : Supprimer une ligne qui ne contient pas une certaine valeur
Bonjour Dekoy
Le code
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]