XL 2019 Bouton VBA pour imprimer une feuille

[hokousai]

Bonsoir le forum,

Je souhaiterai utiliser l’UserForm du classeur " Projet vierge " dans mon projet.

Mais je n’arrive pas transposer les codes dans l’UserForm de ma feuille " Index "

Un peu d’aide me retirai une épine du pied.

Merci par avance.

 

[hokousai]

Re,
Ok c'est fait et cela fonctionne

J'ai juste remplacé

TextBox1 = 1

par

TextBox1 = ""

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

Merci pour ton aide précieuse

 

[Staple1600]

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

 

[hokousai]

Re,
Ah ok .
Encore Merci

 

[Staple1600]

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)

 

[hokousai]

Re,
Oui Bien sure.

 

[Staple1600]

Re

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

 

[hokousai]

Re
la question est résolue.

 

[hokousai]

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

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

 

[Staple1600]

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?

 

[hokousai]

Re,
Le nom du TextBox est TextBox1

 

[Staple1600]

Re

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

 

[hokousai]

Re,
TextBox1.Value ="1"

 

[Staple1600]

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.

 

[Staple1600]

Re

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

 

[hokousai]

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

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