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
Merci beaucoup
ç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
Merci beaucoup