Christian0258
XLDnaute Accro
Bonjour à tout le forum,
Cette macro, qui fonctionne bien, ajoute en commentaire le contenu de la cellule, puis efface son contenu.
Comment faire pour ajouter, la date du jour, à la suite dans le commentaire ainsi créé.
La macro :
Sub AjouteCommentaire()
Selection.ClearComments
For Each c In Selection
c.AddComment CStr(c.Value)
c.Comment.Shape.TextFrame.AutoSize = True
c.Comment.Shape.OLEFormat.Object.Font.Size = 12
Next c
Selection.ClearContents
End Sub
Merci pour votre aide.
Bien amicalement,
Christian
Cette macro, qui fonctionne bien, ajoute en commentaire le contenu de la cellule, puis efface son contenu.
Comment faire pour ajouter, la date du jour, à la suite dans le commentaire ainsi créé.
La macro :
Sub AjouteCommentaire()
Selection.ClearComments
For Each c In Selection
c.AddComment CStr(c.Value)
c.Comment.Shape.TextFrame.AutoSize = True
c.Comment.Shape.OLEFormat.Object.Font.Size = 12
Next c
Selection.ClearContents
End Sub
Merci pour votre aide.
Bien amicalement,
Christian