Christophe78129
XLDnaute Nouveau
Bonjour,
Je suis en train de créer un classeur mais je reste bloqué sur l'écriture d'une macro.
J’arrive à imprimer en mettant correctement la cellule « secteur » (A5) avec incrémentation et arrêt de l’impression à la dernière cellule non vide, mais je n’arrive pas à intégrer la cellule « immatriculation » (B5) sur la feuille que j’imprime.
Si quelqu’un aurai une solution.
Merci d’avance
Cordialement
Je suis en train de créer un classeur mais je reste bloqué sur l'écriture d'une macro.
J’arrive à imprimer en mettant correctement la cellule « secteur » (A5) avec incrémentation et arrêt de l’impression à la dernière cellule non vide, mais je n’arrive pas à intégrer la cellule « immatriculation » (B5) sur la feuille que j’imprime.
Si quelqu’un aurai une solution.
Merci d’avance
VB:
Private Sub Impression_carburant_Click()
'Impression des feuilles mensuelles de prise de carburant
Dim c1 As Range, c2 As Range, i&
With Sheets("carburant")
Set c1 = .[B7] 'cellule A5 " affectation " secteur
Set c2 = .[D9] 'cellule B5 " affectation " immatriculation
.PageSetup.PrintArea = "A1:K22"
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
End With
With Sheets("Affectation").[A5].CurrentRegion
For i = 2 To .Rows.Count
'impression feuilles de prise carburant
c1 = .Cells(i, 1): c1.Parent.PrintPreview ' PrintOut
Next
End With
End Sub