deplacement d'objets

JBOBO · 17 Novembre 2010

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 · 17 Novembre 2010

Re : deplacement d'objets

Bonjour JBOBO

Teste ceci

VB:

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 · 17 Novembre 2010

Re : deplacement d'objets

Bonjour Pierrejean,

Toujours aussi rapide et efficace !

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

deplacement d'objets

JBOBO

XLDnaute Accro

Pièces jointes

pierrejean

XLDnaute Barbatruc

JBOBO

XLDnaute Accro

Discussions similaires

deplacement d'objets

JBOBO

XLDnaute Accro

Pièces jointes

pierrejean

XLDnaute Barbatruc

JBOBO

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency