Effacer le contenu et la couleur d'une cellule selon certaine conditions

[SiD88]

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:

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!

 

[Guest]

Re : Effacer le contenu et la couleur d'une cellule selon certaine conditions

Bonjour,

Cell.Clear

A+

 

[Pierrot93]

Re : Effacer le contenu et la couleur d'une cellule selon certaine conditions

Bonjour,

rajoute peut être une instruction :

Then
    cell.ClearContents
    cell.Interior.ColorIndex = xlNone

bonne journée
@+

Edition : re Hasco🙂

 

[SiD88]

Re : Effacer le contenu et la couleur d'une cellule selon certaine conditions

Bonjour Hasco,

Le souci avec cell.clear, ça me supprime mes listes déroulantes. :/ C'est normal?

 

[SiD88]

Re : Effacer le contenu et la couleur d'une cellule selon certaine conditions

Bonjour Pierrot93,

Merci, ça marche niquel, c'est ça que je cherchais!

A bientôt

 

[Guest]

Re : Effacer le contenu et la couleur d'une cellule selon certaine conditions

Re,

1000 excuses, j'avais mal lu. Mais la soluce de mon camarade Pierrot🙂 devrait le faire.

A+