Bonjour,
J'ai une trentaire de feuille dans mon classeur (une feuille par
activit=E9)
Je voudrais donner un titre =E0 chacun de mes tableaux
Une macro me permettrait de faire cela plus rapidement que de le faire
manuellement.
Merci d'avance
Eric
bonjour eric inspire toi de cette proc tirée d'un message de denis michon (qui nous laisse un peu tomber des temps-ci :-) pour l'en-tête de page, il faut remplacer Footer par Header je subodore qu'il faille créer une variable "i" pour balayer la plage de cellules où tu auras installé la trentaine de titres que tu souhaites donner à chacun de tes tableaux de sorte que tu aies un truc du style .Range("A" & i) dans ta boucle, dans la mesure où tes titres sont dans la colonne A d'une feuille à définir... comme il y a ici des gentils contributeurs qui écrivent en VBA comme les aveugles lisent le braille, tu auras sûrement un complément d'information....moi, je ne fais que (dé)grossir voici la proc en question
Dans le ThisWorkbook de ton classeur, copie la procédure suivante :
à chaque feuille que tu vas imprimée, chaque section du pied de page sera renseignée par le contenu des cellules sélectionnées.
Le total des caractères acceptables pour les 3 sections est de 255 caractères. Si tu définis par programmation, des caractéristiques
comme "Gras" ou un choix de police autre que la police par défaut, cela restreindra d'autant le nombre total de caractères
admissibles.
'--------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
'pied de page à gauche
.LeftFooter = .Range("a1")
'pied de page au centre
.CenterFooter = .Range("A2")
'pied de page de droite
.RightFooter = .Range("A3")
End With
End With
Next
End Sub
HTH jps
"eric" a écrit dans le message de news:
Bonjour, J'ai une trentaire de feuille dans mon classeur (une feuille par activité) Je voudrais donner un titre à chacun de mes tableaux Une macro me permettrait de faire cela plus rapidement que de le faire manuellement. Merci d'avance Eric
bonjour eric
inspire toi de cette proc tirée d'un message de denis michon (qui nous
laisse un peu tomber des temps-ci :-)
pour l'en-tête de page, il faut remplacer Footer par Header
je subodore qu'il faille créer une variable "i" pour balayer la plage de
cellules où tu auras installé la trentaine de titres que tu souhaites donner
à chacun de tes tableaux de sorte que tu aies un truc du style .Range("A" &
i) dans ta boucle, dans la mesure où tes titres sont dans la colonne A d'une
feuille à définir...
comme il y a ici des gentils contributeurs qui écrivent en VBA comme les
aveugles lisent le braille, tu auras sûrement un complément
d'information....moi, je ne fais que (dé)grossir
voici la proc en question
Dans le ThisWorkbook de ton classeur, copie la procédure suivante :
à chaque feuille que tu vas imprimée, chaque section du pied de page sera
renseignée par le contenu des cellules sélectionnées.
Le total des caractères acceptables pour les 3 sections est de 255
caractères. Si tu définis par programmation, des caractéristiques
comme "Gras" ou un choix de police autre que la police par défaut, cela
restreindra d'autant le nombre total de caractères
admissibles.
'--------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
'pied de page à gauche
.LeftFooter = .Range("a1")
'pied de page au centre
.CenterFooter = .Range("A2")
'pied de page de droite
.RightFooter = .Range("A3")
End With
End With
Next
End Sub
HTH
jps
"eric" <reda.ben-menni@libertysurf.fr> a écrit dans le message de news:
1145950323.876292.63020@y43g2000cwc.googlegroups.com...
Bonjour,
J'ai une trentaire de feuille dans mon classeur (une feuille par
activité)
Je voudrais donner un titre à chacun de mes tableaux
Une macro me permettrait de faire cela plus rapidement que de le faire
manuellement.
Merci d'avance
Eric
bonjour eric inspire toi de cette proc tirée d'un message de denis michon (qui nous laisse un peu tomber des temps-ci :-) pour l'en-tête de page, il faut remplacer Footer par Header je subodore qu'il faille créer une variable "i" pour balayer la plage de cellules où tu auras installé la trentaine de titres que tu souhaites donner à chacun de tes tableaux de sorte que tu aies un truc du style .Range("A" & i) dans ta boucle, dans la mesure où tes titres sont dans la colonne A d'une feuille à définir... comme il y a ici des gentils contributeurs qui écrivent en VBA comme les aveugles lisent le braille, tu auras sûrement un complément d'information....moi, je ne fais que (dé)grossir voici la proc en question
Dans le ThisWorkbook de ton classeur, copie la procédure suivante :
à chaque feuille que tu vas imprimée, chaque section du pied de page sera renseignée par le contenu des cellules sélectionnées.
Le total des caractères acceptables pour les 3 sections est de 255 caractères. Si tu définis par programmation, des caractéristiques
comme "Gras" ou un choix de police autre que la police par défaut, cela restreindra d'autant le nombre total de caractères
admissibles.
'--------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
'pied de page à gauche
.LeftFooter = .Range("a1")
'pied de page au centre
.CenterFooter = .Range("A2")
'pied de page de droite
.RightFooter = .Range("A3")
End With
End With
Next
End Sub
HTH jps
"eric" a écrit dans le message de news:
Bonjour, J'ai une trentaire de feuille dans mon classeur (une feuille par activité) Je voudrais donner un titre à chacun de mes tableaux Une macro me permettrait de faire cela plus rapidement que de le faire manuellement. Merci d'avance Eric
eric
Bonjour, Merci pour ta réponse. Mais je veux mettre mon titre dans l'en tete, pas dans une cellule... Donc je ne comprends pas pourquoi la boucle : Range("A" & i)
Bonjour,
Merci pour ta réponse.
Mais je veux mettre mon titre dans l'en tete, pas dans une cellule...
Donc je ne comprends pas pourquoi la boucle : Range("A" & i)
Bonjour, Merci pour ta réponse. Mais je veux mettre mon titre dans l'en tete, pas dans une cellule... Donc je ne comprends pas pourquoi la boucle : Range("A" & i)
