emplacement objet Shape

[Franck]

Bonsoir a tous

Voila j'ai besoin de placer un objet Shape a une adresse bien precise sur ma feuille

Sub Macro1()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 36, 273, 105, 57).Select
End Sub
Jusque la pas de pb

Sub Macro2()
ActiveSheet.Shapes('Rectangle 1').Select
Selection.ShapeRange.IncrementLeft 24
Selection.ShapeRange.IncrementTop -111
End Sub
Ici la commande Increment modifie les coordonnés en les augmantant ou en les diminuant , c'est exactement ce que je ne veux pas faire je veux lui donner de nouveaux coordonnes

Merci pour votre aide

Franck

 

[Mytå]

Salut Franck et le forum

Regarde avec ceci

Sub Macro2()

Dim a As Integer
Dim b As Integer

a = Cells(5, 5).Top
b = Cells(5, 5).Left

ActiveSheet.Shapes('Rectangle 1').Select
Selection.ShapeRange.Left = b
Selection.ShapeRange.Top = a

End Sub

Mytå

 

[Franck]

Bonjour Mytå

Merci pour ton aide avec beaucoup de retard mais je ne recupere ton fil que aujourd'huit
C'est exactement ce dont j'avais besoin

Merci et a +
Franck