Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
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" a écrit dans le message de 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 ?
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" <patrick-catarsi@orange.fr> a écrit dans le message de
news: C33FF33D.4E1F%patrick-catarsi@orange.fr...
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 ?
Par exemple... '------------- NBCopies = InputBox("Choisir un nombre?", "Nombre de Copies", "1") If NBCopies = "" Then Exit Sub Selection.PrintOut Copies:=NBCopies '-------------
-- Salutations JJ
"Patrick Catarsi" a écrit dans le message de 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 20/10/07 18:09, dans , « Jacky » a écrit :
If NBCopies = "" Then Exit Sub
Ca marche , merci Patrick
Le 20/10/07 18:09, dans efpYYOzEIHA.3980@TK2MSFTNGP03.phx.gbl, « Jacky »
<dupont@martin.fr> a écrit :