Macro si cellule vide

[killerjo]

J'ai recuperé ce code qui me va presque bien

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If [A1] = "" Then
MsgBox ("La cellule A1 doit être remplie avant de pouvoir imprimer le document")
Cancel = True
End If
End Sub

SAUF que ca le fait sur toutes les pages de mon ficher. Je voudrais que cette macro ne s'applique qu'à la page ACCUEIL. Comme je dois orthographier ma formule ?

Merci pour votre aide.

 

[Aliboron]

Est-ce que ça ne doit s’appliquer que lorsque tu imprimes la page ACCUEIL ? Ou est-ce que ça concerne l’impression de n’importe quelle page mais que c’est uniquement la cellule A1 de la feuille ACCUEIL qui sert de déclencheur ?

 

[Aliboron]

Faute d'en savoir plus, dans un premier temps on va s'en tenir au plus simple : la contrainte ne concerne que la feuille "ACCUEIL", les autres feuilles s'impriment librement. Il faut alors modifier légèrement la macro, par exemple ainsi :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "ACCUEIL" And [A1] = "" Then
MsgBox ("La cellule A1 doit être remplie avant de pouvoir imprimer le document")
Cancel = True
End If
End Sub

 

[killerjo]

C'est parfait, c'est ce que je cherchais (uniquement la feuille ACCUEIL. Merci à toi