XL 2019 UserForm Imprimer - Exporter la sélection du "ListView1".

[YAP32]

Bonjour,

Voilà j'ai un tableau client fictif dont j'ai un UserForm qui permet de choisir par sélection exemple ici via type de recherche : destinataire et une lettre pour les clients qui commence par la lettre M jusque là tout va bien.

Mais une fois sélectionné, je souhaite avoir l'aperçue avant l'impression (PrintPreview) uniquement pour ceux qui sont sélectionnés et non de toute ma feuille comme mon cas et la même chose pour l'exportation en "csv" via le UserForm avec ma feuille l'exportation fonctionne.

Merci d'avance
@+

 

[sousou]

Bonjour à tous
Si ça peu aider....
J'ai repris le fichier de chti160 et j'ai modifier quelques trucs...
entre autres, dans la listview, tu n'imprimes que les lignes sélectionnées, j'ai remis le bouton imprimer, et changer un peu la façon de faire.
A voir....

 

[sousou]

Pour ta première remarque, tu as changé le code du commande4, j'ai mis tes changement en commentaire
Pour la seconde, j'ai corrigé
Pour la troisème, j'ai adapté ton code sur le bouton export csv (xml) qui fonctionne avec les même critères que imprimer

 

[sousou]

re
j'ai modifié le code, pour que l'userform soit caché lors de la preview, je pense que c'est ce que tu voulais

 

[sousou]

Pour moi il fonctionne

 

[sousou]

Rafraichir, pour moi, c 'est refaire la même opération, pour voir si les données ont changées,
dis mois ce que tu entends par rafraichir
Revenir à quel état?

 

[sousou]

si tu veux revenir au départ
modifiecomme ceci
Private Sub CommandButton1_Click()
TextBox1.Text = ""
ComboBox1.ListIndex = 0
rechercher (StrSearch)
End Sub

 

[sousou]

En ce qui me concerne, je n'ai pas ce phénomène. affichage immédiat

 

[YAP32]

Bonjour,

Est-ce que quelqu'un aurai une idée svp!

Merci
@+

 

[ChTi160]

Bonsoir YAP32
Je pense qu'il faut utiliser un Filtre de tes Données du Tableau , Via le Userform ainsi tu n'auras que les données Filtrées qui apparaitrons sur Ta feuille a Imprimer.
Jean marie

 

[YAP32]

Bonsoir YAP32
Je pense qu'il faut utiliser un Filtre de tes Données du Tableau , Via le Userform ainsi tu n'auras que les données Filtrées qui apparaitrons sur Ta feuille a Imprimer.
Jean marie

Bonsoir Chti160,

Merci pour ton aide j'ai essayé avec filtre sur mon tableau mais rien n'a changé.
YAP32

 

[YAP32]

Bonsoir Chti160,

Merci pour ton aide j'ai essayé avec filtre sur mon tableau mais rien n'a changé.
YAP32

Bonjour Chti160,

J'ai essayé avec le code ci-dessous mais il efface complètement mon tableau sauf dernier ligne puis plus rien dans PPview

Merci si tu pourrais me dire où je coule.

Private Sub CommandButton4_Click()
Dim I As Integer

  With Sheets("Historique_Facture")
    ''.Range("T_Historique").ClearContents
    .ListObjects("T_Historique).Resize .Range("A1:K1").Resize(Me.ListView1.ListItems.Count + 1)
    For I = 1 To Me.ListView1.ListItems.Count
      .Range("A" & I + 1).Value = Me.ListView1.ListItems(I).ListSubItems(1).Text
      .Range("B" & I + 1).Value = Me.ListView1.ListItems(I).ListSubItems(2).Text
      .Range("C" & I + 1).Value = Me.ListView1.ListItems(I).ListSubItems(3).Text
      .Range("D" & I + 1).Value = Me.ListView1.ListItems(I).ListSubItems(4).Text
      .Range("E" & I + 1).Value = Me.ListView1.ListItems(I).ListSubItems(5).Text
      .Range("F" & I + 1).Value = Me.ListView1.ListItems(I).ListSubItems(6).Text
      .Range("G" & I + 1).Value = Me.ListView1.ListItems(I).ListSubItems(7).Text
      .Range("H" & I + 1).Value = Me.ListView1.ListItems(I).ListSubItems(8).Text
      .Range("I" & I + 1).Value = Me.ListView1.ListItems(I).ListSubItems(9).Text
      .Range("J" & I + 1).Value = Me.ListView1.ListItems(I).ListSubItems(10).Text
      .Range("K" & I + 1).Value = Me.ListView1.ListItems(I).ListSubItems(11).Text
      
    Next I
    Me.Hide
    .PrintPreview
    UserForm2.Show
  End With
End Sub

Merci

 

[ChTi160]

Bonjour YAP32
Tu pourrais aussi pour simplifier passer par Une Feuille qui Contiendrait les données à Imprimer !
voir Vidéo
Jean marie

 

[YAP32]

Bonjour YAP32
Tu pourrais aussi pour simplifier passer par Une Feuille qui Contiendrait les données à Imprimer !
voir Vidéo
Jean marie

Bonjour Chti160,
Les données à imprimer de mon tableau (T_Historique) collectés des données suite à une incrémentation de facture si je créée une nouvelle feuille ça va être le même scenario car les lignes +1
Merci

 

[ChTi160]

Bonjour le Fil

Je te mets le fichier Non finalisé !
J'ai ajouté une feuille "Sheet To Print"
J'y ai créé un Tableau Structuré nommé "t_Sheet_Print"
Puis, j'ai mis pour tester un Bouton sur cette Feuille "PrintPreview"
J'ai aussi modifié le format des Colonne "Sous-total HT" et "Total TTC"
J'ai masqué, pour le test les deux Boutons "Imprimer" et "Exporter en CSV"
Voir le Bouton sur la feuille "Sheet To Print" qui n'est visible , que s'il y a des données à Imprimer !
Tu regardes et tu me dis !

si besoin je peux commenter le Code !

Peux-tu m'expliquer :​

Les données à imprimer de mon tableau (T_Historique) collectés des données suite à une incrémentation de facture si je créée une nouvelle feuille ça va être le même scenario car les lignes +1 ​

Bonne fin de Journée

Jean marie​