Tout effacer sauf une valeur

[toubib]

Bonjour à tous,

je cherche à faire une macro qui me permettrait d'effacer toutes les valeurs dans une zone (dans mon cas = d51:ax99) sauf les valeurs = à 100, mais je n'y arrive pas.

Est ce que vous voyez comment faire?

merci

 

[PascalXLD]

Bonjour

essaies

Sub effacepas100()
Dim cell As Range
For Each cell In Range('D51:AX99')
If cell.Value <> 100 Then cell.ClearContents
Next

End Sub

Bon courage

 

[toubib]

merci beaucoup !!!!!
et bonne journée