je coince sur la mise en page avant impression sous vba xl97
je veux ( ou plutot voudrais bien) choisir le nombre de colonnes
imprim=E9es (nbcolaimp) dans la largeur de la page , et le nombre de
ligne (n).
je traite donc mon onglet copi=E9 dans un classeur tout neuf( c'est la
rentr=E9e) sans mise en page particuli=E8re pour inserer un saut toute
les n lignes apr=E8s avoir pris la pr=E9caution de les supprimer tous
avant.(helas pour moi, la mise en page suit la copie de l'onglet)
Mais si j'active
ActiveSheet.PageSetup.FitToPagesWide =3D 1
les sauts ne marchent plus
j'ai =E9galement essay=E9 avec en plus
ActiveSheet.PageSetup.FitToPagesTall =3D nbpages
ou nbpages est incr=E9ment=E9 =E0 chaque saut
et les parametres sont bien pass=E9s (verifi=E9s en apercu/pages)
malgr=E9 cela mes sauts ne sautent pas
je saute d'impatience devant mon clavier
et sauterais sur la bonne id=E9e
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
isabelle
bonjour,
je traite donc mon onglet copié dans un classeur tout neuf( c'est la rentrée) sans mise en page particulière
pour obtenir un onglet tout neuf, il faudrait copier la feuille entière ( sélectionner toutes les cellules) au lieu de copier l'onglet, car cette méthode garde la mise en page de la page copiée.
isabelle
bonjour,
je traite donc mon onglet copié dans un classeur tout neuf( c'est la
rentrée) sans mise en page particulière
pour obtenir un onglet tout neuf, il faudrait copier la feuille entière ( sélectionner toutes les cellules)
au lieu de copier l'onglet, car cette méthode garde la mise en page de la page copiée.
je traite donc mon onglet copié dans un classeur tout neuf( c'est la rentrée) sans mise en page particulière
pour obtenir un onglet tout neuf, il faudrait copier la feuille entière ( sélectionner toutes les cellules) au lieu de copier l'onglet, car cette méthode garde la mise en page de la page copiée.
isabelle
nol
rebonjour apres d'autres essais (infructueux) je crois que je dois trouver qqchose pour calculer le zoom en fonction du nbcolaimp
Bonjour à tous
je coince sur la mise en page avant impression sous vba xl97
je veux ( ou plutot voudrais bien) choisir le nombre de colonnes imprimées ( dans la largeur de la page , et le nombre de ligne (n).
je traite donc mon onglet copié dans un classeur tout neuf( c'est la rentrée) sans mise en page particulière pour inserer un saut toute les n lignes après avoir pris la précaution de les supprimer tous avant.(helas pour moi, la mise en page suit la copie de l'onglet)
Mais si j'active ActiveSheet.PageSetup.FitToPagesWide = 1 les sauts ne marchent plus j'ai également essayé avec en plus ActiveSheet.PageSetup.FitToPagesTall = nbpages ou nbpages est incrémenté à chaque saut et les parametres sont bien passés (verifiés en apercu/pages) malgré cela mes sauts ne sautent pas je saute d'impatience devant mon clavier et sauterais sur la bonne idée
Merci d'avance de me faire sauter de joie
rebonjour
apres d'autres essais (infructueux)
je crois que je dois trouver qqchose pour calculer le zoom en fonction du
nbcolaimp
Bonjour à tous
je coince sur la mise en page avant impression sous vba xl97
je veux ( ou plutot voudrais bien) choisir le nombre de colonnes
imprimées ( dans la largeur de la page , et le nombre de
ligne (n).
je traite donc mon onglet copié dans un classeur tout neuf( c'est la
rentrée) sans mise en page particulière pour inserer un saut toute
les n lignes après avoir pris la précaution de les supprimer tous
avant.(helas pour moi, la mise en page suit la copie de l'onglet)
Mais si j'active
ActiveSheet.PageSetup.FitToPagesWide = 1
les sauts ne marchent plus
j'ai également essayé avec en plus
ActiveSheet.PageSetup.FitToPagesTall = nbpages
ou nbpages est incrémenté à chaque saut
et les parametres sont bien passés (verifiés en apercu/pages)
malgré cela mes sauts ne sautent pas
je saute d'impatience devant mon clavier
et sauterais sur la bonne idée
rebonjour apres d'autres essais (infructueux) je crois que je dois trouver qqchose pour calculer le zoom en fonction du nbcolaimp
Bonjour à tous
je coince sur la mise en page avant impression sous vba xl97
je veux ( ou plutot voudrais bien) choisir le nombre de colonnes imprimées ( dans la largeur de la page , et le nombre de ligne (n).
je traite donc mon onglet copié dans un classeur tout neuf( c'est la rentrée) sans mise en page particulière pour inserer un saut toute les n lignes après avoir pris la précaution de les supprimer tous avant.(helas pour moi, la mise en page suit la copie de l'onglet)
Mais si j'active ActiveSheet.PageSetup.FitToPagesWide = 1 les sauts ne marchent plus j'ai également essayé avec en plus ActiveSheet.PageSetup.FitToPagesTall = nbpages ou nbpages est incrémenté à chaque saut et les parametres sont bien passés (verifiés en apercu/pages) malgré cela mes sauts ne sautent pas je saute d'impatience devant mon clavier et sauterais sur la bonne idée
Merci d'avance de me faire sauter de joie
nol
merci du conseil trop nase pour tester aujourd'hui car ça change pas mal de choses a+
"isabelle" a écrit dans le message de news:
bonjour,
je traite donc mon onglet copié dans un classeur tout neuf( c'est la rentrée) sans mise en page particulière
pour obtenir un onglet tout neuf, il faudrait copier la feuille entière ( sélectionner toutes les cellules)
au lieu de copier l'onglet, car cette méthode garde la mise en page de la page copiée.
isabelle
merci du conseil
trop nase pour tester aujourd'hui car ça change pas mal de choses
a+
"isabelle" <aaa@aaa> a écrit dans le message de
news:e23kAlrzGHA.2196@TK2MSFTNGP03.phx.gbl...
bonjour,
je traite donc mon onglet copié dans un classeur tout neuf( c'est la
rentrée) sans mise en page particulière
pour obtenir un onglet tout neuf, il faudrait copier la feuille entière
( sélectionner toutes les cellules)
au lieu de copier l'onglet, car cette méthode garde la mise en page de la
page copiée.
merci du conseil trop nase pour tester aujourd'hui car ça change pas mal de choses a+
"isabelle" a écrit dans le message de news:
bonjour,
je traite donc mon onglet copié dans un classeur tout neuf( c'est la rentrée) sans mise en page particulière
pour obtenir un onglet tout neuf, il faudrait copier la feuille entière ( sélectionner toutes les cellules)
au lieu de copier l'onglet, car cette méthode garde la mise en page de la page copiée.
isabelle
nol
J'ai trouvé une astuce pour redimensionner le zoom pas belle-belle mais utilisable à défaut de mieux merci à ceux qui ont planché ci apres le code Sub Macrolarg() ' Dim larg As Double larg = 0 [a10].Select nbcolaimp = InputBox("entrez le nombre de colonnes à imprimer", "impression colonnes", 6) For l = 0 To nbcolaimp - 1 larg = larg + ActiveCell.Offset(0, l).ColumnWidth 'MsgBox (larg) Next l 'MsgBox (larg) If larg > 110 Then ActiveSheet.PageSetup.Orientation = xlLandscape If larg <= 150 Then ActiveSheet.PageSetup.Zoom = 70 If larg <= 140 Then ActiveSheet.PageSetup.Zoom = 80 If larg <= 130 Then ActiveSheet.PageSetup.Zoom = 90 If larg <= 120 Then ActiveSheet.PageSetup.Zoom = 100 If larg < 110 Then ActiveSheet.PageSetup.Orientation = xlPortrait If larg <= 110 Then ActiveSheet.PageSetup.Zoom = 69 If larg <= 100 Then ActiveSheet.PageSetup.Zoom = 79 If larg <= 90 Then ActiveSheet.PageSetup.Zoom = 89 If larg <= 80 Then ActiveSheet.PageSetup.Zoom = 100 Sheets.PrintPreview End Sub
"nol" a écrit dans le message de news:
rebonjour apres d'autres essais (infructueux) je crois que je dois trouver qqchose pour calculer le zoom en fonction du nbcolaimp
Bonjour à tous
je coince sur la mise en page avant impression sous vba xl97
je veux ( ou plutot voudrais bien) choisir le nombre de colonnes imprimées ( dans la largeur de la page , et le nombre de ligne (n).
je traite donc mon onglet copié dans un classeur tout neuf( c'est la rentrée) sans mise en page particulière pour inserer un saut toute les n lignes après avoir pris la précaution de les supprimer tous avant.(helas pour moi, la mise en page suit la copie de l'onglet)
Mais si j'active ActiveSheet.PageSetup.FitToPagesWide = 1 les sauts ne marchent plus j'ai également essayé avec en plus ActiveSheet.PageSetup.FitToPagesTall = nbpages ou nbpages est incrémenté à chaque saut et les parametres sont bien passés (verifiés en apercu/pages) malgré cela mes sauts ne sautent pas je saute d'impatience devant mon clavier et sauterais sur la bonne idée
Merci d'avance de me faire sauter de joie
J'ai trouvé une astuce pour redimensionner le zoom
pas belle-belle mais utilisable à défaut de mieux
merci à ceux qui ont planché
ci apres le code
Sub Macrolarg()
'
Dim larg As Double
larg = 0
[a10].Select
nbcolaimp = InputBox("entrez le nombre de colonnes à imprimer", "impression
colonnes", 6)
For l = 0 To nbcolaimp - 1
larg = larg + ActiveCell.Offset(0, l).ColumnWidth
'MsgBox (larg)
Next l
'MsgBox (larg)
If larg > 110 Then ActiveSheet.PageSetup.Orientation = xlLandscape
If larg <= 150 Then ActiveSheet.PageSetup.Zoom = 70
If larg <= 140 Then ActiveSheet.PageSetup.Zoom = 80
If larg <= 130 Then ActiveSheet.PageSetup.Zoom = 90
If larg <= 120 Then ActiveSheet.PageSetup.Zoom = 100
If larg < 110 Then ActiveSheet.PageSetup.Orientation = xlPortrait
If larg <= 110 Then ActiveSheet.PageSetup.Zoom = 69
If larg <= 100 Then ActiveSheet.PageSetup.Zoom = 79
If larg <= 90 Then ActiveSheet.PageSetup.Zoom = 89
If larg <= 80 Then ActiveSheet.PageSetup.Zoom = 100
Sheets.PrintPreview
End Sub
"nol" a écrit dans le message de
news:OEco0lrzGHA.4396@TK2MSFTNGP04.phx.gbl...
rebonjour
apres d'autres essais (infructueux)
je crois que je dois trouver qqchose pour calculer le zoom en fonction du
nbcolaimp
Bonjour à tous
je coince sur la mise en page avant impression sous vba xl97
je veux ( ou plutot voudrais bien) choisir le nombre de colonnes
imprimées ( dans la largeur de la page , et le nombre de
ligne (n).
je traite donc mon onglet copié dans un classeur tout neuf( c'est la
rentrée) sans mise en page particulière pour inserer un saut toute
les n lignes après avoir pris la précaution de les supprimer tous
avant.(helas pour moi, la mise en page suit la copie de l'onglet)
Mais si j'active
ActiveSheet.PageSetup.FitToPagesWide = 1
les sauts ne marchent plus
j'ai également essayé avec en plus
ActiveSheet.PageSetup.FitToPagesTall = nbpages
ou nbpages est incrémenté à chaque saut
et les parametres sont bien passés (verifiés en apercu/pages)
malgré cela mes sauts ne sautent pas
je saute d'impatience devant mon clavier
et sauterais sur la bonne idée
J'ai trouvé une astuce pour redimensionner le zoom pas belle-belle mais utilisable à défaut de mieux merci à ceux qui ont planché ci apres le code Sub Macrolarg() ' Dim larg As Double larg = 0 [a10].Select nbcolaimp = InputBox("entrez le nombre de colonnes à imprimer", "impression colonnes", 6) For l = 0 To nbcolaimp - 1 larg = larg + ActiveCell.Offset(0, l).ColumnWidth 'MsgBox (larg) Next l 'MsgBox (larg) If larg > 110 Then ActiveSheet.PageSetup.Orientation = xlLandscape If larg <= 150 Then ActiveSheet.PageSetup.Zoom = 70 If larg <= 140 Then ActiveSheet.PageSetup.Zoom = 80 If larg <= 130 Then ActiveSheet.PageSetup.Zoom = 90 If larg <= 120 Then ActiveSheet.PageSetup.Zoom = 100 If larg < 110 Then ActiveSheet.PageSetup.Orientation = xlPortrait If larg <= 110 Then ActiveSheet.PageSetup.Zoom = 69 If larg <= 100 Then ActiveSheet.PageSetup.Zoom = 79 If larg <= 90 Then ActiveSheet.PageSetup.Zoom = 89 If larg <= 80 Then ActiveSheet.PageSetup.Zoom = 100 Sheets.PrintPreview End Sub
"nol" a écrit dans le message de news:
rebonjour apres d'autres essais (infructueux) je crois que je dois trouver qqchose pour calculer le zoom en fonction du nbcolaimp
Bonjour à tous
je coince sur la mise en page avant impression sous vba xl97
je veux ( ou plutot voudrais bien) choisir le nombre de colonnes imprimées ( dans la largeur de la page , et le nombre de ligne (n).
je traite donc mon onglet copié dans un classeur tout neuf( c'est la rentrée) sans mise en page particulière pour inserer un saut toute les n lignes après avoir pris la précaution de les supprimer tous avant.(helas pour moi, la mise en page suit la copie de l'onglet)
Mais si j'active ActiveSheet.PageSetup.FitToPagesWide = 1 les sauts ne marchent plus j'ai également essayé avec en plus ActiveSheet.PageSetup.FitToPagesTall = nbpages ou nbpages est incrémenté à chaque saut et les parametres sont bien passés (verifiés en apercu/pages) malgré cela mes sauts ne sautent pas je saute d'impatience devant mon clavier et sauterais sur la bonne idée
