XL 2019 Bouton VBA pour imprimer une feuille

H

hokousai

Guest

• 29 Septembre 2019

• #16

Re,
Ok c'est fait et cela fonctionne

J'ai juste remplacé

VB:

TextBox1 = 1

par

VB:

TextBox1 = ""

Pour que le la case soit vide au démarrage de la boite de dialogue.

Merci pour ton aide précieuse

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #17

Re

Je ne parlais pas de cet ajout mais de celui-ci
Copies:=TextBox1.Value
Et j'avais mis 1 comme valeur par défaut pour éviter que cela bug avec cet ajout 🙄

 

Vote positif 0 Vote négatif

H

hokousai

Guest

• 29 Septembre 2019

• #18

Re,
Ah ok .
Encore Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #19

Re

Donc je répète ma question:
Est-ce que tu as testé l'impression?
(avec un nombre supérieur à 1 saisi dans TextBox1)

 

Vote positif 0 Vote négatif

H

hokousai

Guest

• 29 Septembre 2019

• #20

Re,
Oui Bien sure.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #21

Re

Et donc?
Le test est OK
Si oui la question est résolue alors?

 

Vote positif 0 Vote négatif

H

hokousai

Guest

• 29 Septembre 2019

• #22

Re
la question est résolue.

 

Vote positif 0 Vote négatif

H

hokousai

Guest

• 29 Septembre 2019

• #23

Re,
arfff !
J'ai transposé les codes et le UserForm dans mon classeur original
Cela ne fonctionne plus
il y a une erreur

VB:

If .Selected(i) Then Sheets(.List(i)).PrintOut copies:=TextBox1.Value

et fonctionne très bien sur le classeur que j'ai joint plus haut dans le fil

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #24

Re

1) Ça ne fonctionne pas ou plus : ça ne veut rien dire en soi
(quel est le message d'erreur qui s'affiche?)

2) Quel est le nom du TextBox dans l'userform de ton classeur original?

 

Vote positif 0 Vote négatif

H

hokousai

Guest

• 29 Septembre 2019

• #25

Re,
Le nom du TextBox est TextBox1

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #26

Re

Si tu cliques sur Débogage puis que tu passes ta souris sur TextBox1.Value, qu'affiche l'InfoTip ?
(petite "bulle" jaune)

 

Vote positif 0 Vote négatif

H

hokousai

Guest

• 29 Septembre 2019

• #27

Re,
TextBox1.Value ="1"

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Septembre 2019

• #28

Re

Tu confirmes qu'avec l'autre fichier, tu fais une impression papier pour de vrai ?
(pas juste un Aperçu avant Impression)

Si oui, il te faudra comparer les deux fichiers pour voir où se situe les différences.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Septembre 2019

• #29

Re

Si tu testes ceci, il se passe quoi ?
If .Selected(i) Then Sheets(.List(i)).PrintOut Copies:=3

 

Dernière édition: 30 Septembre 2019

Vote positif 0 Vote négatif

H

hokousai

Guest

• 30 Septembre 2019

• #30

Re,
Oui je confirme qu'avec l'autre fichier, je fais une impression papier pour de vrai sur mon imprimante.
Voila ce qui ce passe avec le code

VB:

=If .Selected(i) Then Sheets(.List(i)).PrintOut Copies:=3

 

Vote positif 0 Vote négatif