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