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....

 

[YAP32]

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....

Bonsoir Sousou,

Merci pour ton travail!

• Après un PrintPreview via UserForm, le bouton Quitter donne une erreur d'automation, je regarder mais si tu ouvres le UserForm et que tu le quittes aucune erreur.
• Le bouton rafraichir ne fonctionne plus il envoi l'erreur Ucase du Textbox1

Pour exporter la sélection comment y faire ? (est-ce que l'exportaion qui est dans la feuille, pourrais fonctionner sur le UserForm ou sur "Sheets to Print")

Le bouton imprimer je l'ai déplacé dans UserForm. ci dessous



Bien cordialement,
@+

 

[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

 

[YAP32]

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

Je l'avais déjà appliqué mais le bouton Rafraichir ne fonctionne pas

Merci
A+

 

[sousou]

Pour moi il fonctionne

 

[YAP32]

Pour moi il fonctionne

Quand je clic sur Rafraichir (vider) ni le Combobox ni le TextBox se vide, peut-être que je me suis mal exprimé ou bien garder le bouton rafraichir et de faire une autre bouton Vider

 

[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

 

[YAP32]

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?

Revenir à un état dont le Combobox est vide / et le TextBox est vide comme s'il allait faire une nouvelle recherche mais comme j'avais écris peut-être juste ajouter un bouton Vider pour faire l'action

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

Je vais essayé dès que je peux MERCI par contre chez moi quand je clic sur chercher via destinataire exemple lettre M le UserForm clignote et il met du temps pour afficher la sélection pourtant je n'ai que 52 ou 53 lignes de data tandis que ici c'est instantané. Merci d'avance.

 

[sousou]

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

 

[YAP32]

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

Oui sur le classeur (PRINT EXPORT) chez moi aussi c'est immédiat pas de soucis,
C'est uniquement quand j'utilise dans mon classeur, là il devient lourd et clignote.

En tout cas MERCI pour ton aide.

Bien cordialement,