XL 2016 Extraire texte d'une zone de texte

[IBON]

Bonjour !!

Avant de vous appeler à l'aide je tenais à remercier chacun d'entre vous de participer activement à ce forum. J'ai, grâce à vous, acquis de nombreuses compétences sur Excel ce qui me permet d'avancer sur mes projet au travail !
Merci à vous

Bon, voici mon problème: On me demande d'extraire des données spécifique d'un document PDF.
Pour que ça soit plus rapide j'ai converti le document PDF en Excel et j'ai créé un autre document Excel qui me sert à aller repécher les informations dont j'ai besoin dans le PDF converti en Excel.

Malheureusement le fichier s'est mal converti et certaines données ne sont pas dans des cellules mais dans des TextBox.

A la feuille 16 de mon fichier, appelé "Table 16", je souhaite extraire le texte dans la TextBox (appelé "TextBox1") pour le copier dans la colonne A1 de la même table.

J'ai essayé vainement ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Table 16").Range("A1").Value = Worksheets("Table 16").TextBox1.Text
End Sub

Mais je ne suis pas encore très douée en VBA je ne comprends donc pas pourquoi ça ne fonctionne pas...

Je joins un fichier qui vous servira d'exemples (j'ai cru lire que c'était très utile ahah)

Bonne journée à vous !!!

 

[soan]

Bonjour IBON,

bonne année 2021, et bienvenue sur le site XLD !

je confirme que ton fichier joint a été très utile ! pour info :
comme ton fichier joint est un .xlsx il ne peut pas contenir de
code VBA ➯ ta sub Worksheet_Change() n'y est pas !

j'ai converti ton fichier .xlsx en .xlsm pour pouvoir y mettre
du code VBA ; la macro Essai() est dans Module1 ; j'ai pas
jugé nécessaire d'utiliser une procédure événementielle.

---

ci-dessous, ton fichier en retour ; tu es sur la feuille "Table 16" ;
fais Ctrl e ➯ c'est fait : le texte est écrit dans la cellule A1 !

fais Alt F11 pour voir le code VBA, puis revenir sur Excel.

si vraiment tu aimes VBA, tu peux rester sur Microsoft Visual Basic, sans remonter à la surface
au niveau d'Excel ; Jacques Mayol m'a dit que si tu restes suffisamment longtemps sous VBA,
tu verras peut-être des dauphins et des sirènes ! ah, ben tiens, qu'est-ce que j'te disais :

Sub Essai()
  With Worksheets("Table 16")
    .[A1] = .Shapes("TextBox1").TextFrame.Characters.Text
  End With
End Sub

bon, comme t'es une fille, tu verras peut-être :



soan

 

[IBON]

Salut Soan !

Un grand MERCIIIIII !
J'ai pu utiliser ton code pour l'appliquer à d'autres text box dans d'autres fichiers, les possibilités sont infinies !!!

Ahah, voir les homme-sirènes ça me tente bien, mais plus que ça, j'ai déjà mis un pied sous VBA je ne peux plus faire marche arrière! Go !!

Encore merci! A bientôt !