Transfert le contenu de la cellule dans un commentaire

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

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

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

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