Macro d'effacement de cellules

[JJ1]

Bonjour le Forum,
Je cherche une macro qui effacerait les cellules dont les nombres sont supérieurs à 19 dans la plage E2:X8000.
La feuille à préciser dans la macro est Feuil1 (car j'ai plusieurs onglets).
Pouvez-vous m'aider?
merci beaucoup et bon vendredi à tous.

 

[Pierrot93]

Re : Macro d'effacement de cellules

Bonjour JJ1,

regarde peut être le code ci-dessous, si j'ai bien compris :

Option Explicit
Sub test()
Dim c As Range
With Sheets("Feuil1")
    For Each c In .Range("E2:X" & .Range("X65536").End(xlUp).Row)
        If c.Value > 19 Then c.ClearContents
    Next c
End With
End Sub

bonne journée
@+

 

[JJ1]

Re : Macro d'effacement de cellules

Bonjour Pierrot et merci pour ton code ...aux petits oignons!
Parfait!
Bon AM