Discussion :

[zazrun]

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 !

[ZimCri]

Bonjour,

Tu as essayé avec des "Else"??

[zazrun]

Non, mais je ne vois pas vraiment où les mettre les "else"...

[ZimCri]

Tu peux essayer comme ca :

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
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
 
    Else
 
 
        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 If
 End If
 
End Sub

[zazrun]

Merci, ton code fonctionne pour la 1ère condition, mais ne prends malheureusement pas en compte les autres conditions...

[ZimCri]

hum.. je pense que j'ai pas compris exactement comment fonctionne ta fonction, tu veux tester les valeurs de checkbox dans quel cas?

Si tu veux faire ca quand la cellule (6,5) n'est pas vide, ce code devrait fonctionner :

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
Private Sub Imprimer_Click()
 
If IsEmpty(Cells(6, 5)) = True Then
    answer = MsgBox("Vous n'avez pas saisi de numéro d'OT !", vbOKOnly + vbInformation, "Impression impossible")
Else
 
 
 
        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 If
 
End Sub