Ma macro BeforePrint ne fonctionne pas

Version imprimable

Bonjour,
je voudrais vérifier qu'une cellule est bien remplie avant l'impression.
Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Workbook_BeforePrint(Cancel As Boolean) If Range("B4") = "" Then Call MsgBox("Saisie de B4 obligatoire" _ & vbCrLf & "" _ & vbCrLf & "Merci" _ , vbExclamation, "Tableur") Range("B4").Select Else Cancel = True End If End Sub
Or si ma cellule B4 est vide, l'impression a quand même lieu.

Ce code est bien dans thisWorkbook.
Ce que je ne comprends pas non plus, c'est que j'ai mis des points d'arrêt qui n'arrêtent rien...
Est-ce que quelqu'un voit mon erreur, svp.
Merci

Ton Cancel = True est dans la mauvaise partie du IF

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("B4") = "" Then
    Call MsgBox("Saisie de B4 obligatoire" _
                & vbCrLf & "" _
                & vbCrLf & "Merci" _
                , vbExclamation, "Tableur")
    Range("B4").Select
    Cancel = True
End If
End Sub

18/05/2015, 17h05
mouftie

Bonsoir Antony,
Merci de ton aide, mais cela ne change rien ; l'impression à toujours lieu...
19/05/2015, 06h30
tmihob

Citation:

Envoyé par mouftie

l'impression à toujours lieu...

Bonjour,

:weird::weird: La cellule à verifier ne fait référence à aucune feuille

Code:

If Range("B4") = "" Then

essayez avec : ;)

Code:

If ActiveSheet.Range("B4") = "" Then
19/05/2015, 08h37
mouftie

bonjour tmihob,
J'avais essayé ta proposition, ça ne changeait rien, car je n'avais qu'un fichier d'ouvert
Après avoir relancé la machine, tout est rentré dans l'ordre.
Merci à tous pour votre aide.:oops: