JBOBO XLDnaute Accro 17 Novembre 2010 #1 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. Pièces jointes deplaceobjet.xls 43.5 KB · Affichages: 63
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 XLDnaute Barbatruc 17 Novembre 2010 #2 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 Vote positif 0 Vote négatif
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 XLDnaute Accro 17 Novembre 2010 #3 Re : deplacement d'objets Bonjour Pierrejean, Toujours aussi rapide et efficace ! Un grand merci , c'est exactement ce que je voulais Vote positif 0 Vote négatif
Re : deplacement d'objets Bonjour Pierrejean, Toujours aussi rapide et efficace ! Un grand merci , c'est exactement ce que je voulais