C'est peut-être bête comme question mais on y va quand même :
J'ai une feuille Excel de plusieurs pages. Sur chaque page, une cellule
comporte le titre et un sous-titre pour la page. Donc, les premières cinq
pages ont le même titre « Commande » mais avec des sous-titres différents.
Après, les pages 6 à 8 ont le titre de « Etiquettes » et des sous-titres
différents aussi et ainsi de suite.
Je voudrais créer des sections selon les titres des pages afin de pouvoir
avoir le titre de chaque section dans le pied de page. Par exemple sur les
pages 1 à 5, le pied de page comportera le titre commun de « Commande », sur
les pages 6 à 8 le pied de page comportera le titre commun de « Etiquettes »
etc….
Est-ce que quelqu’un aura une solution ?
Mes grands remerciements par avance.
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
michdenis
Bonjour Rm81,
Essaie ceci :
(pas tester)
Tu devras définir selon ton application, le début et la fin de chacune des boucles et le nom de la feuille à imprimer
'------------------------------- Sub Imprimer()
Dim A As Integer 'Feuil1 = Nom de la propriété Name de la feuille à imprimer With Feuil1 For A = 1 To 5 With .PageSetup .LeftFooter = "Commandes" End With .PrintOut From:=A, To:=A, Preview:=True Next For A = 6 To 8 With .PageSetup .LeftFooter = "Étiquettes" End With .PrintOut From:=A, To:=A, Preview:=True Next For A = 9 To 10 With .PageSetup .LeftFooter = "Étiquettes" End With .PrintOut From:=A, To:=A, Preview:=True Next End With
End Sub '-------------------------------
Salutations!
"rm81" a écrit dans le message de news: Bonjour,
C'est peut-être bête comme question mais on y va quand même :
J'ai une feuille Excel de plusieurs pages. Sur chaque page, une cellule comporte le titre et un sous-titre pour la page. Donc, les premières cinq pages ont le même titre « Commande » mais avec des sous-titres différents. Après, les pages 6 à 8 ont le titre de « Etiquettes » et des sous-titres différents aussi et ainsi de suite.
Je voudrais créer des sections selon les titres des pages afin de pouvoir avoir le titre de chaque section dans le pied de page. Par exemple sur les pages 1 à 5, le pied de page comportera le titre commun de « Commande », sur les pages 6 à 8 le pied de page comportera le titre commun de « Etiquettes » etc..
Est-ce que quelqu'un aura une solution ? Mes grands remerciements par avance.
Roshni
Bonjour Rm81,
Essaie ceci :
(pas tester)
Tu devras définir selon ton application, le début et la fin
de chacune des boucles et le nom de la feuille à imprimer
'-------------------------------
Sub Imprimer()
Dim A As Integer
'Feuil1 = Nom de la propriété Name de la feuille à imprimer
With Feuil1
For A = 1 To 5
With .PageSetup
.LeftFooter = "Commandes"
End With
.PrintOut From:=A, To:=A, Preview:=True
Next
For A = 6 To 8
With .PageSetup
.LeftFooter = "Étiquettes"
End With
.PrintOut From:=A, To:=A, Preview:=True
Next
For A = 9 To 10
With .PageSetup
.LeftFooter = "Étiquettes"
End With
.PrintOut From:=A, To:=A, Preview:=True
Next
End With
End Sub
'-------------------------------
Salutations!
"rm81" <rm81@discussions.microsoft.com> a écrit dans le message de news: 6D74F28F-B304-4D30-95B7-352B4EF1723E@microsoft.com...
Bonjour,
C'est peut-être bête comme question mais on y va quand même :
J'ai une feuille Excel de plusieurs pages. Sur chaque page, une cellule
comporte le titre et un sous-titre pour la page. Donc, les premières cinq
pages ont le même titre « Commande » mais avec des sous-titres différents.
Après, les pages 6 à 8 ont le titre de « Etiquettes » et des sous-titres
différents aussi et ainsi de suite.
Je voudrais créer des sections selon les titres des pages afin de pouvoir
avoir le titre de chaque section dans le pied de page. Par exemple sur les
pages 1 à 5, le pied de page comportera le titre commun de « Commande », sur
les pages 6 à 8 le pied de page comportera le titre commun de « Etiquettes »
etc..
Est-ce que quelqu'un aura une solution ?
Mes grands remerciements par avance.
Tu devras définir selon ton application, le début et la fin de chacune des boucles et le nom de la feuille à imprimer
'------------------------------- Sub Imprimer()
Dim A As Integer 'Feuil1 = Nom de la propriété Name de la feuille à imprimer With Feuil1 For A = 1 To 5 With .PageSetup .LeftFooter = "Commandes" End With .PrintOut From:=A, To:=A, Preview:=True Next For A = 6 To 8 With .PageSetup .LeftFooter = "Étiquettes" End With .PrintOut From:=A, To:=A, Preview:=True Next For A = 9 To 10 With .PageSetup .LeftFooter = "Étiquettes" End With .PrintOut From:=A, To:=A, Preview:=True Next End With
End Sub '-------------------------------
Salutations!
"rm81" a écrit dans le message de news: Bonjour,
C'est peut-être bête comme question mais on y va quand même :
J'ai une feuille Excel de plusieurs pages. Sur chaque page, une cellule comporte le titre et un sous-titre pour la page. Donc, les premières cinq pages ont le même titre « Commande » mais avec des sous-titres différents. Après, les pages 6 à 8 ont le titre de « Etiquettes » et des sous-titres différents aussi et ainsi de suite.
Je voudrais créer des sections selon les titres des pages afin de pouvoir avoir le titre de chaque section dans le pied de page. Par exemple sur les pages 1 à 5, le pied de page comportera le titre commun de « Commande », sur les pages 6 à 8 le pied de page comportera le titre commun de « Etiquettes » etc..
Est-ce que quelqu'un aura une solution ? Mes grands remerciements par avance.
Roshni
rm81
Bonjour,
Merci beaucoup pour ta réponse - je vais l'essayer demain.
Bonne soirée :)
Bonjour Rm81,
Essaie ceci :
(pas tester)
Tu devras définir selon ton application, le début et la fin de chacune des boucles et le nom de la feuille à imprimer
'------------------------------- Sub Imprimer()
Dim A As Integer 'Feuil1 = Nom de la propriété Name de la feuille à imprimer With Feuil1 For A = 1 To 5 With .PageSetup .LeftFooter = "Commandes" End With .PrintOut From:=A, To:=A, Preview:=True Next For A = 6 To 8 With .PageSetup .LeftFooter = "Étiquettes" End With .PrintOut From:=A, To:=A, Preview:=True Next For A = 9 To 10 With .PageSetup .LeftFooter = "Étiquettes" End With .PrintOut From:=A, To:=A, Preview:=True Next End With
End Sub '-------------------------------
Salutations!
"rm81" a écrit dans le message de news: Bonjour,
C'est peut-être bête comme question mais on y va quand même :
J'ai une feuille Excel de plusieurs pages. Sur chaque page, une cellule comporte le titre et un sous-titre pour la page. Donc, les premières cinq pages ont le même titre « Commande » mais avec des sous-titres différents. Après, les pages 6 à 8 ont le titre de « Etiquettes » et des sous-titres différents aussi et ainsi de suite.
Je voudrais créer des sections selon les titres des pages afin de pouvoir avoir le titre de chaque section dans le pied de page. Par exemple sur les pages 1 à 5, le pied de page comportera le titre commun de « Commande », sur les pages 6 à 8 le pied de page comportera le titre commun de « Etiquettes » etc..
Est-ce que quelqu'un aura une solution ? Mes grands remerciements par avance.
Roshni
Bonjour,
Merci beaucoup pour ta réponse - je vais l'essayer demain.
Bonne soirée :)
Bonjour Rm81,
Essaie ceci :
(pas tester)
Tu devras définir selon ton application, le début et la fin
de chacune des boucles et le nom de la feuille à imprimer
'-------------------------------
Sub Imprimer()
Dim A As Integer
'Feuil1 = Nom de la propriété Name de la feuille à imprimer
With Feuil1
For A = 1 To 5
With .PageSetup
.LeftFooter = "Commandes"
End With
.PrintOut From:=A, To:=A, Preview:=True
Next
For A = 6 To 8
With .PageSetup
.LeftFooter = "Étiquettes"
End With
.PrintOut From:=A, To:=A, Preview:=True
Next
For A = 9 To 10
With .PageSetup
.LeftFooter = "Étiquettes"
End With
.PrintOut From:=A, To:=A, Preview:=True
Next
End With
End Sub
'-------------------------------
Salutations!
"rm81" <rm81@discussions.microsoft.com> a écrit dans le message de news: 6D74F28F-B304-4D30-95B7-352B4EF1723E@microsoft.com...
Bonjour,
C'est peut-être bête comme question mais on y va quand même :
J'ai une feuille Excel de plusieurs pages. Sur chaque page, une cellule
comporte le titre et un sous-titre pour la page. Donc, les premières cinq
pages ont le même titre « Commande » mais avec des sous-titres différents.
Après, les pages 6 à 8 ont le titre de « Etiquettes » et des sous-titres
différents aussi et ainsi de suite.
Je voudrais créer des sections selon les titres des pages afin de pouvoir
avoir le titre de chaque section dans le pied de page. Par exemple sur les
pages 1 à 5, le pied de page comportera le titre commun de « Commande », sur
les pages 6 à 8 le pied de page comportera le titre commun de « Etiquettes »
etc..
Est-ce que quelqu'un aura une solution ?
Mes grands remerciements par avance.
Merci beaucoup pour ta réponse - je vais l'essayer demain.
Bonne soirée :)
Bonjour Rm81,
Essaie ceci :
(pas tester)
Tu devras définir selon ton application, le début et la fin de chacune des boucles et le nom de la feuille à imprimer
'------------------------------- Sub Imprimer()
Dim A As Integer 'Feuil1 = Nom de la propriété Name de la feuille à imprimer With Feuil1 For A = 1 To 5 With .PageSetup .LeftFooter = "Commandes" End With .PrintOut From:=A, To:=A, Preview:=True Next For A = 6 To 8 With .PageSetup .LeftFooter = "Étiquettes" End With .PrintOut From:=A, To:=A, Preview:=True Next For A = 9 To 10 With .PageSetup .LeftFooter = "Étiquettes" End With .PrintOut From:=A, To:=A, Preview:=True Next End With
End Sub '-------------------------------
Salutations!
"rm81" a écrit dans le message de news: Bonjour,
C'est peut-être bête comme question mais on y va quand même :
J'ai une feuille Excel de plusieurs pages. Sur chaque page, une cellule comporte le titre et un sous-titre pour la page. Donc, les premières cinq pages ont le même titre « Commande » mais avec des sous-titres différents. Après, les pages 6 à 8 ont le titre de « Etiquettes » et des sous-titres différents aussi et ainsi de suite.
Je voudrais créer des sections selon les titres des pages afin de pouvoir avoir le titre de chaque section dans le pied de page. Par exemple sur les pages 1 à 5, le pied de page comportera le titre commun de « Commande », sur les pages 6 à 8 le pied de page comportera le titre commun de « Etiquettes » etc..
Est-ce que quelqu'un aura une solution ? Mes grands remerciements par avance.
