Sous-total dans pied de page

[Chris401]

Bonsoir

Pouvez-vous me dire s'il est possible de mettre un sous-total en pied de page SVP ?

En formule ça donne :

=SOUS.TOTAL(3;$B:$B)-1

Avec l'enregistreur j'arrive à :

FormulaR1C1 = "=SUBTOTAL(3,C2)-1"

mais je ne sais pas comment l'intégrer à :

.PageSetup.CenterFooter = ???

Je ne veux pas récupérer la valeur dans une cellule car je suis en calcul manuel dans la feuille.

Merci
Chris

 

[JCGL]

Re : Sous-total dans pied de page

Bonjour à tous,

Peux-tu essayer en mettant la formule en C1, par exemple, et avec :

With ActiveSheet.PageSetup
'.tes paramètres
'.tes paramètres
 .CenterFooter = Range("C1")
'.tes paramètres
'.tes paramètres
End With

A+ à tous

 

[Chris401]

Re : Sous-total dans pied de page

Re

Bonsoir JCGL

Comme je l'ai dit dans ma demande, je ne veux pas récupérer la valeur d'une cellule.

Merci
Chris

 

[JCGL]

Re : Sous-total dans pied de page

Bonjour à tous,

Dans le ThisWorBook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = Application.WorksheetFunction.Subtotal(3, Columns(2)) -1 & " Occurences"
End Sub

A+ à tous

 

[Chris401]

Re : Sous-total dans pied de page

YES !!!

You're the best !

Merci beaucoup
Chris