Problème macro impression

[marjo_38]

Bonjour,

J'ai une facture sur Excel dans laquelle j'ai ajouté une boîte de dialogue ou j'indique combien d'original et combien de copies je veux imprimer.
Sur le haut de la facture il y a une cellule avec une liste de choix qui comporte Original et duplicata. Ma macro imprime donc le nombre de copie choisi, mais je n'arrive pas à modifier dans la liste de choix original ou duplicata...... Ce qui fait que ma macro imprime que des factures avec écrit duplicata!!!😡
J'espère que je me suis pas trop mal exprimé...
Merci à celui ou celle qui pourra m'aider.🙂

 

[deudecos]

Re : Problème macro impression

Salut Marjo, le forum,

Avec ton fichier joint ca nous faciliterait bien les choses.
Ou alors un copier-coller du code qui va avec ta boite de dialogue...

Bonne journee

Olivier

 

[marjo_38]

Re : Problème macro impression

Voici ma macro :

Private Sub CommandButton1_Click()
Imprimer.Hide
Range("P22").Value = Imprimer.ComboBox1.Value
Range("P23").Value = Imprimer.ComboBox2.Value
Range("B4:N68").Select
Selection.PrintOut Copies:=[P22], Collate:=True
Range("L5").Select
Range("B4:N68").Select
Selection.PrintOut Copies:=[P23], Collate:=True
Range("A3").Select
End Sub

La ligne :
Range("L5").Select
C'est dans cette cellule qu'il y a une liste de choix et que je veux selectionner original dans ma liste pui s imprimer.

 

[deudecos]

Re : Problème macro impression

Quand tu valide, tu copie en premier les originaux,
Et donc, puisque rien n'est specifie par la suite (En cours d'execution de ta macro), il reste avec sa premiere selection...
Je te propose un petit changement :
apres Range("B4:N68")
ecris Range("L5")="Original"
a la place de Range("L5").Select
ecris Range("L5")="Duplicata"

Si ca imprime un original a la place d'une copie, change simplement les ecritures Original et Duplicata dans le code

Bonne journee

Olivier

 

[marjo_38]

Re : Problème macro impression

Merci beaucoup, c'était tellement simple que j'y ai pas pensé moi je cherchais à choisir dans ma liste de choix!!!
Merci encore