bonjour
je suis novice en vba
je suis dans un fichier excel qui contins 15 pages
je voudrais metre un bouton de commande qui me permets d'imprimer uniquement
la page 1, la page 6 ,et la page 11
un petit bout de code serait la bienvenue
merci de votre aide!
ach, ce n'est pas du tout ce que je voulais dire, clément...pour moi, par le
ventre, c'est l'équivalent d'une suite discontinue (1,6,11)
OK.
Mais, dans mon Excel 2002, si je fais Fichier-Imprimer, je me retrouve avec la possibilié, en bas à gauche, d'imprimer Seulement la sélection, la feuille en cours ou les feuilles sélectionnées préalalablement.
Si mes souvenirs sont Exacts, Excel 97, pemettait, à la même place, d'écrire des numéros de pages discontinues.
"jps" a écrit dans le message de news:%
jps
"ClémentMarcotte" a écrit dans le message de
news: %
Bonjour
mon imprimante ne permet pas d'imprimer "par le ventre" ou bien je ne
Là, tu me perds avec ton "par le ventre". Chez nous, on dit que quand une
femme mariée a pris son mari "par le ventre", c'est parce qu'elle est une
bonne cuisinière.
ach, ce n'est pas du tout ce que je voulais dire, clément...pour moi, par
le
ventre, c'est l'équivalent d'une suite discontinue (1,6,11)
OK.
Mais, dans mon Excel 2002, si je fais Fichier-Imprimer, je me retrouve avec
la possibilié, en bas à gauche, d'imprimer Seulement la sélection, la
feuille en cours ou les feuilles sélectionnées préalalablement.
Si mes souvenirs sont Exacts, Excel 97, pemettait, à la même place, d'écrire
des numéros de pages discontinues.
"jps" <vaderetrosp@mas> a écrit dans le message de
news:%23GBkyUTnFHA.1048@tk2msftngp13.phx.gbl...
jps
"ClémentMarcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de
news: %23XWETMQnFHA.2920@TK2MSFTNGP14.phx.gbl...
Bonjour
mon imprimante ne permet pas d'imprimer "par le ventre" ou bien je ne
Là, tu me perds avec ton "par le ventre". Chez nous, on dit que quand
une
femme mariée a pris son mari "par le ventre", c'est parce qu'elle est
une
ach, ce n'est pas du tout ce que je voulais dire, clément...pour moi, par le
ventre, c'est l'équivalent d'une suite discontinue (1,6,11)
OK.
Mais, dans mon Excel 2002, si je fais Fichier-Imprimer, je me retrouve avec la possibilié, en bas à gauche, d'imprimer Seulement la sélection, la feuille en cours ou les feuilles sélectionnées préalalablement.
Si mes souvenirs sont Exacts, Excel 97, pemettait, à la même place, d'écrire des numéros de pages discontinues.
"jps" a écrit dans le message de news:%
jps
"ClémentMarcotte" a écrit dans le message de
news: %
Bonjour
mon imprimante ne permet pas d'imprimer "par le ventre" ou bien je ne
Là, tu me perds avec ton "par le ventre". Chez nous, on dit que quand une
femme mariée a pris son mari "par le ventre", c'est parce qu'elle est une
bonne cuisinière.
michdenis
Bonsoir JPS, Clément,
Une procédure signée par Frédéric Sigonneau sur le sujet :
à cause de la fonction Split, elle requiert excel 2000 ou plus récent. et dans la boîte de dialogue, le numéro des pages doit être séparé par un point-virgule
'------------------------------- Sub SelectionDePages() Dim i&, Pages$, ArrPages Pages = _ InputBox("Saisir les pages à imprimer sur ce modèle :" & vbLf & _ "1;2;3;12;14;25;33", "Pages à imprimer") ArrPages = Split(Pages, ";") For i = LBound(ArrPages) To UBound(ArrPages) x = CLng(ArrPages(trim(i))) ActiveSheet.PrintOut From:=x, To:=x, Preview:úlse Next i End Sub '-------------------------------
Salutations!
"ClémentMarcotte" a écrit dans le message de news:
ach, ce n'est pas du tout ce que je voulais dire, clément...pour moi, par le
ventre, c'est l'équivalent d'une suite discontinue (1,6,11)
OK.
Mais, dans mon Excel 2002, si je fais Fichier-Imprimer, je me retrouve avec la possibilié, en bas à gauche, d'imprimer Seulement la sélection, la feuille en cours ou les feuilles sélectionnées préalalablement.
Si mes souvenirs sont Exacts, Excel 97, pemettait, à la même place, d'écrire des numéros de pages discontinues.
"jps" a écrit dans le message de news:%
jps
"ClémentMarcotte" a écrit dans le message de
news: %
Bonjour
mon imprimante ne permet pas d'imprimer "par le ventre" ou bien je ne
Là, tu me perds avec ton "par le ventre". Chez nous, on dit que quand une
femme mariée a pris son mari "par le ventre", c'est parce qu'elle est une
bonne cuisinière.
Bonsoir JPS, Clément,
Une procédure signée par Frédéric Sigonneau sur le sujet :
à cause de la fonction Split, elle requiert excel 2000 ou plus récent.
et dans la boîte de dialogue, le numéro des pages doit être séparé par un point-virgule
'-------------------------------
Sub SelectionDePages()
Dim i&, Pages$, ArrPages
Pages = _
InputBox("Saisir les pages à imprimer sur ce modèle :" & vbLf & _
"1;2;3;12;14;25;33", "Pages à imprimer")
ArrPages = Split(Pages, ";")
For i = LBound(ArrPages) To UBound(ArrPages)
x = CLng(ArrPages(trim(i)))
ActiveSheet.PrintOut From:=x, To:=x, Preview:úlse
Next i
End Sub
'-------------------------------
Salutations!
"ClémentMarcotte" <clement.marcotte@sympatico.ca> a écrit dans le message de news: eZVHElTnFHA.1968@TK2MSFTNGP14.phx.gbl...
ach, ce n'est pas du tout ce que je voulais dire, clément...pour moi, par
le
ventre, c'est l'équivalent d'une suite discontinue (1,6,11)
OK.
Mais, dans mon Excel 2002, si je fais Fichier-Imprimer, je me retrouve avec
la possibilié, en bas à gauche, d'imprimer Seulement la sélection, la
feuille en cours ou les feuilles sélectionnées préalalablement.
Si mes souvenirs sont Exacts, Excel 97, pemettait, à la même place, d'écrire
des numéros de pages discontinues.
"jps" <vaderetrosp@mas> a écrit dans le message de
news:%23GBkyUTnFHA.1048@tk2msftngp13.phx.gbl...
jps
"ClémentMarcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de
news: %23XWETMQnFHA.2920@TK2MSFTNGP14.phx.gbl...
Bonjour
mon imprimante ne permet pas d'imprimer "par le ventre" ou bien je ne
Là, tu me perds avec ton "par le ventre". Chez nous, on dit que quand
une
femme mariée a pris son mari "par le ventre", c'est parce qu'elle est
une
Une procédure signée par Frédéric Sigonneau sur le sujet :
à cause de la fonction Split, elle requiert excel 2000 ou plus récent. et dans la boîte de dialogue, le numéro des pages doit être séparé par un point-virgule
'------------------------------- Sub SelectionDePages() Dim i&, Pages$, ArrPages Pages = _ InputBox("Saisir les pages à imprimer sur ce modèle :" & vbLf & _ "1;2;3;12;14;25;33", "Pages à imprimer") ArrPages = Split(Pages, ";") For i = LBound(ArrPages) To UBound(ArrPages) x = CLng(ArrPages(trim(i))) ActiveSheet.PrintOut From:=x, To:=x, Preview:úlse Next i End Sub '-------------------------------
Salutations!
"ClémentMarcotte" a écrit dans le message de news:
ach, ce n'est pas du tout ce que je voulais dire, clément...pour moi, par le
ventre, c'est l'équivalent d'une suite discontinue (1,6,11)
OK.
Mais, dans mon Excel 2002, si je fais Fichier-Imprimer, je me retrouve avec la possibilié, en bas à gauche, d'imprimer Seulement la sélection, la feuille en cours ou les feuilles sélectionnées préalalablement.
Si mes souvenirs sont Exacts, Excel 97, pemettait, à la même place, d'écrire des numéros de pages discontinues.
"jps" a écrit dans le message de news:%
jps
"ClémentMarcotte" a écrit dans le message de
news: %
Bonjour
mon imprimante ne permet pas d'imprimer "par le ventre" ou bien je ne
Là, tu me perds avec ton "par le ventre". Chez nous, on dit que quand une
femme mariée a pris son mari "par le ventre", c'est parce qu'elle est une
bonne cuisinière.
jps
bonjour clément, denis c'est bien ce que je voulais dire, clément, c'est que sous Fichier Imprimer, tu ne peux pas faire ce que fait la proc de FS ci-dessous (merci, denis, de l'avoir extirpée et non étripée comme disait ma grand'mère) : prendre des n° de pages "par le ventre" ; tu dois sélectionner avant jps
"michdenis" a écrit dans le message de news: eR$
Bonsoir JPS, Clément,
Une procédure signée par Frédéric Sigonneau sur le sujet :
à cause de la fonction Split, elle requiert excel 2000 ou plus récent. et dans la boîte de dialogue, le numéro des pages doit être séparé par un point-virgule
'------------------------------- Sub SelectionDePages() Dim i&, Pages$, ArrPages Pages = _ InputBox("Saisir les pages à imprimer sur ce modèle :" & vbLf & _ "1;2;3;12;14;25;33", "Pages à imprimer") ArrPages = Split(Pages, ";") For i = LBound(ArrPages) To UBound(ArrPages) x = CLng(ArrPages(trim(i))) ActiveSheet.PrintOut From:=x, To:=x, Preview:úlse Next i End Sub '-------------------------------
Salutations!
"ClémentMarcotte" a écrit dans le message de news:
ach, ce n'est pas du tout ce que je voulais dire, clément...pour moi, par le
ventre, c'est l'équivalent d'une suite discontinue (1,6,11)
OK.
Mais, dans mon Excel 2002, si je fais Fichier-Imprimer, je me retrouve avec la possibilié, en bas à gauche, d'imprimer Seulement la sélection, la feuille en cours ou les feuilles sélectionnées préalalablement.
Si mes souvenirs sont Exacts, Excel 97, pemettait, à la même place, d'écrire des numéros de pages discontinues.
"jps" a écrit dans le message de news:%
jps
"ClémentMarcotte" a écrit dans le message de
news: %
Bonjour
mon imprimante ne permet pas d'imprimer "par le ventre" ou bien je ne
Là, tu me perds avec ton "par le ventre". Chez nous, on dit que quand une
femme mariée a pris son mari "par le ventre", c'est parce qu'elle est une
bonne cuisinière.
bonjour clément, denis
c'est bien ce que je voulais dire, clément, c'est que sous Fichier Imprimer,
tu ne peux pas faire ce que fait la proc de FS ci-dessous (merci, denis, de
l'avoir extirpée et non étripée comme disait ma grand'mère) : prendre des n°
de pages "par le ventre" ; tu dois sélectionner avant
jps
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eR$ZHvTnFHA.2920@TK2MSFTNGP14.phx.gbl...
Bonsoir JPS, Clément,
Une procédure signée par Frédéric Sigonneau sur le sujet :
à cause de la fonction Split, elle requiert excel 2000 ou plus récent.
et dans la boîte de dialogue, le numéro des pages doit être séparé par un
point-virgule
'-------------------------------
Sub SelectionDePages()
Dim i&, Pages$, ArrPages
Pages = _
InputBox("Saisir les pages à imprimer sur ce modèle :" & vbLf & _
"1;2;3;12;14;25;33", "Pages à imprimer")
ArrPages = Split(Pages, ";")
For i = LBound(ArrPages) To UBound(ArrPages)
x = CLng(ArrPages(trim(i)))
ActiveSheet.PrintOut From:=x, To:=x, Preview:úlse
Next i
End Sub
'-------------------------------
Salutations!
"ClémentMarcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: eZVHElTnFHA.1968@TK2MSFTNGP14.phx.gbl...
ach, ce n'est pas du tout ce que je voulais dire, clément...pour moi, par
le
ventre, c'est l'équivalent d'une suite discontinue (1,6,11)
OK.
Mais, dans mon Excel 2002, si je fais Fichier-Imprimer, je me retrouve
avec
la possibilié, en bas à gauche, d'imprimer Seulement la sélection, la
feuille en cours ou les feuilles sélectionnées préalalablement.
Si mes souvenirs sont Exacts, Excel 97, pemettait, à la même place,
d'écrire
des numéros de pages discontinues.
"jps" <vaderetrosp@mas> a écrit dans le message de
news:%23GBkyUTnFHA.1048@tk2msftngp13.phx.gbl...
jps
"ClémentMarcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de
news: %23XWETMQnFHA.2920@TK2MSFTNGP14.phx.gbl...
Bonjour
mon imprimante ne permet pas d'imprimer "par le ventre" ou bien je ne
Là, tu me perds avec ton "par le ventre". Chez nous, on dit que quand
une
femme mariée a pris son mari "par le ventre", c'est parce qu'elle est
une
bonjour clément, denis c'est bien ce que je voulais dire, clément, c'est que sous Fichier Imprimer, tu ne peux pas faire ce que fait la proc de FS ci-dessous (merci, denis, de l'avoir extirpée et non étripée comme disait ma grand'mère) : prendre des n° de pages "par le ventre" ; tu dois sélectionner avant jps
"michdenis" a écrit dans le message de news: eR$
Bonsoir JPS, Clément,
Une procédure signée par Frédéric Sigonneau sur le sujet :
à cause de la fonction Split, elle requiert excel 2000 ou plus récent. et dans la boîte de dialogue, le numéro des pages doit être séparé par un point-virgule
'------------------------------- Sub SelectionDePages() Dim i&, Pages$, ArrPages Pages = _ InputBox("Saisir les pages à imprimer sur ce modèle :" & vbLf & _ "1;2;3;12;14;25;33", "Pages à imprimer") ArrPages = Split(Pages, ";") For i = LBound(ArrPages) To UBound(ArrPages) x = CLng(ArrPages(trim(i))) ActiveSheet.PrintOut From:=x, To:=x, Preview:úlse Next i End Sub '-------------------------------
Salutations!
"ClémentMarcotte" a écrit dans le message de news:
ach, ce n'est pas du tout ce que je voulais dire, clément...pour moi, par le
ventre, c'est l'équivalent d'une suite discontinue (1,6,11)
OK.
Mais, dans mon Excel 2002, si je fais Fichier-Imprimer, je me retrouve avec la possibilié, en bas à gauche, d'imprimer Seulement la sélection, la feuille en cours ou les feuilles sélectionnées préalalablement.
Si mes souvenirs sont Exacts, Excel 97, pemettait, à la même place, d'écrire des numéros de pages discontinues.
"jps" a écrit dans le message de news:%
jps
"ClémentMarcotte" a écrit dans le message de
news: %
Bonjour
mon imprimante ne permet pas d'imprimer "par le ventre" ou bien je ne
Là, tu me perds avec ton "par le ventre". Chez nous, on dit que quand une
femme mariée a pris son mari "par le ventre", c'est parce qu'elle est une
