Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

valeur de 2 cellules dans un commentaire

3 réponses
Avatar
Lionel
bonjour,

Toujours des problèmes métaphysiques avec excel ! ;-)
en deux mots je cherche a réunir dans un commentaire la valeur de deux
cellules (voire plus meme) séparé par un retour chariot.
Je crois que ca doit etre possible mais toutes mes tentatives échouent ...
Merci de votre aide
Lionel

3 réponses

Avatar
Jacky
Bonsoir,

Par exemple
'----------
[a4].Comment.Text Text:=[A1] & Chr(10) & [B1]
'----------


--
Salutations
JJ



"Lionel" a écrit dans le message de news:
45f44aaf$0$5100$
bonjour,

Toujours des problèmes métaphysiques avec excel ! ;-)
en deux mots je cherche a réunir dans un commentaire la valeur de deux
cellules (voire plus meme) séparé par un retour chariot.
Je crois que ca doit etre possible mais toutes mes tentatives échouent ...
Merci de votre aide
Lionel




Avatar
JB
Bonjour,

On fusionne dans la colonne C les valeurs des cellules des colonnes A
et B

Sub AjouteCommentaire()
[c:c].ClearComments
For Each c In Range("a2", [a65000].End(xlUp))
c.Offset(0, 2).AddComment c.Value & Chr(10) & c.Offset(0, 1)
c.Offset(0, 2).Comment.Visible = True
c.Offset(0, 2).Comment.Shape.Select
Selection.AutoSize = True
c.Offset(0, 2).Comment.Visible = False
Next c
End Sub

http://cjoint.com/?dlt1OIOraZ

JB


On 11 mar, 19:30, "Lionel" wrote:
bonjour,

Toujours des problèmes métaphysiques avec excel ! ;-)
en deux mots je cherche a réunir dans un commentaire la valeur de deux
cellules (voire plus meme) séparé par un retour chariot.
Je crois que ca doit etre possible mais toutes mes tentatives échouent ...
Merci de votre aide
Lionel


Avatar
Lionel
Tout fonctionne !
Vous etes geniaux !
merci de l'aide !

"JB" a écrit dans le message de news:

Bonjour,

On fusionne dans la colonne C les valeurs des cellules des colonnes A
et B

Sub AjouteCommentaire()
[c:c].ClearComments
For Each c In Range("a2", [a65000].End(xlUp))
c.Offset(0, 2).AddComment c.Value & Chr(10) & c.Offset(0, 1)
c.Offset(0, 2).Comment.Visible = True
c.Offset(0, 2).Comment.Shape.Select
Selection.AutoSize = True
c.Offset(0, 2).Comment.Visible = False
Next c
End Sub

http://cjoint.com/?dlt1OIOraZ

JB


On 11 mar, 19:30, "Lionel" wrote:
bonjour,

Toujours des problèmes métaphysiques avec excel ! ;-)
en deux mots je cherche a réunir dans un commentaire la valeur de deux
cellules (voire plus meme) séparé par un retour chariot.
Je crois que ca doit etre possible mais toutes mes tentatives échouent ...
Merci de votre aide
Lionel