Mise en forme commentaires (sauf 1 ligne)

Bonjour

Je cherche à améliorer mon code

Voici mon code qui me permet de replacer les commentaires de ma feuille

Sub Replace_Comments()
For Each cmt In ActiveSheet.Comments
    cmt.Shape.TextFrame.AutoSize = True
    cmt.Shape.Top = Range(cmt.Parent.Address).Offset(0, 1).Top + 10
    cmt.Shape.Left = Range(cmt.Parent.Address).Offset(0, 1).Left + 10
Next
End Sub

Je voudrais ne pas executer ce code pour la ligne 55.

Pouvez-vous m'aider svp ?

Je vous remercie beaucoup

Cordialement

Bonjour,

Un essai ...

Sub Replace_Comments()

    For Each cmt In ActiveSheet.Comments
        If Range(cmt.Parent.Address).Row <> 55 Then
            cmt.Shape.TextFrame.AutoSize = True
            cmt.Shape.Top = Range(cmt.Parent.Address).Offset(0, 1).Top + 10
            cmt.Shape.Left = Range(cmt.Parent.Address).Offset(0, 1).Left + 10
        End If
    Next
End Sub

ric

Ca marche parfaitement

Je vous remercie beaucoup

Bonne journée

Cordialement

ric

Rechercher des sujets similaires à "mise forme commentaires sauf ligne"