Impressions en cascade

[sten83]

Bonjour, j'ai un fichier pour des immatriculations.
Colonne A = n° de place
Colonne B = Type de véhicule
Colonne C = Immatriculation

Je voudrai pour imprimer toutes les fiches en même temps mais uniquement celles qui ou il y a un type de véhicule.
Avec choix de l'imprimante.
Est-ce possible?

Merci a vous pour votre aide.

 

[JCGL]

Re : Impressions en cascade

Bonjour à tous,

Après avoir trié ton Tableau sur la colonne B en ordre alphabétique de A à Z...
Associe ce code à ton bouton :

Option Explicit

Sub Imprime()
Dim DerL&, Lig&
Application.Dialogs(xlDialogPrinterSetup).Show
DerL = WorksheetFunction.CountA(Feuil1.Columns(2))
For Lig = 2 To DerL
Feuil3.Range("C22") = Feuil1.Cells(Lig, 3)
'Feuil3.PrintPreview
Feuil3.PrintOut
Next
End Sub

A+ à tous

 

[JCGL]

Re : Impressions en cascade

Bonjour à tous,

Avec le Tri inclus dans la procédure :

Option Explicit

Sub Imprime()
    Dim DerL&, Lig&
    Application.Dialogs(xlDialogPrinterSetup).Show
    DerL = WorksheetFunction.CountA(Feuil1.Columns(2))
    Feuil1.Range("Tableau3").Sort , Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes
    Feuil3.Activate
    For Lig = 2 To DerL
        Feuil3.Range("C22") = Feuil1.Cells(Lig, 3)
        Feuil3.PrintPreview
        'Feuil3.PrintOut
    Next
    Feuil1.Activate
    Feuil1.Range("Tableau3").Sort , Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub

A+ à tous

 

[sten83]

Re : Impressions en cascade

Merci JCGL tu est un vrai pro , bon week end.