Effacer certaines cellules dans une plage

[Skyna]

Bonjour à tous,

Pouvez-vous m'indiquer comment creer une macro qui me permette d'effacer automatiquement les cellules d'une plage si elles correspondent à un certain critère.
Dans mon exemple, effacer les cellules inférieures à 0, mais également effacer à nouveau les cellules vides (en fait lorsque je fais un copier-coller des ces données ds un autre tableau, il faut obligatoirement repasser sur les cellules qui sont vides en faisant "suppr", sinon les formules qui viennent chercher ces cellules sont en anomalies).
Ci-joint un fichier.

Merci pour votre aide.

 

[vgendron]

Re : Effecter certaines cellules dans une plage

salut

exemple comme ca de tete

Sub effacer()
Set zoneàtraiter = Range("A1:C50")


For Each ele In zoneàtraiter
If IsEmpty(ele) Or ele.Value = 0 Then
ele.Clear
End If
Next ele

End Sub

 

[titiborregan5]

Re : Effecter certaines cellules dans une plage

Bonjour Skyna, le forum,

un exemple de code pour la colonne C...

Sub efface()
For i = 3 To Range("c65000").End(xlUp).Row
If Cells(i, 3) = "" Or Cells(i, 3).Value < 0 Then
Cells(i, 3).ClearContents
End If
Next
End Sub

oups pas vu les autres réponses, qui sont bien mieux que la mienne!

 

[Skyna]

Re : Effecter certaines cellules dans une plage

Merci beaucoup pour votre rapidité. Je vais tester cela, et à première vue c'est exactement ce que je cherchais.