supprimer des cellules qui ne continnent pas une valeur donnée

[Diop]

Bonjour à tous je vouvrais supprimmer toutes les cellules qui ne continnent pas par exemple la valeur "X".
J' ai crée une macro :

Sub tets()
If Range("M1970") <> "X" Then
Range("A1970").ClearContents
End If
End Sub

Mais je n'arrive pas à le faire pour toutes les cellules. J'attends votre aide
Merci

 

[Abel]

Bonjour Diop, tous


Sub tets()
For each c in Selection
If c <> "X" Then c.ClearContents
Next c
End Sub

Tu sélectionnes la zone où tu veux appliquer la macro puis tu exécutes la macro.
Attention à la casse.

En espérant que ça te dépanne.

Abel

 

[Abel]

Bonjour Diop, tous


Sub tets()
For each c in Selection
If c <> "X" Then c.ClearContents
Next c
End Sub

Tu sélectionnes la zone où tu veux appliquer la macro puis tu exécutes la macro.
Attention à la casse.

En espérant que ça te dépanne.

Abel

 

[Abel]

Oups ! Pardon, j'ai ripé.

Abel

 

[Eric C]

Bonjour le forum
Bonjour Diop & Abel

Sans la sélection manuelle des cellules ce qui peut être fastidieux si la plage est étendue. Ne fonctionne pas sous XL97.
@ ++ Eric C

 

[Abel]

Eric C, tous

Allélouïa !

UsedRange

Je vais diviser par deux la plupart de mes macros !

Merci Eric C et @Thierry.

L'est vraiment trop bien ce forum (qui ne serait rien sans tout ceux qui y participent).

Abel

 

[Abel]

Diop, Eric C, tous,

Ma première utilisation de UsedRange.
Peut sans doute mieux faire. Mais bon, ça marche.

Abel