Supprimer couleurs cellules

[atlonia]

bonjour à tous,

Je cherche à ce que lorsque j'appuie sur le bouton "RAZ", les couleurs de cellules disparaissent, sauf celle des
week end...!

Quelqu'un a une idée ?

Merci de votre aide...!

 

[DoubleZero]

Re : Supprimer couleurs cellules

Bonjour, atlonia, le Forum,

Comme ceci ?

Option Explicit
Sub Couleurs_supprimer()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 9 Step -1
        If Range("a" & i).Offset(, 1).Resize(, 31).Interior.Color <> xlNone Then Range("a" & i).Offset(, 1).Resize(, 31).Interior.Color = xlNone
    Next i
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[Modeste geedee]

Re : Supprimer couleurs cellules

Bonsour®

simplement :

Sub EffaceCouleurs()
    Range("B9:AF11").Interior.Color = xlNone
End Sub

cela serait plus complexe si les couleurs étaient dues à une MEFC...

 

[atlonia]

Re : Supprimer couleurs cellules

Merci pour votre aide,

Je n'ai pas compris, aucune de ces deux formule ne fait ce que je veux...!

j'au dû mal m'expliquer: je veux effacer les cellules sauf celle du dimanche

merci de votre indulgence

 

[Modeste geedee]

Re : Supprimer couleurs cellules

Bonsour®

???
voir pièce jointe :

 

[atlonia]

Re : Supprimer couleurs cellules

Merci Modeste, je n'arrive toujours pas comprendre cette partie de code:

.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0

Pardon d'insister, mais peut-tu m'expliquer...?

Merci encore.

 

[Modeste geedee]

Re : Supprimer couleurs cellules

Bonsour®
cette partie de code est inexistante dans l'exemple que j'ai fourni ???

 

[atlonia]

Re : Supprimer couleurs cellules

OK, j'ai melangé les macros, il va falloir que je me décide à les renommer au fur et a mesure...!

Merci encore pour ta précieuse aide.