CheckBox : Coché et non Coché

[roisabri]

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

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

Private Sub UserForm_Layout()
    'Layout the userform
 
    CheckBox1.value = a
End sub

Merci beaucoup

 

[phlaurent55]

Re : CheckBox : Coché et non Coché

Bonjour roisabri,

L'objectif est : quand je lance le userfom, il doit trouver l'état antérieur du checkbox,

pour qu'il puisse retrouver son état d'avant fermeture il ne faut pas utiliser UnLoad UserForm1

mais UserForm1.Hide

vois fichier joint

à+
Philippe

 

[roisabri]

Re : CheckBox : Coché et non Coché

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.

Je bloc encore

 

[phlaurent55]

Re : CheckBox : Coché et non Coché

Re,

voici:

à+
Philippe

 

[phlaurent55]

Re : CheckBox : Coché et non Coché

Re,

si il s'agit uniquement d'inverser les couleurs il y a beaucoup plus simple et sans passer par un userform

à+
Philippe

 

[roisabri]

Re : CheckBox : Coché et non Coché

C'est ça ce que je cherche Merci beaucouuuuuuuup