Checkbox VBA

pierrejean

XLDnaute Barbatruc

• 4 Mai 2009

• #2

Re : Checkbox VBA

bonjour nougitch

une solution

 

Pièces jointes

• Checkbox_VBA.xls

  29 KB · Affichages: 1 252
• Checkbox_VBA.xls

  29 KB · Affichages: 1 275
• Checkbox_VBA.xls

  29 KB · Affichages: 1 327

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Mai 2009

• #3

Re : Checkbox VBA

Bonjour nougitch

le code lié à ton bouton :

Code:

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

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

Code:

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

bonne journée
@+

Edition, Bonjour PierreJean🙂, trop lent moi...

 

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 4 Mai 2009

• #4

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Mai 2009

• #5

Re : Checkbox VBA

Re

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

Code:

Dim b As Boolean
b = CheckBox1.Value

ou bien afficher la valeur dans un "msgbox" :

Code:

MsgBox CheckBox1.Value

bon après midi
@+

 

Vote positif 0 Vote négatif

N

nougitch

XLDnaute Occasionnel

• 4 Mai 2009

• #6

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 !

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Mai 2009

• #7

Re : Checkbox VBA

Re

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

Code:

Public b As Boolean

@+

 

Vote positif 0 Vote négatif