Autres Ajouter date dans un commentaire

[Christian0258]

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

 

[Hasco]

Bonjour,

' inscrit en commentaire la valeur de la cellule plus "au 04/04/2020" (pour aujourd'hui)
c.AddComment CStr(c.Value) & Format(Date,"\au dd/mm/yyyy")

Cordialement

 

[job75]

Bonjour Christian0258, Roblochon,

c.AddComment CStr(c) & " " & Date

A+

 

[Christian0258]

Re, le forum, Roblochon, Job75

Merci à vous deux, pour votre solution, c'est impec.

Bien à vous,
Christian

 

[Christian0258]

Re, le forum,
Je reviens vers vous pour cette petite question ;
si à la fin de la macro je veux mettre un zéro dans toutes les cellules sélectionnées au lieu de Selection.ClearContents ???

Merci pour votre aide.
Bien à vous,
Christian

 

[Hasco]

Re,

i à la fin de la macro je veux mettre un zéro dans toutes les cellules sélectionnées au lieu de Selection.ClearContents ???

selection.value =0

 

[Christian0258]

Re, le forum, Roblochon

Merci, Roblochon, pour ton aide. Dis-moi c'est bizarre chez moi le zéro ne s'inscrit pas...si je pointe sur la/les cellules concernée(s) c'est blanc et non 0
à te lire,
Bien amicalement,
Christian

 

[Hasco]

Re,

Voir si les cellules possèdent un format personnalisé.

cordialement

 

[Christian0258]

Re,

non, format standard
si je tape un zéro ensuite je pointe sur la cellule le 0 est bien inscrit

Bien amicalement

 

[Hasco]

Bonjour,

Je ne vois pas....!?

Essayez en commentant la ligne Selection.Value = 0 et juste avant la ligne Next de la boucle For mettez: C.Value = 0

Bonne journée

 

[_Thierry]

Bonjour @Christian0258 , @Roblochon , le Fil, le Forum

Moi j'irai voir ici dans Menu => Options d'Excel :

Désolé mon Excel est en US

Bonne journée
@+Thierry

 

[Christian0258]

Re, le forum, Roblochon, Thierry

C'est ok, ça fonctionne, sur la base de la macro (post1) et le rajoût
"selection.value =0" du post6 de Roblochon ça fonctionne parfaitement....j'ai du cafouiller à un moment...Lol
Un grand merci à vous.
Bien amicalement,
Christian

 

[Hasco]

Re,

@_Thierry : tiens le l'avais oublié celle-ci ! Merci

Cordialement