Discussion :

[peponne31]

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

[Duddy]

Bonsoir le forum,

Pourquoi ne pas essayer :

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
18
19
20
21
22
23
24
25
26
Sub Imprimer()
 
    If ActiveSheet.Name = "Devis1page" And ActiveSheet.Range("iv21:a21").End(xlToRight).Column > 1 Then
      Call Imprimer_d1p
 
    ElseIf ActiveSheet.Name = "Devis2pages" And ActiveSheet.Range("iv21:a21").End(xlToRight).Column > 1 Then
      Call Imprimer_d2p
 
    ElseIf ActiveSheet.Name = "Devis" And ActiveSheet.Range("iv21:a21").End(xlToRight).Column > 1 Then
      Call Imprimer_d
 
    ElseIf ActiveSheet.Name = "Facture1page" And ActiveSheet.Range("iv21:a21").End(xlToRight).Column > 1 Then
      Call Imprimer_f1p
 
    ElseIf ActiveSheet.Name = "Facture2pages" And ActiveSheet.Range("iv21:a21").End(xlToRight).Column > 1 Then
      Call Imprimer_f2p
 
    ElseIf ActiveSheet.Name = "DemandeDevisFournisseurs" And ActiveSheet.Range("iv18:a18").End(xlToRight).Column > 1 Then
      Call Imprimer_ddf
 
    Else
     Message = MsgBox("Rien à Imprimer !", vbExclamation, "CONCEPT Habitat")
 
    End If
 
End Sub

Si j'ai bien compris ta demande cela devrait y répondre.

En fait, tu testes si la dernière colonne est > à A1 et si ce n'est pas le cas, tu imprimes.

Bon courage

[peponne31]

Bonsoir Marc58,

C'est bien ce que je recherchai.
Merci et bonne soirée.
Peponne31