H hokousai XLDnaute Nouveau 28 Septembre 2019 #1 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. Pièces jointes HACCP2.xlsm 66.1 KB · Affichages: 10 Projet vierge.xlsm 184.4 KB · Affichages: 13
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.
H hokousai XLDnaute Nouveau 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
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
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
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
H hokousai XLDnaute Nouveau 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
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)
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 XLDnaute Nouveau 29 Septembre 2019 #22 Re la question est résolue. Vote positif 0 Vote négatif
H hokousai XLDnaute Nouveau 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
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
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
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?
H hokousai XLDnaute Nouveau 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
Re Si tu cliques sur Débogage puis que tu passes ta souris sur TextBox1.Value, qu'affiche l'InfoTip ? (petite "bulle" jaune)
H hokousai XLDnaute Nouveau 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
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 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 XLDnaute Nouveau 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
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