Changer la couleur des cellules via bouton de commande

j'ai fait une macro, par enregistrer une macro, que j'ai légèrement modifiée. mais je voudrais, si possible en cliquant de nouveau sur le bouton les remettre sans couleur et là je sèche

Voici la macro

Private Sub SansObjet_Click()
ThisWorkbook.Sheets("Enquête").Unprotect Password:=""
Range("A41:AA67").Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -4.99893185216834E-02
        .PatternTintAndShade = 0
    End With
    Range("A69").Activate
        ThisWorkbook.Sheets("Enquête").Protect Password:=""
End Sub

Le 09/06/2019 à 18:26

Re,

Félicitations pour ta macro ...

Pour avoir les deux possibilités dans la même procédure, tu peux tester la macro suivante :

Sub SansObjet_Click()
ThisWorkbook.Sheets("Enquête").Unprotect Password:=""
    With Range("A41:AA67")
      If .Interior.Color = RGB(221, 217, 195) Then
         .Interior.Color = xlNone
      Else
         .Interior.Color = RGB(221, 217, 195)
      End If
    End With
ThisWorkbook.Sheets("Enquête").Protect Password:=""
End Sub

En espèrant que cela t'aide

Le 09/06/2019 à 22:05

Re

comme d'hab c'est nickel

juste un truc si je veux que ma satané cellule fusionnée F41 à K41 reste grise après le 2ème clic c'est possible

merci pour ton aide

Le 09/06/2019 à 22:28

Re

désolé, pour être plus précis, les cellules reviennent à leur couleur d'origine

c'est possible

Le 09/06/2019 à 22:52

Bonjour à tous,

Un essai ...

Sub SansObjet_Click()
ThisWorkbook.Sheets("Enquête").Unprotect Password:=""
    With Range("A41:AA67")
      If .Interior.Color = RGB(221, 217, 195) Then
         .Interior.Color = xlNone
         Range("F41:K41").Interior.Color = RGB(221, 217, 195)  ' < ajout
      Else
         .Interior.Color = RGB(221, 217, 195)
      End If
    End With
ThisWorkbook.Sheets("Enquête").Protect Password:=""
End Sub

ric

Le 10/06/2019 à 08:12

Bonjour,

Salut ric

Est-ce-qu'avec la macro de ric ... tout est réglé ?

Peux-tu faire le point sur ce qui fonctionne ... et sur ce que ne fonctionne pas ...?

Le 10/06/2019 à 11:55

bonjour,

la macro de ric fonctionne pour la cellule fusionnée. Par contre les cellules du tableau "Masses" ne reviennent pas aux couleurs d'origine.

je vais peut-être dire une bêtise mais peut-on avec une macro fait a même chose que fait la flèche "Annuler"

je vous joint le fichier avec le code de ric.

merci pour votre aide.