Inserer une boite de dialogue?

wilfried_42

XLDnaute Barbatruc

• 21 Avril 2007

• #2

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

P

PAULUX

XLDnaute Occasionnel

• 21 Avril 2007

• #3

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 21 Avril 2007

• #4

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

 

Vote positif 0 Vote négatif

P

PAULUX

XLDnaute Occasionnel

• 21 Avril 2007

• #5

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

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 21 Avril 2007

• #6

Re : Inserer une boite de dialogue?

re

if nb=0 then exit sub

bon week end

 

Vote positif 0 Vote négatif

P

PAULUX

XLDnaute Occasionnel

• 21 Avril 2007

• #7

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

 

Vote positif 0 Vote négatif