Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes
en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou
disparaître) l'en-tête de la dernière page.
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 coco74,
Sub ImprimeLigne() ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" End Sub
Sub ImprimePasLigne() ActiveSheet.PageSetup.PrintTitleRows = "" End Sub
isabelle
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou disparaître) l'en-tête de la dernière page.
Merci de votre concours.
bonjour coco74,
Sub ImprimeLigne()
ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
End Sub
Sub ImprimePasLigne()
ActiveSheet.PageSetup.PrintTitleRows = ""
End Sub
isabelle
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes
en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou
disparaître) l'en-tête de la dernière page.
Sub ImprimeLigne() ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" End Sub
Sub ImprimePasLigne() ActiveSheet.PageSetup.PrintTitleRows = "" End Sub
isabelle
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou disparaître) l'en-tête de la dernière page.
Merci de votre concours.
coco74
Bonjour et merci Isabelle,
J'étais arrivé au même résultat que toi, mais cela ne résout pas mon problème, car c'est "tout ou rien" ! En fait, j'ai un nombre aléatoire de feuilles à imprimer, il me faut les en-têtes de colonnes sur toutes les feuilles, sauf sur la dernière où je veux avoir le choix d'imprimer ou non l'en-tête. Qu'en penses-tu ? -- coco
"isabelle" wrote:
bonjour coco74,
Sub ImprimeLigne() ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" End Sub
Sub ImprimePasLigne() ActiveSheet.PageSetup.PrintTitleRows = "" End Sub
isabelle
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou disparaître) l'en-tête de la dernière page.
Merci de votre concours.
Bonjour et merci Isabelle,
J'étais arrivé au même résultat que toi, mais cela ne résout pas mon
problème, car c'est "tout ou rien" !
En fait, j'ai un nombre aléatoire de feuilles à imprimer, il me faut les
en-têtes de colonnes sur toutes les feuilles, sauf sur la dernière où je veux
avoir le choix d'imprimer ou non l'en-tête.
Qu'en penses-tu ?
--
coco
"isabelle" wrote:
bonjour coco74,
Sub ImprimeLigne()
ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
End Sub
Sub ImprimePasLigne()
ActiveSheet.PageSetup.PrintTitleRows = ""
End Sub
isabelle
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes
en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou
disparaître) l'en-tête de la dernière page.
J'étais arrivé au même résultat que toi, mais cela ne résout pas mon problème, car c'est "tout ou rien" ! En fait, j'ai un nombre aléatoire de feuilles à imprimer, il me faut les en-têtes de colonnes sur toutes les feuilles, sauf sur la dernière où je veux avoir le choix d'imprimer ou non l'en-tête. Qu'en penses-tu ? -- coco
"isabelle" wrote:
bonjour coco74,
Sub ImprimeLigne() ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" End Sub
Sub ImprimePasLigne() ActiveSheet.PageSetup.PrintTitleRows = "" End Sub
isabelle
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou disparaître) l'en-tête de la dernière page.
Merci de votre concours.
isabelle
re bonjour coco74,
le problème est que si tu as 100 page avec en-têtes de colonnes il y en aura 99 pages sans en-têtes de colonnes. donc les données de la dernière page seront faussées (tronquées). le plus simple serait de mettre ces données sur un autre onglet.
isabelle
Bonjour et merci Isabelle,
J'étais arrivé au même résultat que toi, mais cela ne résout pas mon problème, car c'est "tout ou rien" ! En fait, j'ai un nombre aléatoire de feuilles à imprimer, il me faut les en-têtes de colonnes sur toutes les feuilles, sauf sur la dernière où je veux avoir le choix d'imprimer ou non l'en-tête. Qu'en penses-tu ?
re bonjour coco74,
le problème est que si tu as 100 page avec en-têtes de colonnes
il y en aura 99 pages sans en-têtes de colonnes.
donc les données de la dernière page seront faussées (tronquées).
le plus simple serait de mettre ces données sur un autre onglet.
isabelle
Bonjour et merci Isabelle,
J'étais arrivé au même résultat que toi, mais cela ne résout pas mon
problème, car c'est "tout ou rien" !
En fait, j'ai un nombre aléatoire de feuilles à imprimer, il me faut les
en-têtes de colonnes sur toutes les feuilles, sauf sur la dernière où je veux
avoir le choix d'imprimer ou non l'en-tête.
Qu'en penses-tu ?
le problème est que si tu as 100 page avec en-têtes de colonnes il y en aura 99 pages sans en-têtes de colonnes. donc les données de la dernière page seront faussées (tronquées). le plus simple serait de mettre ces données sur un autre onglet.
isabelle
Bonjour et merci Isabelle,
J'étais arrivé au même résultat que toi, mais cela ne résout pas mon problème, car c'est "tout ou rien" ! En fait, j'ai un nombre aléatoire de feuilles à imprimer, il me faut les en-têtes de colonnes sur toutes les feuilles, sauf sur la dernière où je veux avoir le choix d'imprimer ou non l'en-tête. Qu'en penses-tu ?
Elliac
Bonjour,
La procédure suivante demande si l'on veut des entêtes sur toutes les pages, dans la négative la dernière page est imprimée sans.
Sub Titi() ActiveSheet.PageSetup.PrintTitleColumns = "$a:a" n = ActiveWindow.SelectedSheets.VPageBreaks.Count rep = MsgBox("Imprimer les entêtes sur toutes les pages ?", vbYesNo) If rep = vbYes Then ActiveWindow.SelectedSheets.PrintOut Preview _ :=True, Collate:=True Else ActiveWindow.SelectedSheets.PrintOut From:=1, To:=n, Copies:=1, Preview _ :=True, Collate:=True ActiveSheet.PageSetup.PrintTitleColumns = "" ActiveWindow.SelectedSheets.PrintOut From:=n, To:=n, Copies:=1, Preview _ :=True, Collate:=True End If End Sub
Camille
"coco74" wrote:
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou disparaître) l'en-tête de la dernière page.
Merci de votre concours. -- coco
Bonjour,
La procédure suivante demande si l'on veut des entêtes sur toutes les pages,
dans la négative la dernière page est imprimée sans.
Sub Titi()
ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"
n = ActiveWindow.SelectedSheets.VPageBreaks.Count
rep = MsgBox("Imprimer les entêtes sur toutes les pages ?", vbYesNo)
If rep = vbYes Then
ActiveWindow.SelectedSheets.PrintOut Preview _
:=True, Collate:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=n, Copies:=1,
Preview _
:=True, Collate:=True
ActiveSheet.PageSetup.PrintTitleColumns = ""
ActiveWindow.SelectedSheets.PrintOut From:=n, To:=n, Copies:=1,
Preview _
:=True, Collate:=True
End If
End Sub
Camille
"coco74" wrote:
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes
en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou
disparaître) l'en-tête de la dernière page.
La procédure suivante demande si l'on veut des entêtes sur toutes les pages, dans la négative la dernière page est imprimée sans.
Sub Titi() ActiveSheet.PageSetup.PrintTitleColumns = "$a:a" n = ActiveWindow.SelectedSheets.VPageBreaks.Count rep = MsgBox("Imprimer les entêtes sur toutes les pages ?", vbYesNo) If rep = vbYes Then ActiveWindow.SelectedSheets.PrintOut Preview _ :=True, Collate:=True Else ActiveWindow.SelectedSheets.PrintOut From:=1, To:=n, Copies:=1, Preview _ :=True, Collate:=True ActiveSheet.PageSetup.PrintTitleColumns = "" ActiveWindow.SelectedSheets.PrintOut From:=n, To:=n, Copies:=1, Preview _ :=True, Collate:=True End If End Sub
Camille
"coco74" wrote:
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou disparaître) l'en-tête de la dernière page.
Merci de votre concours. -- coco
coco74
Super Camille,
Ca va dans le sens de ce que je souhaite. j'ai remplacé "ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par "ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de colonnes; Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
En contrôlant la variable n, elle est égale à 0.
Je suis sous Excel 97.
Merci de ton aide -- coco
Bonjour,
La procédure suivante demande si l'on veut des entêtes sur toutes les pages, dans la négative la dernière page est imprimée sans.
Sub Titi() ActiveSheet.PageSetup.PrintTitleColumns = "$a:a" n = ActiveWindow.SelectedSheets.VPageBreaks.Count rep = MsgBox("Imprimer les entêtes sur toutes les pages ?", vbYesNo) If rep = vbYes Then ActiveWindow.SelectedSheets.PrintOut Preview _ :=True, Collate:=True Else ActiveWindow.SelectedSheets.PrintOut From:=1, To:=n, Copies:=1, Preview _ :=True, Collate:=True ActiveSheet.PageSetup.PrintTitleColumns = "" ActiveWindow.SelectedSheets.PrintOut From:=n, To:=n, Copies:=1, Preview _ :=True, Collate:=True End If End Sub
Camille
"coco74" wrote:
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou disparaître) l'en-tête de la dernière page.
Merci de votre concours. -- coco
Super Camille,
Ca va dans le sens de ce que je souhaite. j'ai remplacé
"ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par
"ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de
colonnes;
Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
En contrôlant la variable n, elle est égale à 0.
Je suis sous Excel 97.
Merci de ton aide
--
coco
Bonjour,
La procédure suivante demande si l'on veut des entêtes sur toutes les pages,
dans la négative la dernière page est imprimée sans.
Sub Titi()
ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"
n = ActiveWindow.SelectedSheets.VPageBreaks.Count
rep = MsgBox("Imprimer les entêtes sur toutes les pages ?", vbYesNo)
If rep = vbYes Then
ActiveWindow.SelectedSheets.PrintOut Preview _
:=True, Collate:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=n, Copies:=1,
Preview _
:=True, Collate:=True
ActiveSheet.PageSetup.PrintTitleColumns = ""
ActiveWindow.SelectedSheets.PrintOut From:=n, To:=n, Copies:=1,
Preview _
:=True, Collate:=True
End If
End Sub
Camille
"coco74" wrote:
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes
en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou
disparaître) l'en-tête de la dernière page.
Ca va dans le sens de ce que je souhaite. j'ai remplacé "ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par "ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de colonnes; Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
En contrôlant la variable n, elle est égale à 0.
Je suis sous Excel 97.
Merci de ton aide -- coco
Bonjour,
La procédure suivante demande si l'on veut des entêtes sur toutes les pages, dans la négative la dernière page est imprimée sans.
Sub Titi() ActiveSheet.PageSetup.PrintTitleColumns = "$a:a" n = ActiveWindow.SelectedSheets.VPageBreaks.Count rep = MsgBox("Imprimer les entêtes sur toutes les pages ?", vbYesNo) If rep = vbYes Then ActiveWindow.SelectedSheets.PrintOut Preview _ :=True, Collate:=True Else ActiveWindow.SelectedSheets.PrintOut From:=1, To:=n, Copies:=1, Preview _ :=True, Collate:=True ActiveSheet.PageSetup.PrintTitleColumns = "" ActiveWindow.SelectedSheets.PrintOut From:=n, To:=n, Copies:=1, Preview _ :=True, Collate:=True End If End Sub
Camille
"coco74" wrote:
Bonjour à la communauté,
Quel code écrire (XL97) pour ajouter "à la demande" les en-têtes de colonnes en haut des pages à imprimer. En fait, j'aimerais faire apparaître (ou disparaître) l'en-tête de la dernière page.
Merci de votre concours. -- coco
isabelle
bonjour coco74,
essaie en remplacant : n = ActiveWindow.SelectedSheets.VPageBreaks.Count par n = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
isabelle
Super Camille,
Ca va dans le sens de ce que je souhaite. j'ai remplacé "ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par "ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de colonnes; Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
En contrôlant la variable n, elle est égale à 0.
Je suis sous Excel 97.
Merci de ton aide
bonjour coco74,
essaie en remplacant :
n = ActiveWindow.SelectedSheets.VPageBreaks.Count
par
n = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
isabelle
Super Camille,
Ca va dans le sens de ce que je souhaite. j'ai remplacé
"ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par
"ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de
colonnes;
Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
essaie en remplacant : n = ActiveWindow.SelectedSheets.VPageBreaks.Count par n = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
isabelle
Super Camille,
Ca va dans le sens de ce que je souhaite. j'ai remplacé "ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par "ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de colonnes; Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
En contrôlant la variable n, elle est égale à 0.
Je suis sous Excel 97.
Merci de ton aide
coco74
Merci, ça marche parfaitement bien. Dans le même ordre d'idée, sais-tu comment affecter à un pied de page le contenu d'une cellule ? -- coco
bonjour coco74,
essaie en remplacant : n = ActiveWindow.SelectedSheets.VPageBreaks.Count par n = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
isabelle
Super Camille,
Ca va dans le sens de ce que je souhaite. j'ai remplacé "ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par "ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de colonnes; Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
En contrôlant la variable n, elle est égale à 0.
Je suis sous Excel 97.
Merci de ton aide
Merci, ça marche parfaitement bien.
Dans le même ordre d'idée, sais-tu comment affecter à un pied de page le
contenu d'une cellule ?
--
coco
bonjour coco74,
essaie en remplacant :
n = ActiveWindow.SelectedSheets.VPageBreaks.Count
par
n = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
isabelle
Super Camille,
Ca va dans le sens de ce que je souhaite. j'ai remplacé
"ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par
"ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de
colonnes;
Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
Merci, ça marche parfaitement bien. Dans le même ordre d'idée, sais-tu comment affecter à un pied de page le contenu d'une cellule ? -- coco
bonjour coco74,
essaie en remplacant : n = ActiveWindow.SelectedSheets.VPageBreaks.Count par n = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
isabelle
Super Camille,
Ca va dans le sens de ce que je souhaite. j'ai remplacé "ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par "ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de colonnes; Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
En contrôlant la variable n, elle est égale à 0.
Je suis sous Excel 97.
Merci de ton aide
coco74
Non ça je sais faire, ce que je voulais demander, c'est comment modifier la taille de la police dans un pied de page. -- coco
Merci, ça marche parfaitement bien. Dans le même ordre d'idée, sais-tu comment affecter à un pied de page le contenu d'une cellule ? -- coco
bonjour coco74,
essaie en remplacant : n = ActiveWindow.SelectedSheets.VPageBreaks.Count par n = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
isabelle
Super Camille,
Ca va dans le sens de ce que je souhaite. j'ai remplacé "ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par "ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de colonnes; Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
En contrôlant la variable n, elle est égale à 0.
Je suis sous Excel 97.
Merci de ton aide
Non ça je sais faire, ce que je voulais demander, c'est comment modifier la
taille de la police dans un pied de page.
--
coco
Merci, ça marche parfaitement bien.
Dans le même ordre d'idée, sais-tu comment affecter à un pied de page le
contenu d'une cellule ?
--
coco
bonjour coco74,
essaie en remplacant :
n = ActiveWindow.SelectedSheets.VPageBreaks.Count
par
n = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
isabelle
Super Camille,
Ca va dans le sens de ce que je souhaite. j'ai remplacé
"ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par
"ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de
colonnes;
Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
Non ça je sais faire, ce que je voulais demander, c'est comment modifier la taille de la police dans un pied de page. -- coco
Merci, ça marche parfaitement bien. Dans le même ordre d'idée, sais-tu comment affecter à un pied de page le contenu d'une cellule ? -- coco
bonjour coco74,
essaie en remplacant : n = ActiveWindow.SelectedSheets.VPageBreaks.Count par n = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
isabelle
Super Camille,
Ca va dans le sens de ce que je souhaite. j'ai remplacé "ActiveSheet.PageSetup.PrintTitleColumns = "$a:a"" par "ActiveSheet.PageSetup.PrintTitleRows = "$20:$20"" pour avoir les en-têtes de colonnes; Problème : si je réponds non au msgbox, il me renvoie le message d'erreur :
Erreur 1004 : le nombre doit être compris entre 1 et 32767 !
