Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel enregistrer macro

enregistrer macro

7 réponses
Avatar
phil
Salut
J'ai enregistre une macro, et je trouve qu'il y a beaucoup
trop de lignes que prevu...

j'ai donc voulu supprimer celles qui ne servent a rien.
Mais il me reste celles-ci :
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
... 'puis d'autres lignes indispensables
End With

Avec ces valeurs-la, ces lignes sont-elles necessaires ?
Font-elles vraiment une action sur ma feuille excel ?
L'aide Excel est un peu floue, et je voudrais vraiment
rendre mon macro le plus court possible...
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
ChrisV
Bonjour Phil,

Tu peux juste conserver...
ActiveSheet.PageSetup.PrintQuality = -3


ChrisV


"phil" a écrit dans le message de
news: 06cc01c3db3d$b8c397e0$
Salut
J'ai enregistre une macro, et je trouve qu'il y a beaucoup
trop de lignes que prevu...

j'ai donc voulu supprimer celles qui ne servent a rien.
Mais il me reste celles-ci :
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
... 'puis d'autres lignes indispensables
End With

Avec ces valeurs-la, ces lignes sont-elles necessaires ?
Font-elles vraiment une action sur ma feuille excel ?
L'aide Excel est un peu floue, et je voudrais vraiment
rendre mon macro le plus court possible...



Avatar
phil
Merci beaucoup,
Par contre, pour ajuster ma feuille de calcul a la taille
de ma page, j'ai utilise ces deux commandes :
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1

Mais finalement (apres beaucoup de tatonnements), c'est
celle-ci qui fonctionne :
ActiveSheet.PageSetup.Zoom = False

Quelle est la difference entre les deux ?


-----Message d'origine-----
Bonjour Phil,

Tu peux juste conserver...
ActiveSheet.PageSetup.PrintQuality = -3


ChrisV


"phil" a écrit dans
le message de

news: 06cc01c3db3d$b8c397e0$
Salut
J'ai enregistre une macro, et je trouve qu'il y a
beaucoup


trop de lignes que prevu...

j'ai donc voulu supprimer celles qui ne servent a rien.
Mais il me reste celles-ci :
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
... 'puis d'autres lignes indispensables
End With

Avec ces valeurs-la, ces lignes sont-elles necessaires ?
Font-elles vraiment une action sur ma feuille excel ?
L'aide Excel est un peu floue, et je voudrais vraiment
rendre mon macro le plus court possible...




.




Avatar
Stephane PINIER
Bonjour,

à priori ton code pourrais se limiter à ceci :

With ActiveSheet.PageSetup
.PrintHeadings = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
... 'puis d'autres lignes indispensables
End With

Dans la mesure où seuls ces paramètres contiennent une valeur.

C'est un problème générale aux application office, lors d'un enregistrement
de macro, si tu valide une boite de dialogue tu récupère dans le code tous
les paramètres de cette boite de dialogue et non pas exclusivement l'options
que tu aurais modifiée.

Il faut donc faire le "ménage" et ne conserver que les lignes de codes qui
ont une importance par rapport à ta macro.


Cordialement,

--
Stéphane PINIER,
Sitel France, pour l'Assistance Utilisateur Microsoft


"phil" a écrit dans le message de
news: 06cc01c3db3d$b8c397e0$
Salut
J'ai enregistre une macro, et je trouve qu'il y a beaucoup
trop de lignes que prevu...

j'ai donc voulu supprimer celles qui ne servent a rien.
Mais il me reste celles-ci :
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
... 'puis d'autres lignes indispensables
End With

Avec ces valeurs-la, ces lignes sont-elles necessaires ?
Font-elles vraiment une action sur ma feuille excel ?
L'aide Excel est un peu floue, et je voudrais vraiment
rendre mon macro le plus court possible...



Avatar
phil
Et à quoi servent ces trois lignes ?

En supprimant le centerheader="" et le centerfooter="", je
retrouve une en-tête et un pied de pgae (que je voulais
supprimer). Existe-t-il un endroit ou savoir quelles sont
les valeurs par défaut de toutes ces propriétés ?
Merci


-----Message d'origine-----
Bonjour,

à priori ton code pourrais se limiter à ceci :

With ActiveSheet.PageSetup
.PrintHeadings = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
... 'puis d'autres lignes indispensables
End With

Dans la mesure où seuls ces paramètres contiennent une
valeur.


C'est un problème générale aux application office, lors
d'un enregistrement

de macro, si tu valide une boite de dialogue tu récupère
dans le code tous

les paramètres de cette boite de dialogue et non pas
exclusivement l'options

que tu aurais modifiée.

Il faut donc faire le "ménage" et ne conserver que les
lignes de codes qui

ont une importance par rapport à ta macro.


Cordialement,

--
Stéphane PINIER,
Sitel France, pour l'Assistance Utilisateur Microsoft


"phil" a écrit dans
le message de

news: 06cc01c3db3d$b8c397e0$
Salut
J'ai enregistre une macro, et je trouve qu'il y a
beaucoup


trop de lignes que prevu...

j'ai donc voulu supprimer celles qui ne servent a rien.
Mais il me reste celles-ci :
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
... 'puis d'autres lignes indispensables
End With

