Bonjour,
J'ai réaliser un bouton "imprimer" auquel j'ai affecté une macro.
Sur celui-ci, j'ai plusieurs conditions :
J'aimerai que si la première condition est vraie :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Private Sub Imprimer_Click() If IsEmpty(Cells(6, 5)) = True Then If MsgBox("Vous n'avez pas saisi de numéro d'OT !", vbOKOnly + vbInformation, "Impression impossible") = vbOK Then Exit Sub End If If CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False Then MsgBox "Vous n'avez pas sélectionné de document(s) à imprimer", vbOKOnly + vbExclamation, "Impression" End If If CheckBox1.Value = True Or CheckBox2.Value = True Or CheckBox3.Value = True Then If MsgBox("Etes-vous sûr(e) de vouloir lancer l'impression ?", vbYesNo + vbInformation, "Impression") = vbYes Then sureprint End If End If End Subque les autres conditions ne s'appliquent pas. J'ai essayé avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 If IsEmpty(Cells(6, 5)) = True Then If MsgBox("Vous n'avez pas saisi de numéro d'OT !", vbOKOnly + vbInformation, "Impression impossible") = vbOK Then Exit Sub End Ifmais ça ne fonctionne pas...
Code : Sélectionner tout - Visualiser dans une fenêtre à part Exit Sub
Si qqn a une idée, merci de me venir en aide !
Partager