Checkbox Module [Résolu]

Signaler
Messages postés
2
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
21 novembre 2005
-
Messages postés
2
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
21 novembre 2005
-
Bonjour,
je débute.

J'ai un Userform avec un Checkbox et un CommandButton.
Le commandbutton appelle une macro dans module1.
Dans le module1 je test si Checkbox est coché ou non, le message renvoyé est toujours non coché. Pourquoi ? Quelqu'un peut il m'aider ?
Dans workbook
Public CheckBox1

Private Sub Workbook_Open()
Userform1.Show
End Sub

Dans userform1
Private Sub CheckBox1_Click()


End Sub


Private Sub CommandButton1_Click()
Call cdg
End Sub

Dans module1
Dim CheckBox1 As Boolean



Sub cdg()
Select Case CheckBox1_Click
Case Is = True
MsgBox "coché"
Case Is = False
MsgBox "non coché"
End Select
End Sub

Cdt

2 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Bonjour,

Tu n'as pas besoin de déclarer des variables pour CheckBox1



'DansWorkBook

Private Sub Workbook_Open()

UserForm1.Show

End Sub



'Dans Module1

Sub cdg()

If UserForm1.CheckBox1 = True Then

MsgBox "coché"

Else

MsgBox "non coché"

End If

End Sub



'Dans UserForm1

Private Sub CommandButton1_Click()

Call cdg

End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 82 internautes nous ont dit merci ce mois-ci

Messages postés
2
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
21 novembre 2005

j'avais oublié de mettre le chemin complet, à savoir Userform1.checkbox1
Merci Bcp

JVU600TT