Avec ces valeurs-la, ces lignes sont-elles necessaires ?
Font-elles vraiment une action sur ma feuille excel ?
L'aide Excel est un peu floue, et je voudrais vraiment
rendre mon macro le plus court possible...




.




Avatar
ChrisV
Re,

Dans l'éditeur VB, positionne le point d'insertion sur PageSetup, puis lance
l'aide avec F1, puis déroule le lien concernant les propriétés...

Tu peux aussi consulter l'explorateur d'objets (F2), plus complet encore
dans le détail des explications


ChrisV


"phil" a écrit dans le message de
news: 01d201c3db42$28604c70$
Merci beaucoup,
Par contre, pour ajuster ma feuille de calcul a la taille
de ma page, j'ai utilise ces deux commandes :
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1

Mais finalement (apres beaucoup de tatonnements), c'est
celle-ci qui fonctionne :
ActiveSheet.PageSetup.Zoom = False

Quelle est la difference entre les deux ?


-----Message d'origine-----
Bonjour Phil,

Tu peux juste conserver...
ActiveSheet.PageSetup.PrintQuality = -3


ChrisV


"phil" a écrit dans
le message de

news: 06cc01c3db3d$b8c397e0$
Salut
J'ai enregistre une macro, et je trouve qu'il y a
beaucoup


trop de lignes que prevu...

j'ai donc voulu supprimer celles qui ne servent a rien.
Mais il me reste celles-ci :
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
... 'puis d'autres lignes indispensables
End With

Avec ces valeurs-la, ces lignes sont-elles necessaires ?
Font-elles vraiment une action sur ma feuille excel ?
L'aide Excel est un peu floue, et je voudrais vraiment
rendre mon macro le plus court possible...




.




Avatar
phil
ca, je connais, merci. Moi je cherchais des explications
un peu plus completes et comprehensibles que celles
donnees par l'aide Excel.
Des explications d'habitué...

-----Message d'origine-----
Re,

Dans l'éditeur VB, positionne le point d'insertion sur
PageSetup, puis lance

l'aide avec F1, puis déroule le lien concernant les
propriétés...


Tu peux aussi consulter l'explorateur d'objets (F2), plus
complet encore

dans le détail des explications


ChrisV


"phil" a écrit dans
le message de

news: 01d201c3db42$28604c70$
Merci beaucoup,
Par contre, pour ajuster ma feuille de calcul a la taille
de ma page, j'ai utilise ces deux commandes :
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1

Mais finalement (apres beaucoup de tatonnements), c'est
celle-ci qui fonctionne :
ActiveSheet.PageSetup.Zoom = False

Quelle est la difference entre les deux ?


-----Message d'origine-----
Bonjour Phil,

Tu peux juste conserver...
ActiveSheet.PageSetup.PrintQuality = -3


ChrisV


"phil" a écrit dans
le message de

news: 06cc01c3db3d$b8c397e0$
Salut
J'ai enregistre une macro, et je trouve qu'il y a
beaucoup


trop de lignes que prevu...

j'ai donc voulu supprimer celles qui ne servent a rien.
Mais il me reste celles-ci :
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
... 'puis d'autres lignes indispensables
End With

Avec ces valeurs-la, ces lignes sont-elles
necessaires ?



Font-elles vraiment une action sur ma feuille excel ?
L'aide Excel est un peu floue, et je voudrais vraiment
rendre mon macro le plus court possible...




.




.





Avatar
Chris Michel
En fait, si tu ne précises rien dans le code, il va
imprimer les headers et footers de ton fichier quels
qu'ils soient. Autrement dit, par défaut, il imprime ce
que tu as mis "à la main" dans la mise en page de ton
fichier. C'est vrai pour tous les paramètres.

-----Message d'origine-----
Et à quoi servent ces trois lignes ?

En supprimant le centerheader="" et le centerfooter="",
je

retrouve une en-tête et un pied de pgae (que je voulais
supprimer). Existe-t-il un endroit ou savoir quelles sont
les valeurs par défaut de toutes ces propriétés ?
Merci


-----Message d'origine-----
Bonjour,

à priori ton code pourrais se limiter à ceci :

With ActiveSheet.PageSetup
.PrintHeadings = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
... 'puis d'autres lignes indispensables
End With

Dans la mesure où seuls ces paramètres contiennent une
valeur.


C'est un problème générale aux application office, lors
d'un enregistrement

de macro, si tu valide une boite de dialogue tu récupère
dans le code tous

les paramètres de cette boite de dialogue et non pas
exclusivement l'options

que tu aurais modifiée.

Il faut donc faire le "ménage" et ne conserver que les
lignes de codes qui

ont une importance par rapport à ta macro.


Cordialement,

--
Stéphane PINIER,
Sitel France, pour l'Assistance Utilisateur Microsoft


"phil" a écrit
dans


le message de
news: 06cc01c3db3d$b8c397e0$
Salut
J'ai enregistre une macro, et je trouve qu'il y a
beaucoup


trop de lignes que prevu...

j'ai donc voulu supprimer celles qui ne servent a rien.
Mais il me reste celles-ci :
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
... 'puis d'autres lignes indispensables
End With

Avec ces valeurs-la, ces lignes sont-elles
necessaires ?



Font-elles vraiment une action sur ma feuille excel ?
L'aide Excel est un peu floue, et je voudrais vraiment
rendre mon macro le plus court possible...




.

.