index shapes

jeanpierre

Nous a quitté

Repose en paix

• 6 Décembre 2008

• #2

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

 

Vote positif 0 Vote négatif

T

typo

XLDnaute Junior

• 6 Décembre 2008

• #3

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

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 6 Décembre 2008

• #4

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.

Code:

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

A+

 

Vote positif 0 Vote négatif

T

typo

XLDnaute Junior

• 6 Décembre 2008

• #5

Re : index shapes

Merci à vous deux merci au forum

 

Vote positif 0 Vote négatif