ju600tt
Messages postés2Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention21 novembre 2005
-
21 nov. 2005 à 11:30
ju600tt
Messages postés2Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention21 novembre 2005
-
21 nov. 2005 à 12:05
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