comment imprimer un tableau apres criteres avec macro

Y compris Power BI, Power Query et toute autre question en lien avec Excel
o
orguyrine
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 22 juillet 2016
Version d'Excel : 2013

Message par orguyrine » 27 février 2018, 15:32

ADVPSC fitre par critéres adhérents.xlsm
(104.97 Kio) Téléchargé 20 fois
Bonjour

je viens vers vous pour m'aider.
Je voudrai savoir comment imprimer un tableau après recherche multicritères avec un bouton
Toutes mes tentatives sont restées vaines

En vous remerciant

orguyrine

PS le fichier en pièce jointe
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'488
Appréciations reçues : 209
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 27 février 2018, 19:03

Bonsoir,

Essayer ce code via le passage par une feuille temporaire :
Sub imprimer()
    Dim sh_temp As Worksheet
    
    Sheets.Add after:=Sheets(Sheets.Count): Set sh_temp = Sheets(Sheets.Count)
    With Sheets("2018").ListObjects(1).Range
        .Copy sh_temp.Range("A1")
        For i = 1 To .Columns.Count
            sh_temp.Columns(i).ColumnWidth = .Columns(i).ColumnWidth
        Next i
    End With
    
    With sh_temp.PageSetup
    .Orientation = xlLandscape
    .Zoom = 50
    End With
    sh_temp.PrintOut: DoEvents
    
    Application.DisplayAlerts = False
    sh_temp.Delete
End Sub
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message