Discussion :

[filou80]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[filou80]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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

Comme ça ça devrait aller mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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