Bonsoir cb60, pascal, tata jeannine.
peut etre que ce code pourrait aider :
Citation:
Sub Bouton18_QuandClic()
Dim c As Range
For Each c In ActiveSheet.UsedRange
* * * * If c.HasFormula Then
* * * * * * * * With c
* * * * * * * * * * * * IfNot .Comment IsNothingThen .Comment.Delete
* * * * * * * * * * * * .AddComment
* * * * * * * * * * * * .Comment.Text Text:=c.FormulaLocal
* * * * * * * * * * * * .Comment.Visible = False
* * * * * * * * End With
* * * * End If
Next c
* * * * * * * * * * * *
End Sub
|
voir en pièce jointe.
salut [file name=Barrememo_20060305223305.zip size=26419]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Barrememo_20060305223305.zip[/file]