Texbox prenant le contenu texte d'une forme 'rectangle'

Le
JP
Bonjour,

Je me heurte un nouveau problme.
J'ai un userform contenant un textbox qui doit prendre la valeur du texte d=
'une forme rectangle.
Je viens de tester: TextBox3 = sheets("nom_feuil").Shapes("Rectangle 5").=
Value

Mais comme vous le devinez cela ne fonctionne pas.

Tant que j'y suis, dans l'autre sens, le textbox est complter. Comment a=
ttribuer le texte du textbox au rectangle?

Merci

JP
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #25743492
Bonjour,
TextBox3 = ActiveSheet.Shapes(1).TextFrame2.TextRange.Text
Intuitif, non ? Adapte le nom de la feuille.
Cordialement.
Daniel


Bonjour,

Je me heurte à un nouveau problème.
J'ai un userform contenant un textbox qui doit prendre la valeur du texte
d'une forme rectangle. Je viens de tester: TextBox3 =
sheets("nom_feuil").Shapes("Rectangle 5").Value

Mais comme vous le devinez cela ne fonctionne pas.

Tant que j'y suis, dans l'autre sens, le textbox est compléter. Comment
attribuer le texte du textbox au rectangle?

Merci

JP
MichD
Le #25743602
Bonjour,

Une autre alternative beaucoup plus facile :

TextBox3 = sheets("nom_feuil").Shapes("Rectangle 5").OLEFormat.Object.Text


MichD
---------------------------------------------------------------
JP
Le #25743952
Bonjour Daniel, bonjour Denis,

Super efficace, intuitif: bof!

Merci à vous deux.

JP
Publicité
Poster une réponse
Anonyme