Insérer la formule de la cellule active dans le commentaire
Code à placer dans un module
OptionExplicit
Sub Formules_En_Commentaires() 'VériTi 'http://www.veriti.fr Dim Cell, largeur, hauteur, Comm '******************* ForEach Cell In ActiveSheet.UsedRange If Cell.HasFormula Then With Cell OnErrorResumeNext .Comment.Delete .AddComment .Comment.Text Text:="La formule est :" & Chr(10) & Cell.FormulaLocal .Comment.Shape.TextFrame.AutoSize = True EndWith EndIf Next EndSub
Date de création : 24/05/2005 - 19:18
Dernière modification : 25/05/2005 - 21:04
Catégorie : Commentaires Page lue 2980 fois