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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 wrote:
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é
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 <P...@discussions.microsoft.com> wrote:
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
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 wrote:
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
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 wrote:
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é
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 <P...@discussions.microsoft.com> wrote:
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
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 wrote:
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
