nommer un "shape"

[edelweisseric]

Bonjour à tous

Cette fois ci c'est moi qui ai besoin d'un coup de main.

Qui peut me dire comment puis je nommer un shape-rectangle sur une feuille (cela pourrait aussi être un oval, ou ...) et une seule, que j'efface et que je retrace tout au long de la mise à jour du fichier

Merci d'avance

Bon WE à tous

 

[MichelXld]

bonjour


manuellement :
Sélectionne l'objet
Saisie le nom dans la zone de nom ( en haut à gauche dans la barre de menus )
Appuyes sur la touche 'Entree' pour valider


par macro un exemple qui renomme le shape créé

With Sheets('Feuil1').Shapes.AddShape(msoShapeRectangle, 40, 40, 50, 50)
.Name = ' le nom de la forme automatique '
End With


renommer le 1er shape de la Feuil1

Sheets('Feuil1').Shapes(1).Name = ' le nouveau nom '



bon apres midi
MichelXld

 

[edelweisseric]

bonjour Michel

Merci du conseil et de ta rapidité

Bon après midi

Cordialement

Edelweisseric