Bonjour,

J'ai réaliser un bouton "imprimer" auquel j'ai affecté une macro.

Sur celui-ci, j'ai plusieurs conditions :

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 Sub
J'aimerai que si la première condition est vraie :
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 If
que les autres conditions ne s'appliquent pas. J'ai essayé avec
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Exit Sub
mais ça ne fonctionne pas...

Si qqn a une idée, merci de me venir en aide !