InputBox

Le
Patrick Catarsi
Bjr à tous,
J'ai un code qui fini par:
NBCopies = InputBox("Choisir un nombre?", "Nombre de Copies", "1")
Selection.PrintOut Copies:=NBCopies

Si je choisi un nombre pas de problèmes. Si je choisi annuler : message
d'erreur.
Comment faire ?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #4982041
Bonsoir,

Par exemple...
'-------------
NBCopies = InputBox("Choisir un nombre?", "Nombre de Copies", "1")
If NBCopies = "" Then Exit Sub
Selection.PrintOut Copies:=NBCopies
'-------------

--
Salutations
JJ


"Patrick Catarsi" news: C33FF33D.4E1F%
Bjr à tous,
J'ai un code qui fini par:
NBCopies = InputBox("Choisir un nombre?", "Nombre de Copies", "1")
Selection.PrintOut Copies:=NBCopies

Si je choisi un nombre pas de problèmes. Si je choisi annuler : message
d'erreur.
Comment faire ?



Patrick Catarsi
Le #4982031
Le 20/10/07 18:09, dans , « Jacky »

If NBCopies = "" Then Exit Sub


Ca marche , merci
Patrick

Publicité
Poster une réponse
Anonyme