Effacer les cellules dont le texte est noir

[Boby71C]

Bonsoir à tous

Auriez vous une solution pour effacer les cellules dont les caractères sont en écriture noir et garder les textes ou lettres en rouge dans la zone S4 à Z150 par code VBA ?
Merci pour votre aide.
@+

 

[JCGL]

Re : Effacer les cellules dont le texte est noir

Bonjour à tous,

Peux-tu essayer avec :

Sub Efface()
    For Each Cel In Range("S4:Z150")
        If Cel.Font.ColorIndex = 1 Then Cel.ClearContents
    Next
End Sub

A+ à tous

 

[Boby71C]

Re : Effacer les cellules dont le texte est noir

Bonsoir JCGL et le Forum
Merci pour ton aide. Ça fonctionne comme je le désirai.

@+