Discussion :

[iIncoming]

Salutations,

J'ai beaucoup parcouru google et même l'excellentissime http://fring.developpez.com/vba/excel/entetepiedpage/
Malheureusement, je n'arrive pas à obtenir ce que je veux sur mon EXCEL 2003, peut-être arriverez vous à m'éclairer. Voici ma problématique.

Je dispose d'une 20ène d'onglets.

Dans un de ces onglets, lorsque j'imprime, je souhaite faire apparaitre un pied de page (gauche) contenant la valeur des formules situées en :
A1 ajouter un espace A2

Il s'agit donc de placer le code macro pour pour qu'il agisse à l'aperçu avant impression seulement de l'onglet actif (sans le nommer).
Comment le déclencher ? Comment recopier le contenu de ces cellules en bas de page ?

Merci.

[Daniel.C]

Bonjour,

Dans ta macro, tu testes le nom des onglets à traiter, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro()
Dim Feuilles As Variant
Feuilles = Array("Feuil2", "Feuil3", "Feuil5")
For Each Item In Feuilles
    'ici ton code
Next Item
End Sub

[iIncoming]

Je me suis mal exprimé.
J'ai corrigé ma formulation dans le message initial.

[Daniel.C]

Dans cet onglet, utilise deux cellules qui sont inutilisées dans le autres; tu mets (par exemple) :
en IV1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A1

en IV2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=A2

et pour tous onglets, tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub toutes_feuilles()
Dim x As Byte
 
For x = 1 To Sheets.Count
    With Sheets(x).PageSetup
        'pied de page
        .LeftFooter = Sheets(x).[IV1] & " " & Sheets(x).[IV2]
    End With
Next x
 
End Sub

[iIncoming]

Merci pour votre aide, mais je cherche vraiment un moyen "plus propre" et clair dans mon esprit de le faire pour une feuille et non pas toute les feuilles !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub declenchement-lorsque-apercu-de-la-page-active()
    With Sheets(x).PageSetup
        'pied de page
        .LeftFooter = Sheets(x).[A1] & " " & Sheets(x).[A2]
    End With
End Sub

Ma syntaxe doit être fausse, mais pourquoi ne pas le faire marcher comme ça ?

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.LeftFooter = [A1] & " " & [A2]