Zone de texte

[GGPS58]

Bonjour à tous,

Petite question qui m’intrigue et à laquelle je ne trouve pas de réponse.
Quand on créé une zone de texte sous excel, est-il possible de récupérer le contenu de cette zone de texte pour la mettre dans une cellule ?

D'avance merci de vos réponses

 

[kingfadhel]

Re : Zone de texte

Bonjour,

tu affecte ce code à un bouton,

Sub Test()
Dim Obj As Object
For Each Obj In ActiveSheet.DrawingObjects
If Obj.Name = "ZoneTexte 1" Then
Range("B5") = Obj.Text ' tu désigne la cellule dans laquelle tu souhaite récupérer le contenu de la zone
End If
Next
End Sub

 

[Softmama]

Re : Zone de texte

Bonjour,

tu peux utiliser une fonction personnalisée sinon :

Function récupTexte(x As String)
Application.Volatile
  récupTexte = ActiveSheet.Shapes(x).TextFrame.Characters.Text
End Function

cf. fichier joint
(Edit : c'est mieux avec le fichier)

 

[Modeste geedee]

Re : Zone de texte

Bonsour®
dans le cas d'un contrôle ActiveX
utiliser la propriété LinkedCell

 

[Jam]

Re : Zone de texte

Bonjour à tous,

range("A1")=feuil1.Shapes("Légende encadrée 2 2").TextFrame.Characters.Text

Bon courage


Oula, faudra que je j'actualise ma page avant de répondre ....désolé pour la redite