Formule bas de page Résolu

Question

Bonjour,

Dans une feuille excel, j'aimerais qu'à chaque bas de page, il y ait automatiquement une formule calculant la somme de toutes les valeurs d'une colonne de cette page, quelqu'un peut m'aider comment procéder?

D'avance merci.

Tiaro

Kuartz · Answer

Bonjour,

Je pense que la formule suivante devrait faire l'affaire.

Sub SOMME()

Dim DL As Long

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'A adapter, le chiffre 1 est la colonne A, mettre le numéro de colonne qui va le plus bas dans votre tableau

Sheets(1).Cells(DL + 2, 1) = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(DL, 1)))

'Sheets(1) = Feuille 1
'Cells(DL + 2, 1) = Cellule de la dernière ligne + 2 de la colonne A (1)
'Application.WorksheetFunction.Sum = Somme de
'Cells(1, 1) = De la cellule A1
'Cells(DL, 1 = A la cellule dernière ligne de la colonne A

End Sub


Cordialement.

Formule bas de page

1 réponse

Votre réponse

Discussions similaires