Position de forme

Bonjour à tous,

Je voudrais savoir comment faire pour mettre la forme 1 à coté de la forme 2 car la je les ai décalées mais j'aurai aimer les mettre en horizontal et non vertical.

Voici mon code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes(1).Top = Target.Top + 50
Shapes(1).Left = Target.Left
Shapes(2).Top = Target.Top + 100
Shapes(2).Left = Target.Left
End Sub

Merci par avance de vos retours.

@+ Filou

Bonjour,

il faut un peu changer le code pour faire cette modification:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes(1).Top = Target.Top
Shapes(1).Left = Target.Left + 50
Shapes(2).Top = Target.Top
Shapes(2).Left = Target.Left + 100
End Sub

Super pile poils ce que je voulais merci.

De rien!

en espérant que tu comprennes la modification

merci d'avoir passé le sujet en résolu