Copie Commentaires à Commentaires Prise 2

Le
Polus
Je formule différemment ma question :
Je veux copier le commentaire d’ une cellule sous forme de commentaire dans
une autre cellule(La nouvelle cellule aura maintenant un petit triangle rouge
ds le coin.)

Ce qui suit fonctionne , mais je ne veux pas le commentaire dans la cellule !
For Each cmt In Sheets("LOG").Comments
X = cmt.Parent.Row
y = cmt.Parent.Column
Cells(X, y + 1) = Cells(X, y).Comment.Text
Next

Pourquoi ceci ne fonctionne pas ?
For Each cmt In Sheets("LOG").Comments
X = cmt.Parent.Row
y = cmt.Parent.Column
Cells(X, y + 1).Comment.Text = Cells(X, y).Comment.Text
Next

Merci à l’ avance
Votre aide est apprécié
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4361031
Bonjour,

For Each c In Sheets("LOG").Comments
x = c.Parent.Row
y = c.Parent.Column
On Error Resume Next
Cells(x, y + 1).Comment.Delete
Cells(x, y + 1).AddComment c.Text
Next

JB

On 28 fév, 16:31, Polus
Je formule différemment ma question :
Je veux copier le commentaire d' une cellule sous forme de commentaire da ns
une autre cellule(La nouvelle cellule aura maintenant un petit triangle r ouge
ds le coin.)

Ce qui suit fonctionne , mais je ne veux pas le commentaire dans la cellu le !
For Each cmt In Sheets("LOG").Comments
X = cmt.Parent.Row
y = cmt.Parent.Column
Cells(X, y + 1) = Cells(X, y).Comment.Text
Next

Pourquoi ceci ne fonctionne pas ?
For Each cmt In Sheets("LOG").Comments
X = cmt.Parent.Row
y = cmt.Parent.Column
Cells(X, y + 1).Comment.Text = Cells(X, y).Comment.Text
Next

Merci à l' avance
Votre aide est apprécié


Polus
Le #4360771
ENFIN !!!
Un peu d’ espoir !
1½ jours de perdues à cause du signe "= "………Grrrrrrrr
Merci bcp "JB"



Bonjour,

For Each c In Sheets("LOG").Comments
x = c.Parent.Row
y = c.Parent.Column
On Error Resume Next
Cells(x, y + 1).Comment.Delete
Cells(x, y + 1).AddComment c.Text
Next

JB

On 28 fév, 16:31, Polus
Je formule différemment ma question :
Je veux copier le commentaire d' une cellule sous forme de commentaire dans
une autre cellule(La nouvelle cellule aura maintenant un petit triangle rouge
ds le coin.)

Ce qui suit fonctionne , mais je ne veux pas le commentaire dans la cellule !
For Each cmt In Sheets("LOG").Comments
X = cmt.Parent.Row
y = cmt.Parent.Column
Cells(X, y + 1) = Cells(X, y).Comment.Text
Next

Pourquoi ceci ne fonctionne pas ?
For Each cmt In Sheets("LOG").Comments
X = cmt.Parent.Row
y = cmt.Parent.Column
Cells(X, y + 1).Comment.Text = Cells(X, y).Comment.Text
Next

Merci à l' avance
Votre aide est apprécié







Publicité
Poster une réponse
Anonyme