object shapes zone de texte

[gonz19]

bonjour à tout le forum,


Sur un formulaire de devis j'ai créé un objet shapes "zone de texte" pour écrire le nom de mon client.
Ma zone de texte comporte trois ligne Nom; Adresse; Ville

mon problème:
Dans une macro je voudrais récupérer uniquement le nom du client qui est écrit sur la première ligne de la zone de texte.

quelqu'un a t'il une idée de code VBA.

merci de votre aide

 

[Modeste]

Re : object shapes zone de texte

Bonjour gonz,

Chez moi, "Me.Shapes("ZoneTexte 1").DrawingObject.Caption" (inscrit dans la fenêtre de code de la feuille concernée), renvoie le texte d'une zone de texte nommée "ZoneTexte 1".
Reste à déterminer si c'est bien un appui sur la touche Enter du clavier qui a créé le saut de ligne ... Si oui, ceci semble fonctionner chez moi:

monTexte = Left(Me.Shapes("ZoneTexte 1").DrawingObject.Caption, InStr(1, Me.Shapes("ZoneTexte 1").DrawingObject.Caption, Chr(10), vbTextCompare) - 1)

 

[gonz19]

Re : object shapes zone de texte

efficace et rapide
après adaptions du code tout marche impeccable
merci