CheckBox in userform

[MD]

I'm building a UserForm that has CheckBoxes (called say CB1). The code that
I want to inclued is when CB1 is chcked do this else do that. My start off
bub looks klike this.... but it doesn't work!!!!

Private Sub Bouton_print_Click()

If CB1.Value = True Then
'.... do this
Else
'.... do that
End If
End Sub


Reagrds,

MD

 

[Ron de Bruin]

Hi MD

This is working for me with a button with the name "CommandButton1"
and a checkbox with the name "Cb1"

Private Sub CommandButton1_Click()
If Me.Cb1.Value = True Then
MsgBox ".... do this"
Else
MsgBox ".... do that"
End If
End Sub

 

[Bob Phillips]

Are you sure the button is called Bouton_print?

This is a simpler version of your code that works

Private Sub Bouton_print_Click()
MsgBox IIf(CB1, "Do this", "Do that")
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)