index shapes

[typo]

Bonjour,
Est-il possible de connaitre le numéro d'index d'un shape quand celui ci est selectionné.
Cordialement
Philippe

 

[jeanpierre]

Re : index shapes

Bonjour typo,

Normalement, et si j'ai bien compris, tu cliques dans la zone Nom, à gauche de la barre de formule et tu as l'index.

Bon WE.

Jean-Pierre

 

[typo]

Re : index shapes

merci jean pierre pour ta rapidité
l'index je veux le récupérer dans une variable sous vba.
J' cherche depuis un moment mais je trouve pas.
pas l'air évident pour l'index
cordialement
philippe

 

[bqtr]

Re : index shapes

Bonjour typo, jeanpierre

Ce code te renvoie le N° du shape sur lequel on click.
Cela fonctionne sauf pour les objets de la Boite à Outils Contrôles.
Affecte cette macro à chaque Shape.

Sub Nun_Shape()
 Dim NumIndex As Integer, Tablo
 Tablo = Split(Application.Caller, " ")
 NumIndex = Tablo(UBound(Tablo))
 MsgBox NumIndex
End Sub

A+

 

[typo]

Re : index shapes

Merci à vous deux merci au forum