addition de commentaire

[Padbol]

Bonjour à tous

J'aimerais savoir si il est possible d'additionner des commentaires
J'ai une cellule avec un texte et un commentaire
J'aimerais transformer le texte de ma cellule en commentaire, toutefois si il y a déjà un commentaire, le texte de la cellule se met à la suite du premier commentaire
Donc à la fin dans le commentaire de la cellule je trouverai le texte qui s'y trouvait initialement, mais également le texte de la cellule

J'espère avoir été claire, je joint un fichier où la phase 1 reprend ce que j'ai, et la phase 2 ce que j'aimerais

Merci de votre attention =)

 

[Modeste]

Re : addition de commentaire

Bonsoir Padbol,

Si je comprends bien, il n'est pas question d'additionner, mais de concaténer 😕
Ce que tu ne précises pas c'est si tu veux faire cette manip sur une cellule, si ce sera toujours la même, ni ce qui va "déclencher" l'exécution de la macro.
Teste toujours ce petit bout de code:

Sub fusion()
With Sheets("Feuil1").[B3]
    On Error Resume Next
    .Comment.Text Text:=Chr(10) & .Text, Start:=Len(.Comment.Text) + 1
    .AddComment.Text "" & .Text
End With
End Sub

Edit: Bonsoir Paf (normal que des collisions surviennent, avec un pseudo comme celui-là 😉)

 

[Paf]

Re : addition de commentaire

Bonjour,

un petit code à adapter en fonction du besoin exact:

With [B4]

If .Comment Is Nothing Then
    .AddComment
    .Comment.Text Text:=.Value
Else
    .Comment.Text Text:=.Comment.Text & Chr(10) & .Value
End If

.Comment.Shape.TextFrame.AutoSize = True

End With

A+

Edit : Trop tard ! Désolé, Modeste, pour le doublon

 

[Padbol]

Re : addition de commentaire

Bonjour Modeste et paf

Pour te répondre modeste, effectivement c'est de la concaténation^^
Je voulais savoir si cela était possible =), apparemment oui, merci beaucoup

Pour plus de précision, j'ai un planning de maintenance sous la forme d'un tableau, chaque ligne représente une machine, chaque colonne une semaine et les opérations à effectuer sont en commentaire de cellules.
J'ai ajouté un code pour pouvoir alimenter ce tableau ligne par ligne, en choisissant une fréquence pour les opérations. seulement à l'heure actuelle je ne peux pas ajouter d'opérations de maintenance avec une fréquence différente car il se peut que deux opérations tombent la même semaine, il me faut donc une concaténation

Je vais regarder si j'y arrive avec vos code, je débute totalement en vba

Merci encore à vous de vos réponses =)