Discussion :

[nivk-539]

Bonjour,

J'ai une cellule de couleur orange. J'ai associé à cette cellule un checkbox. Si je coche cette checkbox, ma cellule devient bleu, ça c'est ok.
Mais ce que j'aimerai faire maintenant c'est que si je décoche ce checkbox, ma cellule redevient ici en l'occurence orange. Mais ma cellule
pourrait très bien être initiallement de couleur verte et non pas orange donc est-ce qu'il y a une fonction qui permet de recolorier la cellule avec
la couleur initiale utilisée si je décoche le checkbox ?
Merci!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CheckBox21_Click()
    If CheckBox21 = True Then
        Range("A1").Interior.color = vbBlue
    Else
        If CheckBox21 = False Then
        range("A1").Interior.Color= 'ligne à programmer
        End If
    End If
End Sub

[Philippe Tulliez]

Bonjour,
Pour l'orange, tu dois donner le code RGB de cette couleur car il n'y a que sept ou huit constantes de couleur don vbBlue, vbRed, etc.
Pour connaître ce code, il te suffit de mettre la couleur orange dans une cellule quelconque (par exemple A2) et dans la fenêtre d'exécution de l'éditeur VBA (Ctrl+G) tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

? range("A2").Interior.Color

et tu valides par la touche Entrée, le code RGB pour l'orange que j'utilise est 40407

Pour le code j'utiliserais plutôt la fonction IIF

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CheckBox1_Click()
  With Me.CheckBox1
   Range("A2").Interior.Color = IIf(.Value, vbBlue, 49407) ' Si True bleu, False orange
  End With
End Sub

[nivk-539]

Bonjour Philippe,

J'ai essayé ton code mais ça ne fait pas ce que je souhaite...
Par exemple, ma cellule est initallement en bleu. Ensuite, si je coche le checkbox, ma cellule se met en orange.
Ensuite, si je décoche le checkbox, la cellule se remet à la couleur précédente c'est à dire dans cet exemple en bleu.
Mais si mets ensuite volontairement ma cellule non pas en bleu mais en vert. Si je coche le checkbox, la cellule
se met toujours en orange, cependant si je redécoche le checkbox, la cellule se remettra en vert.

[patricktoulon]

re
et oui il te faut memoriser la couleur initiale
une methode yper simple
voici 2 checkbox qui traitent les cellule "A4" et "A5"
comme j'ai deux checkbox (et pour plus!!! )dans cet exemple j'ai opté pour une sub generale appellée par les checkbox
et comme visiblement tes cellules ne sont pas toute orange on considere la couleur initial volatile il faut donc la memoriser

voila les evenement checkboxs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
All_check_change CheckBox1, Range("A4"), vbBlue
End Sub
'
Private Sub CheckBox2_Click()
All_check_change CheckBox2, Range("A5"), vbRed
End Sub

et voila la sub general

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub All_check_change(check As MSForms.CheckBox, cel As Range, newcolor As Long)
If check.Tag = "" Then check.Tag = cel.Interior.Color
If check.Value Then cel.Interior.Color = newcolor Else cel.Interior.Color = check.Tag
End Sub

autrement dit j'apelle dans les evenements la sub All_check_change
avec pour argument le checkbox ,la celules concerné et la couleur que je veux que la cellule ai quand le checkbox est à true

et donc dans la sub generale
je memorise dans le tag du checkbox designé par la variable "check" si il est vide !!! la couleur initiale de la cellule
et enfin si c'est true je met la couleur injectée "newcolor" ou la couleur initiale récupérée dans le tag
voila le fait de memoriser la couleur initial de la cellule dans le tag uniquement si le tag est vide la couleur initial est memorisé tant que le userform n'est pas unloadé
demonstration

[nivk-539]

Ok parfait merci Patrick 😊