XL 2013 Problème "recopie" cellule et incrément

[Christophe78129]

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

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

Cordialement

 

[Christophe78129]

J'ai oublié de mettre mon deuxième problème dans la macro, ne pas imprimer la feuille si le véhicule est électrique, qui est préciser dans la colonne C (C5 pour le 1er véhicule) de la feuille affectation signalé par un "X" s'il est électrique.
Cordialement

 

[sylvanu]

Bonjour Christophe,
Votre n'auriez pas un fichier simplifié ?
C'est pas tout à fait clair dans ma tête.

 

[herve62]

Bonjour
Pour moi on dirait que la boucle for i= 2 ... ?? alors que la région débute en 5

 

[Christophe78129]

Bonsoir,
Je vous joint le fichier afin que vous puissiez voir. En plus, après plusieurs essais pour imprimer la feuille de "prise en compte", je me retrouve avec des feuilles vierges, je voudrai imprimer jusqu'à la 1ere ligne vide et si cela est sur 2 pages avoir l'entête (les 2 premières lignes) sur la page 2.
Merci de votre aide.