Déplacement boutons image

[nicolas 65]

Bonjour,

J'ai créé 2 boutons qui se déplacent au fur et à mesure que je me déplace sur une feuille.Mais j'ai un problème chaque fois que je créé une nouvelle feuille. En effet les boutons qui se créent sur la nouvelle feuille ne porte pas le même nom que sur l'ancienne feuille. En revanche aucun problème pour le ToggleButton qui lui garde son nom.

Merci

Voici mon code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("ToggleButton1").Left = Target.Left + 60
ActiveSheet.Shapes("ToggleButton1").Top = Target.Top - 60
ActiveSheet.Shapes("Image 42").Left = Target.Left + 20
ActiveSheet.Shapes("Image 42").Top = Target.Top - 40
ActiveSheet.Shapes("Image 45").Left = Target.Left + 20
ActiveSheet.Shapes("Image 45").Top = Target.Top - 80
End Sub

 

[nicolas 65]

Bonjour à tous,

S'il vous plait quelqu'un aurait-il une solution?

Merci Merci Merci Merci Merci