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]

[iIncoming]

Ce code me déclenche une erreur lorsque je le mets tel quel dans le code macro de ma feuille :

Code :

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

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

Erreur de compilation :
Instruction incorrecte à l'extérieur d'une procédure

[Daniel.C]

Ca fonctionne ici. A moins que la feuille soit protégée.

[Docmarti]

Dans l'événement Change de la feuille peut-être.

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Or Target.Address = "$A$2" Then
  If PageSetup.LeftFooter <> Cells(1, 1) & " " & Cells(1, 2) Then
   PageSetup.LeftFooter = Cells(1, 1) & " " & Cells(1, 2)
 End If
End If
End Sub

Docmarti.

[iIncoming]

Ca fonctionne ici. A moins que la feuille soit protégée.

Effectivement, ma feuille est protégée et doit l'être.
En revanche, le fait d'enlever la protection, ne change rien…
Existe-t-il un moyen de résoudre mon problème ?

Sinon, ce code là, au changement d'état, ne fonctionne pas du tout. D'ailleurs, réaliser un déclenchement au changement de valeur d'une cellule ne peut pas convenir à mon utilisation. J'aimerais vraiment que ce soit l'aperçu avant impression qui déclenche ceci.

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Or Target.Address = "$A$2" Then
  If PageSetup.LeftFooter <> Cells(1, 1) & " " & Cells(1, 2) Then
   PageSetup.LeftFooter = Cells(1, 1) & " " & Cells(1, 2)
 End If
End If
End Sub

Or, même ce code là ne fonctionne pas :

Code :

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

Private Sub Workbook_BeforePrint(Cancel As Boolean)

[keygen08]

Bonjour,
Module placer dans Thisworkbook

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Test du nom de la feuille
If ActiveSheet.Name = "Feuil1" Then
'desactive la protection
ActiveSheet.Unprotect Password:="0000"
'effectue les modifications du pied de page
ActiveSheet.PageSetup.LeftFooter = [A1] & " " & [A2]
'réactive la protection de la feuille
ActiveSheet.Protect Password:="0000", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

[Daniel.C]

Ce code me déclenche une erreur lorsque je le mets tel quel dans le code macro de ma feuille :

Publie ce code.

[Invité]

Ce code me déclenche une erreur lorsque je le mets tel quel dans le code macro de ma feuille :

Code :

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

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

Erreur de compilation :
Instruction incorrecte à l'extérieur d'une procédure

ce message d'erreur est cohérent car si tu copie colle le code en dehors d'une sub

Code :

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

1
2
3
4
5
sub test()
 
end sub
 
msgbox "toto" 'debug pas contant

petite précision:
ça peut semblé invraisemblable, mais la mise en page est assujettie a l'imprimante sélectionnée au moment de l’affectation de la mise en page!

ainsi une imprimante traceur, ne dispose pas d'entêtes et pieds de pages donc erreur!

de plus si le contenu de l'entête ce trouve dans la cellule Feuil2!A1 tu as toutes l’attitude pour pour utiliser l’événement change pour modifier ta mise en page!

[Daniel.C]

Bonjour,

ce message d'erreur est cohérent car si tu copie colle le code en dehors d'une sub

On ne me l'avais encore jamais faite, celle-la !