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 :

Code:

---

1 2 3 4 5 6

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

Code:

---

1 2	Shapes(2).Top = Target.Top + Shapes(1).Top Shapes(2).Left = Target.Left + Shapes(1).Left + Shapes(1).Width

---

Merci pour la réponse.
Mais fonctionne pas la forme 2 disparais de l'ecran.
Avec celui-ci sa fonctionne

Code:

---

1 2 3 4 5 6

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

---

@+ Filou

Citation:

---

Envoyé par filou80

Mais fonctionne pas la forme 2 disparais de l'ecran.

---

Comme ça ça devrait aller mieux :

Code:

---

1 2	Shapes(2).Top = Shapes(1).Top Shapes(2).Left = Shapes(1).Left + Shapes(1).Width

---