Nom d'un "Shape"

[bernardrustrel]

Bonjour à tous

J'aimerai pouvoir affecter un nom un "Shape" après avoir crééer ce dernier de la sorte:
Sheets("Morphotype").Shapes.AddLine(x1, y1, x2, y2).Select
quelle instruction dois-je ajouter afin d'affecter le nom désiré tou en sachant que le nom se trouve dans une autre feuille tel que:
sheets("xxxx").cells(I, J).value


Merci à vous de votre aide

 

[job75]

Re : Nom d'un "Shape"

Bonjour,

Je vous laisse tester :

Dim s as Object
Set s = Sheets("Morphotype").Shapes.AddLine(x1, y1, x2, y2)
s.Name = Sheets("xxxx").Cells(I, J)
s.Select 'probablement pas nécessaire...

A+

 

[CB60]

Re : Nom d'un "Shape"

Bonjour
essai cela sous

Sheets("Morphotype").Shapes.AddLine(x1, y1, x2, y2).Select
Selection.Name = Range("A5").Value