Checkbox VBA

[nougitch]

Bonjour,

J'aimerais récupérer la valeur de ma checkbox (TRUE or FALSE) dans la cellule A1.

Je suis sûr que c'est tout bête mais je ne suis pas à la hauteur

Merci par avance pour votre aide.

Cdt,

 

[pierrejean]

Re : Checkbox VBA

bonjour nougitch

une solution

 

[Pierrot93]

Re : Checkbox VBA

Bonjour nougitch

le code lié à ton bouton :

Sub myCheckbox()
    Range("A1").ClearContents
    UserForm1.Show
End Sub

dans le module de ton USF, code lié au "CommandButton1" :

Private Sub CommandButton1_Click()
Range("A1").Value = CheckBox1.Value
Unload Me
End Sub

bonne journée
@+

Edition, Bonjour PierreJean, trop lent moi...

 

[nougitch]

Re : Checkbox VBA

Merci pierrejean, pierrot.
Est-ce qu'il y a un moyen de récupérer cette valeur après avoir cliqué sur le CmdButton ?
Merci par avance.

 

[Pierrot93]

Re : Checkbox VBA

Re

Pour récupérer la valeur dans une variable :

Dim b As Boolean
b = CheckBox1.Value

ou bien afficher la valeur dans un "msgbox" :

MsgBox CheckBox1.Value

bon après midi
@+

 

[nougitch]

Re : Checkbox VBA

Merci Pierrot !
Je pensais qu'il y a avait un moyen de le récupérer après mais effectivement, à bien y réfléchir, si je fais ça, je récupère toujours FALSE puisque le UserForm est fermé.
Bonne journée !

 

[Pierrot93]

Re : Checkbox VBA

Re

dans ce cas, il faut déclarer la variable "b" comme "public" dans un module standard.

Public b As Boolean

@+