Insérer la formule
Catégorie : Commentaires
Publié par veriland le 12-Aug-2013 21:00

Insérer la formule de la cellule active dans le commentaire

Code à placer dans un module

module

 


Option Explicit

Sub Formules_En_Commentaires()
'VériTi
'http://www.excel.veriti.net
Dim Cell, largeur, hauteur, Comm
'*******************
For Each Cell In ActiveSheet.UsedRange
    If Cell.HasFormula Then
        With Cell
            On Error Resume Next
            .Comment.Delete
            .AddComment
            .Comment.Text Text:="La formule est :" & Chr(10) & Cell.FormulaLocal
            .Comment.Shape.TextFrame.AutoSize = True
        End With
    End If
Next
End Sub