Discussion :

[mouftie]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antonysansh]

Ton Cancel = True est dans la mauvaise partie du IF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mouftie]

Bonsoir Antony,
Merci de ton aide, mais cela ne change rien ; l'impression à toujours lieu...

[tmihob]

l'impression à toujours lieu...

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("B4") = "" Then

essayez avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ActiveSheet.Range("B4") = "" Then

[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.