Ajuster un objet à une plage

Bonsoir,

Sub TestRectangle()
With ActiveSheet.Shapes("Rectangle 1")
.Left = Range("C3:D5").Left
.Top = Range("C3:D5").Top
.Width = Range("C3:D5").Width
.Height = Range("C3:D5").Height
.Placement = xlMoveAndSize
End With
End Sub

Avec xlMoveAndSize : En cas de modification de la largeur/hauteur des
cellules le rectangle garde la taille de la zone

Bonjour Garette,

Merci beaucoup, j'avais trouvé pour la taille mais pas pour le placement
(left et top)
et je n'aurais pas davantage pensé à xlMoveAndSize !

Excellente journée.
François

"Garette" <Garette@discussions.microsoft.com> a écrit dans le message de
news:F326312D-B89B-44DB-9EB9-8BEB56114A9D@microsoft.com...

Bonsoir,

Sub TestRectangle()
With ActiveSheet.Shapes("Rectangle 1")
.Left = Range("C3:D5").Left
.Top = Range("C3:D5").Top
.Width = Range("C3:D5").Width
.Height = Range("C3:D5").Height
.Placement = xlMoveAndSize
End With
End Sub

Avec xlMoveAndSize : En cas de modification de la largeur/hauteur des
cellules le rectangle garde la taille de la zone