supprimer ligne ne contenant pas X dans colonne C

[setsix]

bonjour

j'ai le code suivant mais je n'y arrive pas

Sub Macro1()
'
'
Dim d As Range
For Each d In Range("c2", Range("c65535").End(xlUp))
If d <> "X" Then
d.EntireRow.Delete
End If
Next d
End Sub

il me supprime les lignes avec Y dans la colonne C mais pas les lignes avec Z.

merci d'avance

 

[Paritec]

Re : supprimer ligne ne contenant pas X dans colonne C

Bonsoir Setsix,
essayes ceci

Dim i
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Cells(i, 3) <> "X" Then Rows(i).Delete
Next

attention si ton X n'est pas majuscule il disparraît aussi
a+
papou

EDIT: bonsoir Jean Marcel j'avais pas vu que tu avais répondu !!!!!

 

[Paritec]

Re : supprimer ligne ne contenant pas X dans colonne C

Bonsoir Jean Marcel, setsix,
il n'y a que ceux qui ne font rien qui ne se trompent pas!!
tu as fait une erreur mais tu rectifies aussitôt donc pour moi tout est OK
bonne soirée et toujours un plaisir de te croiser
a+
papou

EDIT: Setsix si tu veux pouvoir entrer des x et des X tu mets en haut au dessus de tes macros Option Compare Text

 

[setsix]

Re : supprimer ligne ne contenant pas X dans colonne C

merci çà marche