Insérer une formule dans un commentaire

Bonsoir à tous,

Comment peut-on insérer une formule dans un commentaire par code VBA ?

Merci.

Bonjour,

Pas bien développée ta question...

A tout hasard, récupérer la formule de A1 :

f=[A1].formulalocal

eric

Bonjour éric,

J'ai essayé avec ce code :

Sub test()
   'La formule en [A1]= MOYENNE(B1:B3)
    Range("E9").AddComment
    Range("E9").Comment.Visible = False
    Range("E9").Comment.Text Text:=[A1].FormulaLocal
    Range("D12").Select
End Sub

Dans le commentaire obtenu, je n'ai que la formule inscrit :

MOYENNE(B1:B3)

au lieu de : 10,33 (moyenne de 10, 12, 9)

bonjour, essaye ce code là

Sub Commentaire()

aa = Range("E9")

With Range("E9")
    .AddComment
    .Comment.Visible = True
    .Comment.Text Text:="" & aa
End With

End Sub

Bonjour,

Dans le commentaire obtenu, je n'ai que la formule inscrit :

Pourquoi demander la formule alors ?

Si tu ne veux que le résultat utiliser [A1].value (ou bien [A1].text si tu veux le même format), ou si c'est vraiment utiliser une fonction de feuille :

Application.Average([A2:A4])

eric

Bonjour Gave Over, éric,

J'ai fait quelques tests, mais quand j’exécute la macro manuellement j'obtiens quelque chose, mais si je la lance depuis un bouton, les commentaires sont vides.

Bonjour,

A+

Bonsoir frangy,

Merci pour la rectification.