Quelle Shape ?

Bonjour

Un big problème pour moi

Dans un classeur des formes simples et des formes groupées

Avec une macro unique je sais comment récupérer le texte d'une forme clicquée n'appartenant pas un groupe

Mais lorsqu'elle est groupée avec une autre je n'y arrive pas

J'ai essayé plein de truc mais rien de bien concluant

Alors si quelqu'un à une idée je lui en serait reconnaissant

Je joins un fichier pour les tests

Bonjour,

Pas sûr mais peut être comme ceci :

MsgBox ActiveSheet.Shapes(Sh.Name).TextFrame.Characters.Text

ou dans ta macro GROUPE ajouter ceci :

Sh.TextFrame.Characters.Text

Amicalement

Bonjour

Merci Dan

Mais pas bon ..... j'ai le message "Erreur d'exécution 13 incompatibilité de type"

Pas encore ça

A suivre

re,

Ta version est excel 2003 ?

sous excel MAC 2004 cela passe parfaitement

A te relire

Bonsoir

Merci pour l'info

Je ne pense pas (encore) investir dans un Mac

Il doit bien y avoir une solution, il y a toujours une solution .... sauf pour ça ?

Il y a peut-être un moyen de savoir si le clic est fait sur un groupement

Ma macro (avec Application.Caller) me retourne bien le nom de la shape clicquée mais comme elle fait partie d'un groupement je ne sais pas comment l'exploiter : That is the BIG question

J'ai essayé de passer par GroupShapes ou ShapeRange mais sans succès, surement que je m'y prend mal

J'attends d'autres idées, mais pas primordial

Salut le forum

Une solution qui fonctionne avec les deux formats

Sub Quelle_Forme()
Dim Sh As Shape
  Set Sh = ActiveSheet.Shapes(Application.Caller)
  MsgBox Split(Sh.AlternativeText, ":")(1)
End Sub

Sub Quelle_Groupe()
Dim Sh As Shape
  Set Sh = ActiveSheet.Shapes(Application.Caller)
  MsgBox Split(Sh.AlternativeText, ":")(1)
End Sub

Mytå

Bonjour

Merci je vais me débrouiller maintenant avec ça (Comme c'est ce que je voulais)

Merci je vais tester tout ça mais pour le moment c'est Ok

Bonne nuit

Bonsoir

Coucou me re-voila

Après plusieurs essai avec le fichier de test afin de m'assurer que tout allait bien, j'ai voulu adapter sur d'autres formes et là crac boum hue...

Je soumets un nouveau fichier à votre sagacité et votre expérience que je sais immense (bon les fleurs finies)

Merci par avance