Récupérer valeurs contenues dans des ellipses

JclSimon -  
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je souhaiterais récupérer (en automatique) le contenu des ellipses contenues dans une feuille excel (V2003).

3 réponses

gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
Bonjour,

récupérer : où ?
le contenu des ellipses : le texte ?
0
JclSimon
 
Bonjour,

Je souhaiterais récupérer (en automatique) le contenu des ellipses contenues dans une feuille excel (V2003).

Contenu : numérique de 1 à 3 chiffres

Où: dans une cellule de la même feuille excel

Jean Claude
0
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
bonjour

Tu peux l'obtenir avec une fonction personnalisée comme celle-ci à mettre dans un module (mode d'emploi)
Public Function txt_obj(nom)
Dim texte As String
    Application.Volatile
    texte = ActiveSheet.Shapes(nom).AlternativeText
    txt_obj = Mid(texte, InStr(1, texte, ": ") + 2)
End Function

Ensuite dans la cellule où tu veux le texte tu mets la formule :

=txt_obj("Ellipse 1")
ou en numèrique
=txt_obj("Ellipse 1")*1

Tu remplaces bien sûr Ellipse 1 par le nom de ton objet concerné.
0