Transfert le contenu de la cellule dans un commentaire

[biker]

Bonjour,

Je suis a la recherche d'une macro me donnant la possibilité de transferer le contenu de la cellule dans un commentaire.

Apres des recherches sur internet, je suis arriver a en trouver une mais le petit probleme est que dès que je change la valeur de cette cellule, il me met bien le contenu de la cellule dans le commentaire mais a la suite de l'ancien commentaire.

Mais ce que je recherche c'est plutot qu'il remplace l'ancien commentaire par le nouveau contenu de cette cellule.

Merci par avance de vos reponses

 

[camarchepas]

Re : Transfert le contenu de la cellule dans un commentaire

Bonjour,
Toutes les saisies sont systématiquement en commentaire, ou il faut aussi prévoir une message box pour confirmation ou encore un bouton pour sélectionner la fonction.
Tu peux joindre la macro si elle correspond, y'a pas grand chose à modifier à mon avis

 

[WDAndCo]

Re : Transfert le contenu de la cellule dans un commentaire

Bonjour le Forum

Range("A1").AddComment Text = Range("B1").Value
.Comment.Visible = False

La le contenu de B1 devient le commentaire de A1.

Cordialement

Dominique

 

[LaX]

Re : Transfert le contenu de la cellule dans un commentaire

Bonjour le forum,

Si tu rajoute

Range("A1").ClearComments

avant ta macro ça devrais supprimer l'ancien commentaire.

Lax

 

[biker]

Re : Transfert le contenu de la cellule dans un commentaire

Voici la macro




sub MettreContenuEnCommentaire()
'Trirème MPFE 2007

' La macro copie la valeur de la cellule dans le commentaire, éventuellement
' à la suite d'un commentaire déjà présent, puis efface le contenu de la cellule.
'
Dim c As Range
Dim Moi As String

Moi = "PDK" ' À renseigner avec ses initiales

For Each c In Selection
With c
If .Comment Is Nothing Then ' Le commentaire n'existe pas, on le crée
.AddComment
.Comment.Visible = False
.Comment.Text Text:=Moi & " (" & Date & ") :" & Chr(10) & "Ancienne valeur = " & c.Value
.ClearContents
Else ' Un commentaire existe déjà, on ajoute alors le nouveau à la fin de celui existant
.Comment.Text Text:=.Comment.Text & _
Chr(10) & Moi & " (" & Date & ") :" & _
Chr(10) & "Ancienne valeur = " & c.Value
End If
End With
Next c
end sub