renommer objet indépendament de son type

[pettovsen]

Bonjour,

Je souhaite pouvoir renommer un objet indépendament de son type (graph, zone de texte, image,...). Pour se faire, j'ai tenté les quelques lignes suivantes:

Code :

1
2
3
4
5
6
7
Dim nom As String
Dim nvxnom As String
 
nom = Selection.Name
nvxnom = InputBox("Entrez le nouveau nom de l'objet", "changement de nom", nom)
 
    ActiveSheet.Shapes(nom).Name = nvxnom

Cela marche si l'objet sélectionné est une zone de texte p. ex. Par contre, en sélectionnant un graphique, ce n'est pas le nom du graphique (p. ex "chart 1") qui est pris en compte, mais simplement l'appelation "chart" d'ou erreur.

Comment donc extraire le nom d'un objet indépendamment de son type et ainsi remédier à cela?
(
Par ailleurs, si l'utilisateur quitte la zone de saisie sans rien sélectionner, un message d'erreur apparait. Quelqu'un sait-il comment faire pour qu'on puisse quitter l'Inbox sans msg d'erreur?)