Arrêter la macro si OK dans msgbox

Version imprimable

Bonjour,

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

Sur celui-ci, j'ai plusieurs conditions :

Code:

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:

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:

Exit Sub

mais ça ne fonctionne pas...

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

11/01/2013, 14h20
ZimCri

Bonjour,

Tu as essayé avec des "Else"??
11/01/2013, 14h45
zazrun

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

Tu peux essayer comme ca :

Code:

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

11/01/2013, 15h15
zazrun

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

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:

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

11/01/2013, 15h54
zazrun

Bingo,

Je n'ai pas bien compris la subtilité et la différence avec ta proposition précédente. Mais tu as trouvé la solution. Merci
11/01/2013, 15h56
ZimCri

En vérité ce que j'ai fais avant c'etait n'importe quoi... :scarymov:

Avant les conditions ne s'executait seulement si on repondait autre chose que Ok au Msgbox, chose qui est impossible...

Content d'avoir pu t'aider. ;)