OVH Cloud OVH Cloud

Nommer une forme dans Word

8 réponses
Avatar
Patrick_67
Bonjour à toutes et à tous,

Via la barre d'outils "Dessin", j'ai créé dans un document Word plusieurs
formes. Par défaut, le nom donné à ces formes est du style "AutoShape 1",
"Autoshape 2", ...

Comment faire pour donner un nom clair et personnalisé à ces formes ?

(A titre de comparaison, dans Excel, il suffit de sélectionner la forme
concernée, de se positionner en haut à gauche dans la "Zone Nom" et d'y
taper le nouveau nom).

Or je ne vois pas d'équivalent à cette opération dans Word...

Merci d'avance de vos réponses...

Patrick

8 réponses

Avatar
Jean-Guy Marcil
Patrick_67 was telling us:
Patrick_67 nous racontait que :

Bonjour à toutes et à tous,

Via la barre d'outils "Dessin", j'ai créé dans un document Word
plusieurs formes. Par défaut, le nom donné à ces formes est du style
"AutoShape 1", "Autoshape 2", ...

Comment faire pour donner un nom clair et personnalisé à ces formes ?

(A titre de comparaison, dans Excel, il suffit de sélectionner la
forme concernée, de se positionner en haut à gauche dans la "Zone
Nom" et d'y taper le nouveau nom).



Comment as-tu trouvé ces noms? (Autoshape 2, etc.) Que veux-tu faie avec les
noms (Pourquoi nommer les formes?)

La seule façon que je vois est de sélectionner la forme, puis de faire
rouler cette ligne de code:

'_______________________________________
Sub DonnerNom()

Selection.ShapeRange(1).Name = "Beau nom pour ma forme"

End Sub
'_______________________________________

Et ceci pour vérifier le nom:
'_______________________________________
Sub VérifierNom()

MsgBox Selection.ShapeRange(1).Name

End Sub
'_______________________________________


--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP

Word MVP site: http://www.word.mvps.org

Avatar
Patrick_67
Salut Jean-Guy et merci pour ta réponse.

J'ai trouvé les noms donnés par défaut via la boucle suivante :

'-------------------------------------------------
Public Forme as Shape

Sub Liste_Des_Formes()

For Each Forme In ActiveDocument.Shapes

MsgBox Forme.Name

Next Forme

End Sub
'-------------------------------------------------

Je sais qu'effectivement il est possible de renommer une forme par VBA.

Ce qui me surprend le plus dans Word par rapport à Excel est que :
1. en sélectionnant la forme, on ne voit son nom nulle part
2. il ne soit apparemment pas possible de renommer une forme sans passer par
le VBA

Etonnant non ?

Mais si quelqu'un trouve une solution à ces 2 points, je suis toujours
preneur...

Merci d'avance !

"Jean-Guy Marcil" a écrit dans le message de news:

Patrick_67 was telling us:
Patrick_67 nous racontait que :

Bonjour à toutes et à tous,

Via la barre d'outils "Dessin", j'ai créé dans un document Word
plusieurs formes. Par défaut, le nom donné à ces formes est du style
"AutoShape 1", "Autoshape 2", ...

Comment faire pour donner un nom clair et personnalisé à ces formes ?

(A titre de comparaison, dans Excel, il suffit de sélectionner la
forme concernée, de se positionner en haut à gauche dans la "Zone
Nom" et d'y taper le nouveau nom).



Comment as-tu trouvé ces noms? (Autoshape 2, etc.) Que veux-tu faie avec
les noms (Pourquoi nommer les formes?)

La seule façon que je vois est de sélectionner la forme, puis de faire
rouler cette ligne de code:

'_______________________________________
Sub DonnerNom()

Selection.ShapeRange(1).Name = "Beau nom pour ma forme"

End Sub
'_______________________________________

Et ceci pour vérifier le nom:
'_______________________________________
Sub VérifierNom()

MsgBox Selection.ShapeRange(1).Name

End Sub
'_______________________________________


--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP

Word MVP site: http://www.word.mvps.org






Avatar
Jean-Guy Marcil
Patrick_67 was telling us:
Patrick_67 nous racontait que :

Salut Jean-Guy et merci pour ta réponse.

J'ai trouvé les noms donnés par défaut via la boucle suivante :

'-------------------------------------------------
Public Forme as Shape

Sub Liste_Des_Formes()


Dim Forme As Shape

For Each Forme In ActiveDocument.Shapes

MsgBox Forme.Name

Next Forme

End Sub
'-------------------------------------------------

Je sais qu'effectivement il est possible de renommer une forme par
VBA.
Ce qui me surprend le plus dans Word par rapport à Excel est que :
1. en sélectionnant la forme, on ne voit son nom nulle part


Et si tu voyais son nom, qu'en ferais-tu (sans VBA je veux dire)?

2. il ne soit apparemment pas possible de renommer une forme sans
passer par le VBA

Etonnant non ?


Pas vraiment quand tu considères que le nom n'a d'utilité qu'en VBA... Alors
pourquoi donner des noms à des formes si tu ne vas pas utiliser du VBA?
Si tu vas utiliser du VBA, alors il est facile de donner des noms.
En fait, c'est très normal, non?

Aussi, ne jamais oublier que même si Excel et Word sont des produits MS de
la même suite Office, ils ont en fait des orignes très différentes, une
évolution très différente, des buts/utilisations très différentes et des
limites très différentes. Alors ce n'est pas surprenant que l'utilisation de
certains éléments soit différente!

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP

Word MVP site: http://www.word.mvps.org

Avatar
Anacoluthe
Hello Jean-Guy !

'Jean-Guy Marcil' nous a écrit ...
Pas vraiment quand tu considères que le nom n'a d'utilité qu'en VBA... Alors
pourquoi donner des noms à des formes si tu ne vas pas utiliser du VBA?


Non non Jean-Guy, les noms peuvent être utilisés hors vba !

Depuis WD2000 j'ai ajouté dans ma barre d'outils Dessin le
très utile bouton 'Sélectionner plusieurs objets' que j'ai placé
par commodité à côté de la flèche simple 'Sélectionner les objets'.
(Dans Outils / Personnaliser / Commandes / Dessin )

J'utilise donc bien les /noms/ des formes pour les sélectionner
plus facilement...;-)

Si Patrick utilise aussi cette fonctionnalité (qu'il faut ajouter)
et qu'il a tellement de formes qu'il ne s'en sort plus avec
des noms comme 'Rectangle 47', alors nous lui ajouterons peut-être
une commande 'renommer' dans le menu contextuel de ses formes...
Pas de problème en vba, qu'en dis-tu ? :-) ))))

A+
Anacoluthe
« Le dessin n'est pas la forme, il est la manière de voir la forme. »
- Edgar DEGAS

Avatar
Jean-Guy Marcil
Anacoluthe was telling us:
Anacoluthe nous racontait que :

Hello Jean-Guy !

'Jean-Guy Marcil' nous a écrit ...
Pas vraiment quand tu considères que le nom n'a d'utilité qu'en
VBA... Alors pourquoi donner des noms à des formes si tu ne vas pas
utiliser du VBA?


Non non Jean-Guy, les noms peuvent être utilisés hors vba !

Depuis WD2000 j'ai ajouté dans ma barre d'outils Dessin le
très utile bouton 'Sélectionner plusieurs objets' que j'ai placé
par commodité à côté de la flèche simple 'Sélectionner les objets'.
(Dans Outils / Personnaliser / Commandes / Dessin )

J'utilise donc bien les /noms/ des formes pour les sélectionner
plus facilement...;-)

Si Patrick utilise aussi cette fonctionnalité (qu'il faut ajouter)
et qu'il a tellement de formes qu'il ne s'en sort plus avec
des noms comme 'Rectangle 47', alors nous lui ajouterons peut-être
une commande 'renommer' dans le menu contextuel de ses formes...
Pas de problème en vba, qu'en dis-tu ? :-) ))))


Mais pourquoi il n'en a pas parlé de cette fonctionalité au lieu de me
donner la chance de faire le pitre en public? Remarque que j'ai l'habitude,
alors ça ne me dérange plus...

Mais tu parles d'une belle fonctionalité! J'en avais jamais entendu parlé!
Alors oui, d'accord, le nom est utile sans le VBA. Mais, n'en déplaise aux
amis AMIS, je crois bien que ça prend du VBA pour changer le nom de la forme
(Ou suis-je encore en train de patauger dans l'ignorance?). Une petite macro
et un bouton à côté de "Sélectionner plusieurs objets" serait utile dans ce
cas!

Remarque que si tu te donnes la peine d'examiner toutes les commandes
disponibles à partir de "Personnalisation", il y en a un paquet qui sont
aussi utiles qu'elles sont obscures, comme "Sélectionner plusieursd objets"!
Mai il y en a tellement!

Merci du tuyau!

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP

Word MVP site: http://www.word.mvps.org


Avatar
Circé
Bonjour,

Jean-Guy Marcil a pensé très fort :


Mais pourquoi il n'en a pas parlé de cette fonctionalité au lieu de me donner la chance de faire le pitre en public? Remarque que j'ai
l'habitude, alors ça ne me dérange plus...

Mais tu parles d'une belle fonctionalité! J'en avais jamais entendu parlé!


Un petit détail quand même qui a son importance : cette fonctionnalité n'est capable de lister que les formes flottantes (shapes)
et non pas les formes fixes, sans habillage (inlineshapes) qui n'ont pas de nom.

Circé
http://faqword.free.fr


Alors oui, d'accord, le nom est utile sans le VBA. Mais, n'en déplaise aux amis AMIS, je crois bien que ça prend du VBA pour changer le
nom de la forme (Ou suis-je encore en train de patauger dans l'ignorance?). Une petite macro et un bouton à côté de "Sélectionner
plusieurs objets" serait utile dans ce cas!

Remarque que si tu te donnes la peine d'examiner toutes les commandes disponibles à partir de "Personnalisation", il y en a un paquet
qui sont aussi utiles qu'elles sont obscures, comme "Sélectionner plusieursd objets"! Mai il y en a tellement!

Merci du tuyau!


Avatar
Anacoluthe
Bonjour Jean-Guy !

'Jean-Guy Marcil' nous a écrit ...
Mais, n'en déplaise aux
amis AMIS, je crois bien que ça prend du VBA pour changer le nom


:-) voui ƒƒƒ Debout les macroteurs de la terreuuu... ƒƒƒ

Remarque que si tu te donnes la peine d'examiner toutes les commandes
disponibles à partir de "Personnalisation", il y en a un paquet


Avec 1095 commandes dans mon WD2003 j'ai pas fini ... :-D )))

A+
Anacoluthe
« Commande qui peut et obéit qui veut. »
- Alessandro MANZONI

Avatar
Anacoluthe
Bonjour !

'Circé' nous a écrit ...
Un petit détail quand même qui a son importance : cette fonctionnalité
n'est capable de lister que les formes flottantes (shapes) et non pas
les formes fixes, sans habillage (inlineshapes) qui n'ont pas de nom.


Oui et ça se complique encore avec les zones de dessin qui ont
aussi un nom, ou quand on groupe/dégroupe les formes ! :-)

A+
Anacoluthe
« Il faut bien donner un nom à ce qui n'a pas de nom. »
- Vladimir JANKÉLÉVITCH