Salut les amis,
ça fait lus que 1h30 que je me casse la tete avec ce checkbox et j'arrive pas. Surtout que je sens que la solutin n'est pas trop loin.
L'objectif est : quand je lance le userfom, il doit trouver l'état antérieur du checkbox,
Pour coché ==> Checkbox.value= true or 1
Pour décoché => CheckBox.value=False or -4146
avec ce code j'arrive pas à récupéré l''info après fermer et ouvrir à nouveau l'userfom.
Voilà le code
Code:
Dim a As Double
Private Sub CheckBox1_Change()
If CheckBox1.value = True Then
a = 1
Call Changer_Couleur(RGB(255, 0, 0))
ElseIf CheckBox1.value = False Then
a = -4146
End If
End Sub
Code:
Private Sub UserForm_Layout()
'Layout the userform
CheckBox1.value = a
End sub
Salut Philippe ,
en effet , ta solution marche bien si on a un seul bouton mais dans mon cas , j'ultise l'userform pour chaque cellule sélectonné.
J'ai ajouté dans le ficher joint.
Par exemple je veux changer la couleur sur la cellule test , ça marche bien.
Après si je veux changer la cellule test1 , je trouve la Checkbox déjà coché, or ce n'est pas le cas.