Commentaires dans les cellules Excel

J'ai encore besoin de votre aide.

J'ai posté un commentaire sur le forum indiqué dans la référence de m@rina, mais c'est apparemment fermé, car je n'ai pas retouvé mon postit.

Voilà, je reprends. La macro de qmike semble marcher comme de la magie. Sauf qu'elle a copié les commentaires de tout le tableau d'origine dans la colonne A de la nouvelle feuille (feuil2), de sorte que je ne peux pas vraiment rétablir quel commentaire correspond à quelle cellule.

Ce que j'ai besoin de faire c'est de transférer les commentaires de la feuille d'origine dans des cellules miroir de feuil2 : commentaire de A15 (feuille d'origine) dans A15 (feuil2), de f35 (feuille d'origine) vers f35 (feuil2), etc.

Ce que j'ai l'intention de faire, c'est, une fois le transfert effectué, de copier chaque nouvelle colonne de feuil2 (avec les commentaires logés dans de vraies cellules), à côté de la colonne correspondante de la feuille d'origine, afin d'obtenir les commentaires de A15 dans B15, etc. Je vais pouvoir ainsi revenir vers Word ou trouver une autre astuce. Mais déjà, je n'aurais plus cette "danse des bulles", ça donne le tournis.

En bref, comment modifier la macro ci-dessous de qmike (merci à lui et à m@rina) pour faire le transfert et effacer les commentaires de la feuille d'origine ? Où ajouter les variables et quelles variables ? Je ne connais pas VB et ai très peu utilisé des macros. Merci d'avance de votre aide.

-------
Sub Cop_Comment()
Dim Commentaire As Comment
Dim i As Integer
For Each Commentaire In Worksheets("Feuil1").Comments
i = i + 1
Sheets("Feuil2").Range("A" & i).Value = Commentaire.Text
Next
End Sub
--------

Super! merci encore.

Merci bcp Michel. Tu veux dire que si j'ai 400 commentaires, je redimensionne les boites 400 fois et dois encore reprendre quand elles se déforment à nouveau ? En plus lorsqu'on veut modifier, elles réapparaissent dans des endroits impossibles, bien loin de l'emplacement d'origine. Je voulais précisément éviter de jouer au chat et à la souris avec ces objets.
Merci encore.

Les commentaires sont insérés au fur et à mesure que les cellules sont renseignées. Comme les boites sont initialement petites, je les agrandis par l'un des bouts (les petits ronds mentionnés par Michel). Quand je passe à la suite et puis je reviens aux cellules déjà élaborées, soit je trouve le commentaire invisible derrière une flèche partant de la cellule (option (x) Indicateur seul, sous Affichage / Commentaires / Options / Outils) : là, il faut faire Commentaire, Modifer pour voir ce qu'il y a dedans et redimensionner. En mode édition, la boîte apparait n'importe où (apparemment), par exemple à laigne 300, colonne H, alors qu'elle a été renseignée à l'origine à côté de la cellule B,80 (par exemple).
Merci de ton aide si tu as compris ma difficulté.

Super, ça a l'aîr d'être ça. Toutefois, mes options indiquent "Ne pas déplacer ou dimensionner avec les cellules". Mais j'ai l'impression qu'elles se déplacent quand même. En effet, je manipule les lignes assez souvent, car c'est un travail de synthèse, de comparaison et de synchronisation assez complexe. Je n'ai pas vu que le glissement des commentaires était lié au déplacement des lignes, car certains ont subi le déplacement et rétrécissement alors que je n'ai pas encore touché les lignes et cellules concernées. Parfois la boite de commentaire devient un rectangle totalement plat, avec les quatre ronds de redimentionnement sur la même ligne. C'est assez intriguant.
Y a-t-il une solution qui m'évite de tout redimensionner sans être sûr de résoudre le problème ? Et là, je n'ai pas encore testé ce qui se passe avec l'impression.
Merci de toute aide.

Rebonsoir Argixu,
Merci de ton assistance, merci aussi à Michel et m@rina.

Voici un exemple de ce qui me fait souffrir

http://www.cijoint.fr/cjlink.php?file=cj200905/cij1Q3a1Wq.doc

Bonsoir.

Suffit d'ajouter un "On error resume next" en début de macro. Cette gestion d'erreur est suffisante.

Sub commentaires()
On Error Resume Next
For Each c In Range("A1:A10")
c.Offset(0, 1).Value = c.Comment.Text
c.Comment.Delete
Next
End Sub

m@rina

Bonjour Raymond,
Je suis très reconnaissant pour tes essais. J'espère que ces manoeuvres ne gâchent pas trop ta retraite aux Antilles.
Oui, en effet, toute opération manuelle sera insoutenable. J'ai déjà les doigts crispés à force de travailler sur ce tableau. Je me trompé en pensant que Excel allait aider dans mon besoin de synchronisation du contenu des colonnes. Tout était en fait sous Word et j'ai passé des journées à extraire les strings non pertinents et à les loger dans des bulles. Maintenant que j'ai presque fini de synchroniser et à défaut d'avoir de jolies bulles (lisibles et proportinnelles au texte) apparaître à côté de chaque cellule, j'ai résolu de transférer les infos dans une autre colonne. La macro de qmike signalée dans mon post 25 fait de l'effet, mais j'aurais besoin de la modifier comme indiqué dans le même commentaire.
J'attends la samaritaine ou le samaritain qui m'aidera avec ces corrections.
Salutations amicales.