Tout effacer sauf une valeur

toubib · 9 Septembre 2005

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 · 9 Septembre 2005

Bonjour

essaies

Code:

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 · 9 Septembre 2005

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

Tout effacer sauf une valeur

toubib

Guest

PascalXLD

XLDnaute Barbatruc

toubib

Guest

Discussions similaires