Affiche en commentaire les formules du champ sélectionné
Sub AfficheFormuleCmt()
On Error Resume Next
For Each c In Selection
If c.HasFormula = True Then
If c.NoteText = "" Then
c.AddComment c.FormulaLocal
With c.Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 3
End With
c.Comment.Visible = True
c.Comment.Shape.Select
Selection.AutoSize = True
End If
End If
Next c
End Sub
Sub EffaceFormuleCmt()
On Error Resume Next
Selection.ClearComments
End Sub