Macro pour réinitialiser la position des commentaires

[Michou9]

Bonjour

Je m’aperçois quelques fois quand je passe en modification de commentaires que le commentaire en question se trouve à cent lieues (bien que la feuille, le commentaire s’affiche correctement)

Je suppose que c’est peut-être parce que les lignes ont été transposées et que peut-être le lieu d’encrage de ces commentaires n’a pas suivi.

Toujours est-il, qu’il est très difficile pour moi de modifier ces commentaires, puisque un coup passé en modification, je ne vois plus la cellule en question, tant ce commentaire est loin de cette cellule.

Serait il possible avec une macro de réinitialiser l’ensemble des points d’encrage de ces commentaire ?

Merci

 

[mth]

Re : Macro pour réinitialiser la position des commentaires

Bonjour,

Sur la base d'un code de J Boisgontier, tu peux peut-être essayer ceci:

Sub Commentaire()
  For Each c In ActiveSheet.Comments
    c.Shape.Left = c.Parent.Left + 20
    c.Shape.Top = c.Parent.Top + 20
  Next c
End Sub

Bonne journée,

mth

 

[Michou9]

Re : Macro pour réinitialiser la position des commentaires

Bonjour

Merci beaucoup

Cela semble fonctionner parfaitement

Merci encore

Bonne soirée