XL 2016 Mettre une somme en entête

bbb38

XLDnaute Accro

• 18 Mai 2021

• #2

Bonjour dodineau , le forum,
En entête gauche, cela ne correspondrait pas à la cellule A1…. Somme(A1 :A3)… J’avais envie de plaisanter.
Exemple sur le fichier ci-joint. On peut également utiliser une boucle, en vérifiant s’il s’agit bien de valeurs numériques.
Cordialement,
Bernard

 

Pièces jointes

• Somme.xlsm

  18.1 KB · Affichages: 17

Vote positif 0 Vote négatif

D

dodineau

XLDnaute Occasionnel

• 18 Mai 2021

• #3

Merci pour cette réponse.
Je ne veux pas mettre la somme dans une cellule à gauche mais dans l'entête d'impression.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 18 Mai 2021

• #4

Bonjour @dodineau , Bernard

Je te propose ce code:

VB:

Sub Mon_EnTete()
With ActiveSheet.PageSetup
    Set MaSomme = Range("A1:A3")
    MaSomme = Application.WorksheetFunction.Sum(MaSomme)
    .LeftHeader = MaSomme
End With
End Sub

Et tu auras le résultat dans ton en-tête de page gauche

@Phil69970

 

Vote positif 0 Vote négatif

Solution

D

dodineau

XLDnaute Occasionnel

• 19 Mai 2021

• #5

Bonjour et merci cette réponse me convient parfaitement.

A+

 

Vote positif 0 Vote négatif