deplacement d'objets

[JBOBO]

Bonjour,

Tout est dans le titre et dans le fichier joint.

Pour faire court je souhaite deplacer un objet sur une cellule lorsque je rentre une valeur (Y) dans cette meme cellule.


Merci d'avance pour vos pistes car je n'ai pas réussi à adapter les codes trouvés sur le forum.

 

[pierrejean]

Re : deplacement d'objets

Bonjour JBOBO

Teste ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "y" Then
 ActiveSheet.Shapes.Range(Array("Rectangle 2")).Top = Target.Top
 ActiveSheet.Shapes.Range(Array("Rectangle 2")).Left = Target.Left
End If
End Sub

 

[JBOBO]

Re : deplacement d'objets

Bonjour Pierrejean,

Toujours aussi rapide et efficace !


Un grand merci , c'est exactement ce que je voulais