Regroupement de deux macros : ecriture blanche et écriture couleur

[libellule85]

Bonjour le forum,

J'aurais une nouvelle fois besoin de vos lumières. En effet, actuellement j'utilise deux labels un pour mettre une écriture en blanc et l'autre pour mettre l'écriture en couleur (macros ci-dessous). Et j'aimerais si possible regrouper les deux macros en une seul pour un clic = écriture en blanc et un autre clic pour remettre écriture couleur.

Sub MettreBlanc()
Application.ScreenUpdating = False
Range("C6:C20").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Range("a6").Select
    Application.ScreenUpdating = True
End Sub

Sub RemettreCouleur()
Application.ScreenUpdating = False
    Range("C6:C20").Select
    With Selection.Font
.Color = -4165632
        .TintAndShade = 0
    End With
    Range("a6").Select
    Application.ScreenUpdating = True
End Sub

D'avance merci pour votre aide

 

[vgendron]

Re : Regroupement de deux macros : ecriture blanche et écriture couleur

Bonjour,

Essaie la PJ avec un commandbutton

je suis sur qu'il y a plus simple (avec du IIF notamment qui teste la valeur du bouton) . mais je sais pas faire..

 

[MichD]

Re : Regroupement de deux macros : ecriture blanche et écriture couleur

Bonjour,

Code a attaché à un bouton

Sub MettreBlanc_Couleur()
Application.ScreenUpdating = False
With Range("C6:C20")
    With .Font
        If .Color = 12611584 Then
            .Color = 16777215
        Else
            .Color = 12611584
        End If
    End With
End With
Range("a6").Select
Application.ScreenUpdating = True
End Sub

 

[libellule85]

[Résolu] Regroupement de deux macros : ecriture blanche et écriture couleur

Bonjour vgendron, MichD,

Je vous remercie beaucoup pour vos réponses c'est sympa.

Bon après midi

 

[Papou-net]

Re : Regroupement de deux macros : ecriture blanche et écriture couleur

Bonjour Libellule85, vgendron, MichD,

Sur l'idée de vgendron, et avec les codes couleurs fournis par MichD, voici une version raccourcie du code :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Range("C6:C20")
    With .Font
        .Color = IIf(.Color = 16777215, 16777220, 16777215)
    End With
End With
Range("a6").Select
Application.ScreenUpdating = True
End Sub

Cordialement.

 

[libellule85]

Re : Regroupement de deux macros : ecriture blanche et écriture couleur

Bonjour Papou-Net,

Je te remercie beaucoup pour ton code.

Bon Après midi