Bonjour,

j'ai besoin de redimensionner et repositionner tous les commentaires d'un classeur au voisinage de leur cellule de référence.
Voilà où j'en suis de mes tentatives, sans succès pour l'instant.
Quelque chose pêche dans mon raisonnement, mais je ne vois pas quoi.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub RepositionComment()
Dim c As Range
 
Range("A1").Select
Selection.SpecialCells(xlCellTypeComments).Select
With Selection
    For Each c In Selection
        c.Comment.Shape.Select True
        c.Comment.Shape.Placement = xlMove
        c.ShapeRange.Left = Selection.Width * 1.2
        c.ShapeRange.Top = Selection.Height * 0.8
        c.Comment.Shape.Select False
    Next
End With
End Sub
Merci de vos conseils.