XL 2016 Mettre une somme en entête

[dodineau]

Bonjour à toutes et tous.
Est-il possible dans une macro de mettre dans une feuille de calcul, en entête gauche, une formule du type = somme(A1:A3)
Merci pour votre aide.
A+

 

[bbb38]

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

 

[dodineau]

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

 

[Phil69970]

Bonjour @dodineau , Bernard

Je te propose ce code:

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

 

[dodineau]

Bonjour et merci cette réponse me convient parfaitement.

A+