Bonjour tout le monde,
Je vous remercie par avance pour le temps que vous allez me consacrer. Alors je rencontre un problème dans l'édition d'une macro qui imprime une liste de documents en fonctions de "Checkbox" renvoyant 1 ou 0.. Cependant, le nombre d'impression est variable par document.
En colonne A j'ai l'intitulé des feuilles / B : 1 ou 0 qui renvoie l'autorisation d'imprimer ou non , C "Check Box" qui renvoie1 ou 0 sur les colonnes B et en D je souhaiterai instaurer la variable Copies := à utiliser à chaque ligne au travers d'une boucle.
Merci pour l'aide.
Bonne journée
Je vous remercie par avance pour le temps que vous allez me consacrer. Alors je rencontre un problème dans l'édition d'une macro qui imprime une liste de documents en fonctions de "Checkbox" renvoyant 1 ou 0.. Cependant, le nombre d'impression est variable par document.
En colonne A j'ai l'intitulé des feuilles / B : 1 ou 0 qui renvoie l'autorisation d'imprimer ou non , C "Check Box" qui renvoie1 ou 0 sur les colonnes B et en D je souhaiterai instaurer la variable Copies := à utiliser à chaque ligne au travers d'une boucle.
Merci pour l'aide.
Bonne journée
VB:
Sub imprime()
Dim c As Range
With Feuil2
For Each c In .Range("b2:b" & .Range("b" & .Rows.Count).End(xlUp).Row)
If c.Value And c.Offset(, -1) <> "" Then
On Error GoTo erreur
Sheets(c.Offset(, -1).Value).PrintPreview
'Valider laligne ci-dessous pour imprimer et supprimer celle ci-dessus
'Sheets(C.Offset(, -1).Value).PrintOut
End If
Next
End With
Exit Sub
erreur:
MsgBox "Feuille " & c.Offset(, -1) & " inexistante"
Resume Next
Sheets("FEUILLE (2)").Select
Range("D1").Select
End Sub