Discussion :

[ToFind]

Bonjour,
Je souhaite effectuer la somme de la colonne F (à partir de F9) pour chaque page et afficher le résultat dans le pied de page (côté droit).
J'ai repris le code ci-après (trouvé ailleurs) dans ThisWorkBook du classeur mais rien n'apparaît en pied de page.
Avez-vous une idée? Merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
Dim Sh As Worksheet, Rg As Range
 
For Each Sh In ActiveWindow.SelectedSheets
 If UCase(Sh.Name) = UCase("EP BATIMENT Print") Then
 With Sh
 Set Rg = .Range("F9:F" & .Range("F65536").End(xlUp).Row)
 With .PageSetup
 .RightFooter = Application.Sum(Rg)
 End With
 End With
 End If
 Next
 
End Sub

[Daniel.C]

Bonjour,

Est-ce que la feuille "EP BATIMENT PRINT" fait bien partie des feuilles sélectionnées dans le classeur actif ?

[ToFind]

Oui, la feuille EP BATIMENT Print fait partie du classeur actif.

[Daniel.C]

Je viens de faire un test; le code fonctionne. La feuille n'est peut-être pas sélectionnée. Dans le cas contraire, peux-tu mettre le classeur en PJ en effaçant les données confidentielles ?

[ToFind]

Voici une feuille test créée pour le cas. Chez moi rien ne s'affiche en pied de page droit.
Merci de ton intérêt.

[Daniel.C]

J'ai bien "102" en aperçu avant impression.

[ToFind]

Merci Daniel et bbil.
Je ne comprends pas ce qui se passe.
Que je mette un code ou l'autre, rien n'apparaît dans le pied de page droit. Faut-il faire autre chose que de mettre le code dans ThisWorkBook?

[SfJ5Rpw8]

Ben il faut que tu lance l'impression ... et que tes macros soit activées..

[ToFind]

Oui, évidemment.
Mais rien ne s'affiche à droite. Seul le pied de page classique que j'ai placé à gauche de la feuille s'imprime.

Je tourne en rond...
Les macros sont activées, je place le code dans le ThisWorkBook du classeur actif. Je lance le preview. Et la somme n'apparaît tjrs pas en pied de page. Pas moyen de comprendre ce que je ne fais pas correctement!!! C'est pourtant simple.

Daniel, peux-tu me dire si tu as simplement placé le code dans le ThisWorkBook et lancer le preview pour obtenir le bon résultat?
Bien merci.

[SfJ5Rpw8]

Tu dis le 'classeur actif'.. il y as donc plusieurs classeurs ?

[ToFind]

Non, un seul classeur est ouvert. Pour le test, j'ai créer un classeur avec 3 feuilles. J'ai nommé une feuille EP BATIMENT PRINT et j'ai mis le code ds ThisWorkBook. J'ai aussi mis un pied de page classique à gauche pour vérifier qu'il s'affiche bien. C'est comme si le code de ThisWorkBook ne s'exécutait pas...