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