SiD88
XLDnaute Junior
Bonjour le forum,
Je suis en train de réaliser un sub qui me permettra d'effacer le contenu d'une cellule et sa couleur, selon certaine couleur de cellule, tout en conservant le format des bordures, et c'est la que ça coince.
J'utilise la fonction cell.clearcontent qui marche très bien pour le contenu.
Pour la couleur, j'ai essayé avec cell.clearformat mais ça me vire la couleur (bien) et le format des bordures (pas bien) alors que je souhaite le conserver.
Mon code:
C'est surement une fonction toute bête mais je dois mal chercher...
Merci!
Je suis en train de réaliser un sub qui me permettra d'effacer le contenu d'une cellule et sa couleur, selon certaine couleur de cellule, tout en conservant le format des bordures, et c'est la que ça coince.
J'utilise la fonction cell.clearcontent qui marche très bien pour le contenu.
Pour la couleur, j'ai essayé avec cell.clearformat mais ça me vire la couleur (bien) et le format des bordures (pas bien) alors que je souhaite le conserver.
Mon code:
Code:
Sub EffaceContenu()
Dim cell As Range
Set myRange = ActiveSheet.Range("D2:D196")
For Each cell In myRange
If cell.Interior.ColorIndex = 3 Or cell.Interior.ColorIndex = 4 Or cell.Interior.ColorIndex = 1 Or cell.Interior.ColorIndex = -4142 Then
cell.ClearContents
Else
End If
Next
End Sub
C'est surement une fonction toute bête mais je dois mal chercher...
Merci!