Effacer contenu cellule colorée par mefc

Bonjour le forum,

Voici mon petit problème : j'aimerais effacer le contenu d'une (des) cellules colorée(s) suite à mefc avec le code suivant mais cela ne fonctionne pas !!

Sub essaiC()
Dim cell As Range
For Each cell In Selection
If cell.Interior.ColorIndex = 46 Then '49407
    cell.ClearContents
Else
End If
Next

End Sub

J'ai essayé en remplaçant ColorIndex par Color = 49407 (code obtenu par l'enregistreur de macro !) mais cela ne fonctionne toujours pas !

Cela marche que si je mets la couleur moi même dans une cellule

Je veux juste effacer le contenu pas la couleur.

Si quelqu'un avait une petite idée...

Bonjour,

Tu peux modifier le format de cellule, si tu ne veux pas afficher les 0 :

format de cellule :

0;-0;;@

Ca ne répond pas du tout à ta question, mais a priori la MFC mets en orange quand le résultat est 0 et tu veux masquer si 0.

Donc ça doit répondre à ton problème.

Bouben

Bonjour bouben,

Merci pour ta réponse. La cellule se colorie si il n'y a rien dans la colonne de B8 à B60 mais dans la cellule colorée il peut y avoir soit des chiffres ou du texte....

Bonjour,

Plutôt que chercher à vérifier si la couleur de la MFC est activée, tu peux vérifier si la condition de la MFC est avérée.

Un exemple :

Sub essaiC()
Dim C As Range
    With ActiveSheet
        Cells.SpecialCells(xlCellTypeAllFormatConditions).Select
        For Each C In Selection
            Select Case C.Address
            Case "$B$7"
                If Application.Sum(Range("B8:B59")) = 0 Then C.ClearContents
            Case "$C$7"
                If Application.Sum(Range("C8:C20")) = 0 Then C.ClearContents
            End Select
        Next C
    End With
End Sub

A+

Bonjour Frangy,

Merci pour ta réponse