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

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
Merci à vous pour votre aide
Peponne31