Déplacer une forme vers une cellule

Bonjour,

Je souhaite déplacer une forme (Un rectangle) vers une cellule spécifique (Disons D1).

J'arrive à le sélectionner :

ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select

J'arrive à le déplacer :

    Selection.ShapeRange.IncrementLeft 10
    Selection.ShapeRange.IncrementTop 10

Mais je souhaiterai le déplacer directement à la position d'une cellule : D1 par exemple.

Je vous remercie par avance.

Bonjour,

Les recherches n'ont pas dû être longues ;)

Un exemple en repartant de ton code :

ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
    Selection.ShapeRange.Top = [D1].Top
    Selection.ShapeRange.Left = [D1].Left

Bonjour le fil,

Pas besoin de le sélectionner pour le positionner

Sub Test()
  With ActiveSheet.Shapes.Range(Array("Rectangle 1"))
      .Left = [D1].Left :  .Top = [D1].Top
  End With
End Sub

@+

Merci à vous.

Maintenant que je vois la solution ça me parait évident...
Mais je n'ai pas été capable de trouver par moi même et ai été trop impatient de pouvoir avancer ^^"

Encore merci et bonne journée à vous.

Olivier,

Surtout faites gaffe de ne pas trop brutaliser votre clavier... ça peut être dangereux pour votre santé

En plus, la solution de Bruno méritait tout autant, voire plus, d'être celle qui résout le post ;)

HaHa

Oui, j'ai essayé les deux méthodes.
Le problème est que je ne peux valider le sujet qu'à partir d'un seul post...
Du coup j'ai choisi la première personne qui a répondue :-/

Mais je vous remercie autant l'un que l'autre