Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Boucler sur toutes les feuilles (calcul & graph)

Boucler sur toutes les feuilles (calcul & graph)

2 réponses
Avatar
Christophe CAMPAIN
Bonjour à tous,

Comment faire pour "boucler" sur toutes les feuilles de mon classeur, graph
compris ?
Actuellement, ma procédure est la suivante :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
Sh.PageSetup.LeftFooter = "&8Développé par Christophe CAMPAIN"
Sh.PageSetup.LeftFooter = "&6" & ActiveWorkbook.FullName
Next Sh
End Sub

Le problème, c'est que ça "boucle" uniquement sur les feuilles de calcul.

Par avance merci,

@+
Kristof
Signaler un problème avec ce contenu

2 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
papou
Bonjour Christophe
Utilise Sheets au lieu de WorkSheets :
For Each obj In ActiveWorkbook.Sheets
MsgBox obj.Name
Next

Cordialement
Pascal

"Christophe CAMPAIN" a écrit
dans le message de news:epbJ%23D%
Bonjour à tous,

Comment faire pour "boucler" sur toutes les feuilles de mon classeur,
graph

compris ?
Actuellement, ma procédure est la suivante :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
Sh.PageSetup.LeftFooter = "&8Développé par Christophe CAMPAIN"
Sh.PageSetup.LeftFooter = "&6" & ActiveWorkbook.FullName
Next Sh
End Sub

Le problème, c'est que ça "boucle" uniquement sur les feuilles de calcul.

Par avance merci,

@+
Kristof




Avatar
Christophe CAMPAIN
Merci, ça marche !

@+
Kristof

"papou" a écrit dans le message de
news:Of9UFI%
Bonjour Christophe
Utilise Sheets au lieu de WorkSheets :
For Each obj In ActiveWorkbook.Sheets
MsgBox obj.Name
Next

Cordialement
Pascal

"Christophe CAMPAIN" a écrit
dans le message de news:epbJ%23D%
Bonjour à tous,

Comment faire pour "boucler" sur toutes les feuilles de mon classeur,
graph

compris ?
Actuellement, ma procédure est la suivante :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
Sh.PageSetup.LeftFooter = "&8Développé par Christophe CAMPAIN"
Sh.PageSetup.LeftFooter = "&6" & ActiveWorkbook.FullName
Next Sh
End Sub

Le problème, c'est que ça "boucle" uniquement sur les feuilles de
calcul.



Par avance merci,

@+
Kristof