Y
Yvon
Guest
J'ai encore un pb de syntaxe voila le deal: faire apparaitre le message 'Mettre dans l'imprimante du papier à entête' avant que l'impression se lance, si au moins une checkbox est true
Private Sub CommandButton1_Click()
'impression conditionnelle
If menuimpression5.CheckBox1 = True Then Sheets(3).PrintOut
If menuimpression5.CheckBox2 = True Then Sheets(5).PrintOut
If menuimpression5.CheckBox3 = True Then Sheets(2).PrintOut
If menuimpression5.CheckBox4 = True Then Sheets(7).PrintOut
If menuimpression5.CheckBox5 = True Then Sheets(10).PrintOut
If menuimpression5.CheckBox6 = True Then Sheets(4).PrintOut
If menuimpression5.CheckBox7 = True Then Sheets(9).PrintOut
If (CheckBox1 = True Or CheckBox2 etc...= True) Then vaiable = MsgBox = ('Insérez dans l'imprimante du papier blanc')
End Sub
Merci d'avance pour le coup de pouce, je suis complètement bloqué, j'ai essayé plein de soluce rien ne marche.
a++
Yvon
Private Sub CommandButton1_Click()
'impression conditionnelle
If menuimpression5.CheckBox1 = True Then Sheets(3).PrintOut
If menuimpression5.CheckBox2 = True Then Sheets(5).PrintOut
If menuimpression5.CheckBox3 = True Then Sheets(2).PrintOut
If menuimpression5.CheckBox4 = True Then Sheets(7).PrintOut
If menuimpression5.CheckBox5 = True Then Sheets(10).PrintOut
If menuimpression5.CheckBox6 = True Then Sheets(4).PrintOut
If menuimpression5.CheckBox7 = True Then Sheets(9).PrintOut
If (CheckBox1 = True Or CheckBox2 etc...= True) Then vaiable = MsgBox = ('Insérez dans l'imprimante du papier blanc')
End Sub
Merci d'avance pour le coup de pouce, je suis complètement bloqué, j'ai essayé plein de soluce rien ne marche.
a++
Yvon