Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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
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
Cordialement
 

Christophe78129

XLDnaute Nouveau
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
 

Christophe78129

XLDnaute Nouveau
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.
 

Pièces jointes

  • véhicules.xlsm
    56.5 KB · Affichages: 2

Discussions similaires

Réponses
1
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…