Ajouter contenu cellule dans un commentaire
Catégorie : Commentaires
Publié par veriland le 11-Aug-2013 16:00

Pour cet exemple, il faut à la base une feuille nommée "Import" ... avec cette procédure, la valeur de la cellule A1 de cette feuille, s'inscrit en commentaire dans la cellule A1 de la feuille active ...

 

Code à placer dans un module

modules

 

Option Explicit

Sub Ajout_Commentaire()
'Ti
'http://www.excel.veriti.net
Dim CelS As Range, CelDest As Range, AncienCom As Variant
'on importe le texte de la cellule A1 de la feuille "Import"
Set CelS = Worksheets("Import").Range("A1")
'on insère cette valeur dans la cellule A1 de la feuille active
Set CelDest = ActiveSheet.Range("A1")
'on ajoute le commentaire
With CelDest
    On Error Resume Next
    .Comment.Delete
    .AddComment
    .Comment.Shape.TextFrame.AutoSize = True
    .Comment.Text CStr(CelS)
End With
'et le tour est joué
End Sub