checkbox

[foster_1883]

Bonjour à tous, (J'y prend goût à ce forum magnifique!)
Voila, quand je clique sur mon commandbouton2 dans on userform1, j'ai la suite suivante qui s'éxécute, (tout fonction numéro1!)

'envoi par mail
Private Sub CommandButton2_Click()
Workbooks("DEV_VERSION1_2015_DENYSF 2.xlsm").SendMail Recipients:=Range("G15").Value, _
Subject:="Rappot de balancement - Délices en vrac : " & Format(Date, "ddd mmmm yyyy"), _
ReturnReceipt:=Trueü

'message confirmation
MsgBox "LE BALANCEMENT À BIEN ÉTÉ ENVOYÉ À: " & _
Sheets("X").Range("G16") & vbLf & _
"MERCI"



'PDF
Dim Nomfichier As String, Chemin As String
Nomfichier = Format(Now() - 1, "dd_mmmm_YY")
Chemin = Sheets("X").Range("N21") & "\"

J'aimerais que, la partie du code qui envoi le courriel, ne soit activé que si mon checkbox1, dans mon user form1 est coché, cela est possible ?

 

[CPk]

Re : checkbox

Private Sub CommandButton2_Click()
If CheckBox1 = True then
...
...
...
...
end if

remplacer les ... par votre code à executer si le checkbox est coché...

 

[foster_1883]

Re : checkbox

le seul problèeme que j'ai, c'est que ma checkbox ne se "souvient" pas du choix, (coché ou non). Selon le parametre que je lui donne dans value, est elle soit toujours true ou toujours false.

 

[CPk]

Re : checkbox

Une checkbox n'a pas de capacité à recevoir de valeur, elle a soit un état true soit un état false et le codage se fait en fonction de ça...