Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" <gallay.jd@bluewin.ch> a écrit dans le message de
news:
42ada1ee$1_3@news.bluewin.ch...
Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise
en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: %23qR0G2CcFHA.720@TK2MSFTNGP15.phx.gbl...
Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise
en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" <gallay.jd@bluewin.ch> a écrit dans le message de
news:
42ada1ee$1_3@news.bluewin.ch...
Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise
en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de debug.print
au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" a écrit dans le message de
news: 42ade59e$Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise
en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que
ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de debug.print
au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" <gallay.jd@bluewin.ch> a écrit dans le message de
news: 42ade59e$1_1@news.bluewin.ch...
Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: %23qR0G2CcFHA.720@TK2MSFTNGP15.phx.gbl...
Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise
en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que
ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" <gallay.jd@bluewin.ch> a écrit dans le message de
news:
42ada1ee$1_3@news.bluewin.ch...
Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de debug.print
au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" a écrit dans le message de
news: 42ade59e$Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise
en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que
ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Pour compléter ma réponse, lorsque je disais
feuil1.pagesetup
je faisais allusion au nom VBA de la feuille... Mea culpa, je n'ai pas été
assez précis dans ma réponse.
Cette façon de procéder va te permettre de voir la valeur à envoyer dans
centerfooter.
Ainsi, pour obtenir dans le centerfooter le pied de page
PFI - &[Date] - &[Heure] -
auquel on ajouterais le contenu de la cellule A1 de la feuille Feuil1 (
nom excel ), on devrait utiliser
Worksheets("feuil1").PageSetup.CenterFooter = "PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
Mais si tu as une mise en forme spéciale, par exemple avec la police
Century en gras 12 points, tu vas devoir utiliser
Worksheets("feuil1").PageSetup.CenterFooter = _
"&""Century,Gras""&12PFI - &D - &T - " & Worksheets("feuil1").Range("A1")
car le centerfooter contient dans la même propriété sa mise en forme et le
texte...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Pierre Fauconnier" a écrit dans le
message de news: Ouj$? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de
debug.print au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" a écrit dans le message de
news: 42ade59e$Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise
en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que
ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête
personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je
voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Pour compléter ma réponse, lorsque je disais
feuil1.pagesetup
je faisais allusion au nom VBA de la feuille... Mea culpa, je n'ai pas été
assez précis dans ma réponse.
Cette façon de procéder va te permettre de voir la valeur à envoyer dans
centerfooter.
Ainsi, pour obtenir dans le centerfooter le pied de page
PFI - &[Date] - &[Heure] -
auquel on ajouterais le contenu de la cellule A1 de la feuille Feuil1 (
nom excel ), on devrait utiliser
Worksheets("feuil1").PageSetup.CenterFooter = "PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
Mais si tu as une mise en forme spéciale, par exemple avec la police
Century en gras 12 points, tu vas devoir utiliser
Worksheets("feuil1").PageSetup.CenterFooter = _
"&""Century,Gras""&12PFI - &D - &T - " & Worksheets("feuil1").Range("A1")
car le centerfooter contient dans la même propriété sa mise en forme et le
texte...
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: Ouj$6OFcFHA.464@TK2MSFTNGP15.phx.gbl...
? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de
debug.print au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" <gallay.jd@bluewin.ch> a écrit dans le message de
news: 42ade59e$1_1@news.bluewin.ch...
Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: %23qR0G2CcFHA.720@TK2MSFTNGP15.phx.gbl...
Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise
en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que
ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" <gallay.jd@bluewin.ch> a écrit dans le message de
news:
42ada1ee$1_3@news.bluewin.ch...
Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête
personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je
voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Pour compléter ma réponse, lorsque je disais
feuil1.pagesetup
je faisais allusion au nom VBA de la feuille... Mea culpa, je n'ai pas été
assez précis dans ma réponse.
Cette façon de procéder va te permettre de voir la valeur à envoyer dans
centerfooter.
Ainsi, pour obtenir dans le centerfooter le pied de page
PFI - &[Date] - &[Heure] -
auquel on ajouterais le contenu de la cellule A1 de la feuille Feuil1 (
nom excel ), on devrait utiliser
Worksheets("feuil1").PageSetup.CenterFooter = "PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
Mais si tu as une mise en forme spéciale, par exemple avec la police
Century en gras 12 points, tu vas devoir utiliser
Worksheets("feuil1").PageSetup.CenterFooter = _
"&""Century,Gras""&12PFI - &D - &T - " & Worksheets("feuil1").Range("A1")
car le centerfooter contient dans la même propriété sa mise en forme et le
texte...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Pierre Fauconnier" a écrit dans le
message de news: Ouj$? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de
debug.print au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" a écrit dans le message de
news: 42ade59e$Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la mise
en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que
ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête
personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je
voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour Pierre
Parfait. Merci beaucoup pour ton aide, ça marche très bien.
Mais une question me trabuste encore:
Pourquoi l'enregistreur de macro ne marche pas? Cad pourquoi la fonction
"coller" est perdue quand on entre dans la fenêtre "Mise en page".??
Encore mille merci.
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news:Pour compléter ma réponse, lorsque je disais
feuil1.pagesetup
je faisais allusion au nom VBA de la feuille... Mea culpa, je n'ai pas
été assez précis dans ma réponse.
Cette façon de procéder va te permettre de voir la valeur à envoyer dans
centerfooter.
Ainsi, pour obtenir dans le centerfooter le pied de page
PFI - &[Date] - &[Heure] -
auquel on ajouterais le contenu de la cellule A1 de la feuille Feuil1 (
nom excel ), on devrait utiliser
Worksheets("feuil1").PageSetup.CenterFooter = "PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
Mais si tu as une mise en forme spéciale, par exemple avec la police
Century en gras 12 points, tu vas devoir utiliser
Worksheets("feuil1").PageSetup.CenterFooter = _
"&""Century,Gras""&12PFI - &D - &T - " & Worksheets("feuil1").Range("A1")
car le centerfooter contient dans la même propriété sa mise en forme et
le texte...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Pierre Fauconnier" a écrit dans le
message de news: Ouj$? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de
debug.print au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" a écrit dans le message de
news: 42ade59e$Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la
mise en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que
ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête
personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je
voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour Pierre
Parfait. Merci beaucoup pour ton aide, ça marche très bien.
Mais une question me trabuste encore:
Pourquoi l'enregistreur de macro ne marche pas? Cad pourquoi la fonction
"coller" est perdue quand on entre dans la fenêtre "Mise en page".??
Encore mille merci.
gallay jd
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: uDGEuWFcFHA.2980@TK2MSFTNGP10.phx.gbl...
Pour compléter ma réponse, lorsque je disais
feuil1.pagesetup
je faisais allusion au nom VBA de la feuille... Mea culpa, je n'ai pas
été assez précis dans ma réponse.
Cette façon de procéder va te permettre de voir la valeur à envoyer dans
centerfooter.
Ainsi, pour obtenir dans le centerfooter le pied de page
PFI - &[Date] - &[Heure] -
auquel on ajouterais le contenu de la cellule A1 de la feuille Feuil1 (
nom excel ), on devrait utiliser
Worksheets("feuil1").PageSetup.CenterFooter = "PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
Mais si tu as une mise en forme spéciale, par exemple avec la police
Century en gras 12 points, tu vas devoir utiliser
Worksheets("feuil1").PageSetup.CenterFooter = _
"&""Century,Gras""&12PFI - &D - &T - " & Worksheets("feuil1").Range("A1")
car le centerfooter contient dans la même propriété sa mise en forme et
le texte...
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: Ouj$6OFcFHA.464@TK2MSFTNGP15.phx.gbl...
? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de
debug.print au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" <gallay.jd@bluewin.ch> a écrit dans le message de
news: 42ade59e$1_1@news.bluewin.ch...
Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: %23qR0G2CcFHA.720@TK2MSFTNGP15.phx.gbl...
Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la
mise en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que
ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" <gallay.jd@bluewin.ch> a écrit dans le message de
news:
42ada1ee$1_3@news.bluewin.ch...
Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête
personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je
voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour Pierre
Parfait. Merci beaucoup pour ton aide, ça marche très bien.
Mais une question me trabuste encore:
Pourquoi l'enregistreur de macro ne marche pas? Cad pourquoi la fonction
"coller" est perdue quand on entre dans la fenêtre "Mise en page".??
Encore mille merci.
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news:Pour compléter ma réponse, lorsque je disais
feuil1.pagesetup
je faisais allusion au nom VBA de la feuille... Mea culpa, je n'ai pas
été assez précis dans ma réponse.
Cette façon de procéder va te permettre de voir la valeur à envoyer dans
centerfooter.
Ainsi, pour obtenir dans le centerfooter le pied de page
PFI - &[Date] - &[Heure] -
auquel on ajouterais le contenu de la cellule A1 de la feuille Feuil1 (
nom excel ), on devrait utiliser
Worksheets("feuil1").PageSetup.CenterFooter = "PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
Mais si tu as une mise en forme spéciale, par exemple avec la police
Century en gras 12 points, tu vas devoir utiliser
Worksheets("feuil1").PageSetup.CenterFooter = _
"&""Century,Gras""&12PFI - &D - &T - " & Worksheets("feuil1").Range("A1")
car le centerfooter contient dans la même propriété sa mise en forme et
le texte...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Pierre Fauconnier" a écrit dans le
message de news: Ouj$? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de
debug.print au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" a écrit dans le message de
news: 42ade59e$Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la
mise en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note que
ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête
personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je
voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour
L'enregistreur de macros exécute Excel. Le copier-coller au sein d'une
boite de dialogue n'est pas enregistré dans la macro, car l'enregistreur
ne mémorise pas les actions à l'intérieur de la boite de dialogue.
C'est lorsque tu fermes la boite de dialogue avec Ok que l'enregistreur
récupère toutes les données "saisies" dans les contrôles de la boite, par
saisie directe au clavier ou via des copier-coller.
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news: 42aee1f1$Bonjour Pierre
Parfait. Merci beaucoup pour ton aide, ça marche très bien.
Mais une question me trabuste encore:
Pourquoi l'enregistreur de macro ne marche pas? Cad pourquoi la fonction
"coller" est perdue quand on entre dans la fenêtre "Mise en page".??
Encore mille merci.
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news:Pour compléter ma réponse, lorsque je disais
feuil1.pagesetup
je faisais allusion au nom VBA de la feuille... Mea culpa, je n'ai pas
été assez précis dans ma réponse.
Cette façon de procéder va te permettre de voir la valeur à envoyer dans
centerfooter.
Ainsi, pour obtenir dans le centerfooter le pied de page
PFI - &[Date] - &[Heure] -
auquel on ajouterais le contenu de la cellule A1 de la feuille Feuil1
( nom excel ), on devrait utiliser
Worksheets("feuil1").PageSetup.CenterFooter = "PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
Mais si tu as une mise en forme spéciale, par exemple avec la police
Century en gras 12 points, tu vas devoir utiliser
Worksheets("feuil1").PageSetup.CenterFooter = _
"&""Century,Gras""&12PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
car le centerfooter contient dans la même propriété sa mise en forme et
le texte...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Pierre Fauconnier" a écrit dans le
message de news: Ouj$? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de
debug.print au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" a écrit dans le message de
news: 42ade59e$Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la
mise en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note
que ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message
de news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête
personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je
voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour
L'enregistreur de macros exécute Excel. Le copier-coller au sein d'une
boite de dialogue n'est pas enregistré dans la macro, car l'enregistreur
ne mémorise pas les actions à l'intérieur de la boite de dialogue.
C'est lorsque tu fermes la boite de dialogue avec Ok que l'enregistreur
récupère toutes les données "saisies" dans les contrôles de la boite, par
saisie directe au clavier ou via des copier-coller.
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" <gallay.jd@bluewin.ch> a écrit dans le message de
news: 42aee1f1$1_3@news.bluewin.ch...
Bonjour Pierre
Parfait. Merci beaucoup pour ton aide, ça marche très bien.
Mais une question me trabuste encore:
Pourquoi l'enregistreur de macro ne marche pas? Cad pourquoi la fonction
"coller" est perdue quand on entre dans la fenêtre "Mise en page".??
Encore mille merci.
gallay jd
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: uDGEuWFcFHA.2980@TK2MSFTNGP10.phx.gbl...
Pour compléter ma réponse, lorsque je disais
feuil1.pagesetup
je faisais allusion au nom VBA de la feuille... Mea culpa, je n'ai pas
été assez précis dans ma réponse.
Cette façon de procéder va te permettre de voir la valeur à envoyer dans
centerfooter.
Ainsi, pour obtenir dans le centerfooter le pied de page
PFI - &[Date] - &[Heure] -
auquel on ajouterais le contenu de la cellule A1 de la feuille Feuil1
( nom excel ), on devrait utiliser
Worksheets("feuil1").PageSetup.CenterFooter = "PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
Mais si tu as une mise en forme spéciale, par exemple avec la police
Century en gras 12 points, tu vas devoir utiliser
Worksheets("feuil1").PageSetup.CenterFooter = _
"&""Century,Gras""&12PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
car le centerfooter contient dans la même propriété sa mise en forme et
le texte...
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: Ouj$6OFcFHA.464@TK2MSFTNGP15.phx.gbl...
? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de
debug.print au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" <gallay.jd@bluewin.ch> a écrit dans le message de
news: 42ade59e$1_1@news.bluewin.ch...
Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: %23qR0G2CcFHA.720@TK2MSFTNGP15.phx.gbl...
Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la
mise en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note
que ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" <gallay.jd@bluewin.ch> a écrit dans le message
de news:
42ada1ee$1_3@news.bluewin.ch...
Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête
personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je
voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
Bonjour
L'enregistreur de macros exécute Excel. Le copier-coller au sein d'une
boite de dialogue n'est pas enregistré dans la macro, car l'enregistreur
ne mémorise pas les actions à l'intérieur de la boite de dialogue.
C'est lorsque tu fermes la boite de dialogue avec Ok que l'enregistreur
récupère toutes les données "saisies" dans les contrôles de la boite, par
saisie directe au clavier ou via des copier-coller.
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message de
news: 42aee1f1$Bonjour Pierre
Parfait. Merci beaucoup pour ton aide, ça marche très bien.
Mais une question me trabuste encore:
Pourquoi l'enregistreur de macro ne marche pas? Cad pourquoi la fonction
"coller" est perdue quand on entre dans la fenêtre "Mise en page".??
Encore mille merci.
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news:Pour compléter ma réponse, lorsque je disais
feuil1.pagesetup
je faisais allusion au nom VBA de la feuille... Mea culpa, je n'ai pas
été assez précis dans ma réponse.
Cette façon de procéder va te permettre de voir la valeur à envoyer dans
centerfooter.
Ainsi, pour obtenir dans le centerfooter le pied de page
PFI - &[Date] - &[Heure] -
auquel on ajouterais le contenu de la cellule A1 de la feuille Feuil1
( nom excel ), on devrait utiliser
Worksheets("feuil1").PageSetup.CenterFooter = "PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
Mais si tu as une mise en forme spéciale, par exemple avec la police
Century en gras 12 points, tu vas devoir utiliser
Worksheets("feuil1").PageSetup.CenterFooter = _
"&""Century,Gras""&12PFI - &D - &T - " &
Worksheets("feuil1").Range("A1")
car le centerfooter contient dans la même propriété sa mise en forme et
le texte...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Pierre Fauconnier" a écrit dans le
message de news: Ouj$? sheets("graph du mois").pagesetup.CenterFooter
Le ? permet d'afficher ce qui le suit... c'est l'équivalent de
debug.print au sein de la fenêtre d'exécution.
Ok?
Pierre
"Jean-Daniel Gallay" a écrit dans le message de
news: 42ade59e$Re bonsoir,
Je dois être plouck mais ça ne marche pas.
Je tape : ? graph du mois.pagesetup.CenterFooter
Que doit faire cette instruction ?? a quoi sert le ?
Si je fait "Return" ça me donne Erreur d'exécution 424
Je ne comprend pas comment je vais voir la façon de créer ma macro.
Merci de ton aide
gallay jd
"Pierre Fauconnier" a écrit dans le
message de news: %Bonjour
Aide-toi... Le ciel t'aidera.
Procède comme suit, pour comprendre comment fonctionne
Remplis ton pied de page comme tu le souhaites, à la main, avec la
mise en
page ( caractères, police, ...).
Puis, dans ton éditeur VBA, fenêtre d'excution ( Ctrl+G ), saisis
? feuil1.pagesetup.CenterFooter
en adaptant feuil1 au nom VBA de ladite feuille
Tu verras alors comment tu dois remplir ta propriété par VBA. Note
que ta
mise en page fait partie de la valeur de la propriété...
Ok?
--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Jean-Daniel Gallay" a écrit dans le message
de news:
42ada1ee$Bonjour,
Je voudrais copier le contenu d'une cellule dans l'entête
personnalisée
d'une feuille graphique.
Je fais une macro pour réaliser cela, soit:
Sélection de la cellule, copy, Fichier, Mise en page, Entête
personnalisée, Partie centrale, Collé. Là la fonction "Collé" ne
fonctionne pas, elle est annulée.
Voici la partie de macro produite:
Sheets("Données_V2 ").Select
Range("C2978:F2978").Select
Selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Graph du mois").Select
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "" <== Je
voudrais
copier ma selection ici
Y a t'il une autre solution??
Merci de votre secours
Gallay JD
