Ne pas imprimer les factures à 0

[Inone]

Bonjour

J'imprime mes factures, avec la macro jointe (trouvée ici), seulement il arrive que certaines factures soient à 0. Actuellement elles s'impriment, quelle est la commande à utiliser pour "économiser du papier"
Merci de votre aide

Thierry

 

[chris]

Re : Ne pas imprimer les factures à 0

Bonjour

Il n'y a aucune macro dans le classeur joint.

 

[Inone]

Re : Ne pas imprimer les factures à 0

Bonjour oui excusez moi je viens de rectifier

Bonne soiréee
Thierry

 

[CB60]

Re : Ne pas imprimer les factures à 0

Bonsoir
Cela doit suffire,

Sub ImpToutesFact()
  Dim Lig As Long, DerLig As Long
  Dim ShtD As Worksheet, ShtF As Worksheet
  ' Attribue chaque feuille à une variable
  Set ShtD = Sheets("DONNEES")
  Set ShtF = Sheets("FACT")
  ' Récupère la dernière ligne du tableau des données
  DerLig = ShtD.Range("A65536").End(xlUp).Row
  ' Pour chaque ligne du tableau
  For Lig = 4 To DerLig
    ' Vérifie que pas déjà facturée
    If ShtD.Range("h" & Lig) = "" Then
    
    Else
    If ShtD.Range("I" & Lig) = "" Then
      ' Inscrit le nom sur la facture
      ShtF.Range("H15") = ShtD.Range("C" & Lig)
      ' Inscrit la date du jour dans les données
      ShtD.Range("I" & Lig) = Format(Now(), "dd/mm/yyyy")
      ' Impression de la facture
      ActiveWindow.SelectedSheets.PrintPreview 'Out Copies:=1, Collate:=True
    End If
    End If
   
  Next
End Sub