Commentaires décalés quand ils sont tous affichés

Bonjour à vous

J'ai un fichier de plus de 1000 lignes contenant des commentaires insérés à divers endroits.

Mon problème est le suivant:

Lorsque tous les commentaires sont affichés, ceux-ci se retrouvent très décalés par rapport à leur cellule d'origine ce qui rend la consultation impossible.

Ces déplacements semblent causés par le masquage des lignes et ou l'ajout et suppression de lignes.

J'ai essayé de corriger le problème par "format / propriété / positionnement de l'objet"

mais aucune des 3 options ne règle la situation entièrement.

Y-aurait-il un autre moyen pour que les commentaires restent à la hauteur de leur cellule d'origine?

Merci à l'avance.

Guy Gosselin

Bonjour,

voici une exemple pour replacer tous les commentaires,

Sub PositionneComment()
    Dim co As Comment, i As Long
    For Each co In ActiveSheet.Comments
        co.Shape.Left = Range(co.Parent.Address).Offset(0, 1).Left + 10
        co.Shape.Top = Range(co.Parent.Address).Offset(0, 1).Top + 5
    Next co
End Sub

Merci beaucoup

Rechercher des sujets similaires à "commentaires decales quand tous affiches"