tri selectif et impression via userform

[nrdz83]

Bonjour à tous,
je cherche à faire un tri sélectif et une impression du résultat via un userform.
Dans la feuille "base de données" bouton "choisir impression" onglet "tri sélectif et impression", si je sélectionne les donnéesdans les zones de liste modifiable (par exemple, tous les maitres,masculin,bat), réussir à imprimer que le résultat de ce tri.
Déja est ce réalisable ?
d'avance un grand merci mes amitiés 😎
lien dossier >>>>Cijoint.fr - Service gratuit de dépôt de fichiers

 

[BERRACHED said]

Re : tri selectif et impression via userform

Salut,nrdz83

tu veux dire imprimer le contenu de l'Userform puisque ton tri est fait a l'aide de tes combobox ?

Cordialement

 

[nrdz83]

Re : tri selectif et impression via userform

bonjour said non je souhaites imprimer le résultat de ma base de donnée mais en faisant un tri sélectif via les combobox. Merci 🙄

 

[nrdz83]

Re : tri selectif et impression via userform

bonsoir je redemande vos lumières, et repost pour faire monter ce post.
Mes amitiés 🙄

 

[Compte Supprimé 979]

Re : tri selectif et impression via userform

Salut Mister Bean (Alias Nrdz83)

Ca faisait longtemps 😀

Tu trouveras ci-dessous le lien vers ton fichier modifié
Cijoint.fr - Service gratuit de dépôt de fichiers

C'est une possibilité, en utilisant le filtrage automatique 😉

A+

 

[nrdz83]

Re : tri selectif et impression via userform

Bonjour bruno M45 et oui ça faisait longtemps et plaisir de te relire. Super ta réussi ça marche, par contre userform reste affiché, faut il rajouter un code afin qu'il se ferme lors de l'aperçu?
Merci j'ai beau lire le code je comprend pas comment tu as fait mes amitiés et encore merci pour tout

 

[Compte Supprimé 979]

Re : tri selectif et impression via userform

Re,

Change le code du bouton comme suit

Private Sub BnApperçu2_Click()
  Call FiltrageLigne
  ' Lancer la previsualisation
  With Sheets("base de données")
    DerLig = .Range("A" & Rows.Count).End(xlUp).Row
    With .PageSetup
      .PrintArea = "$A$2:$P$" & DerLig
      .Orientation = xlLandscape
      .FitToPagesWide = 1
      .FitToPagesTall = False
    End With
    ' Masquer l'UserForm avant l'apperçu
    Me.Hide
    ' Apperçu de la feuille
    .PrintPreview
    ' Afficher de nouveau l'Userform
    Me.Show
    ' Désactive le filtrage automatique
    .Range("A2").AutoFilter
  End With
End Sub

A+

 

[nrdz83]

Re : tri selectif et impression via userform

😎merci bruno m45 tout fonctionne impeccable le top un grand grand merci. Une dernière petite question au sujet du forum tu sais peut être, quand le problème est résolu faut il l'indiquer aux autres utilisateurs? afin qu'ils ne cherchent plus ?
Bye et bon week end amitiés