Comment imprimer un tableau apres criteres avec macro

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

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
Rechercher des sujets similaires à "comment imprimer tableau criteres macro"