Cellule obligatoire avant impression

[Tchingum]

Bonjour,
Je recherche une macro pour obliger les pesonnes à remplir une ou plusieurs cellule avant de pouvoir l'imprimer via une macro.

Il faudrait aussi que je puisse intégrer cette nouvelle macro dans la celle de l'impression.
qu'il n'y a pas de bébogage à faire.

Suis-je assez claire.

Salutations et merci d'avance.

Tchingum

 

[Pierrot93]

Re : Cellule obligatoire avant impression

Bonjour Tchingum

regarde le code ci dessous, à placer dans le module "ThisWorkbook", teste la cellule A1 de la feuille nommé "Feuil1", imprime si OK à l'intérieure de la cellule.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheets("Feuil1").Range("A1").Value <> "OK" Then Cancel = True
End Sub

bon après midi
@+

 

[tototiti2008]

Re : Cellule obligatoire avant impression

Bonjour Tchingum,

Oui, c'est possible avec l'évènement Workbook_BeforePrint
Mais ça empêchera l'aperçu avant impression aussi...

Edit : Bonjour Pierrot93, trop lent, moi

 

[Tchingum]

Re : Cellule obligatoire avant impression

Merci les amis