Inserer une boite de dialogue?

[PAULUX]

Bonjour à tous, voilà dans ma facture j'ai une macro avec bouton impression

J'aimerai avoir au clic impression une boite de dialogue qui me demande le nb de feuille à imprimer, j'ai essayé plusieurs code copiés sur ce forum, mais rien ne se passe. 😀

Voici le code bouton imprim, si qq'un peut me rajouter ce petit plus msg, cela me facilitera bcp.

Code>> Sub imprimer_facture()
Range("C6:E6").Font.ColorIndex = 2
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("D6").Font.ColorIndex = 0
End Sub

Merci à vous et passez un très bon VEEK-END avec ce soleil.

 

[wilfried_42]

Re : Inserer une boite de dialogue?

bonjour paulux

Code>> Sub imprimer_facture()
Range("C6:E6").Font.ColorIndex = 2
nb = Val(InputBox("Donner un nombre de copie : "))
If nb = 0 Then nb = 1
ActiveWindow.SelectedSheets.PrintOut Copies:=nb, Collate:=True
Range("D6").Font.ColorIndex = 0
End Sub

 

[PAULUX]

Re : Inserer une boite de dialogue?

Bonjour et merci bcp pour cette réponse aussi rapide.

Peut-on ajouter annuler si erreur de saisie.

Merci et bon VEEK-end

 

[wilfried_42]

Re : Inserer une boite de dialogue?

re:

je traite l'erreur de saisie en mettant 1 dans nb

if nb = 0 then 'erreur de saisie ----> saisie 0 ou n'importe quoi

 

[PAULUX]

Re : Inserer une boite de dialogue?

Ok wilfried_42, voila ce que j'ai mis If nb = 0 Then nb = 0 , mais en fermant la fenêtre ou un clic annuler, une feuille sort quand même.😀

Merci

 

[wilfried_42]

Re : Inserer une boite de dialogue?

re

if nb=0 then exit sub

bon week end

 

[PAULUX]

Re : Inserer une boite de dialogue?

Merci wilfried_42, nikel tout baigne, excuse moi pour mon manque de connaissance, mais grace à vous tous je progresse.

Longue vie à ce forum

Cordialement

Paulux