Bonjour à tous,
Je voudrais interdire l'impression si la ligne A21 est vide dans les 5 premières feuilles et si A18 est vide dans la dernière feuille avec le message d'erreur
rien à imprimer ou feuille vierge. voici mon code
Merci à vous pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Sub Imprimer() If ActiveSheet.Name = "Devis1page" Then Imprimer_d1p ElseIf ActiveSheet.Name = "Devis2pages" Then Imprimer_d2p ElseIf ActiveSheet.Name = "Devis" Then Imprimer_d ElseIf ActiveSheet.Name = "Facture1page" Then Imprimer_f1p ElseIf ActiveSheet.Name = "Facture2pages" Then Imprimer_f2p ElseIf ActiveSheet.Name = "DemandeDevisFournisseurs" Then Imprimer_ddf Else Message = MsgBox("Rien à Imprimer !", vbExclamation, "CONCEPT Habitat") End If End Sub
Peponne31
Partager