Récupérer valeurs contenues dans des ellipses
Fermé
JclSimon
-
22 sept. 2010 à 09:27
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 22 sept. 2010 à 21:35
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 22 sept. 2010 à 21:35
A voir également:
- Récupérer valeurs contenues dans des ellipses
- Recuperer message whatsapp supprimé - Guide
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Impossible de récupérer mon compte gmail - Guide
- Récupérer mon compte facebook désactivé - Guide
3 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 712
22 sept. 2010 à 09:45
22 sept. 2010 à 09:45
Bonjour,
récupérer : où ?
le contenu des ellipses : le texte ?
récupérer : où ?
le contenu des ellipses : le texte ?
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
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
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 712
22 sept. 2010 à 21:35
22 sept. 2010 à 21:35
bonjour
Tu peux l'obtenir avec une fonction personnalisée comme celle-ci à mettre dans un module (mode d'emploi)
Ensuite dans la cellule où tu veux le texte tu mets la formule :
Tu remplaces bien sûr Ellipse 1 par le nom de ton objet concerné.
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é.