Effacer le contenue caché dans cellule

Bonjour !

effacer le contenue caché dans cellule BD1, dans mes macros il y a un truc qui cloche, dans les couleurs peut être

merci de votre réponse

Bonjour Benoist,

Cell.Interior.Color va renvoyer la "Vraie" couleur de la cellule, sauf que ici elle est coloré par MFC, il faudra donc utiliser cette formule pour avoir la couleur que nous voyons à l'écran:

cell.DisplayFormat.Interior.Color

et donc:

Sub effacer_couleur()
Dim cell As Range
For Each cell In Selection
If cell.DisplayFormat.Interior.Color = RGB(255, 255, 100) Then
    cell.ClearContents
Else
End If
Next

End Sub

Slts,

et bien merci, c'est exactement ça

bonne journée à vous.