Réutiliser le texte dans une zone texte pour le remettre dans une cellule

[david51000]

Bonjour à tous,

J'ai un petit soucis avec mon bon vieux Excel 97.
Je voudrai que le texte qui est dans une zone texte soit repris automatiquement dans une cellule.

Après avoir recherché sur le forum, j'ai trouvé l'inverse mais pas dans le sens là.

Je n'arrive pas à le faire.

Pouvez-vous m'aider ?

Merci,

David

 

[kjin]

Re : Réutiliser le texte dans une zone texte pour le remettre dans une cellule

Bonjour,

With ActiveSheet
    Set shp = .Shapes("MaZoneDeTexte")
    LeTexte = shp.OLEFormat.Object.Caption
    .Cells(1, 1) = LeTexte
End With

A+
kjin

 

[david51000]

Re : Réutiliser le texte dans une zone texte pour le remettre dans une cellule

Merci kjin,
Mais je met ça où ?
Je pense que c'est une macro mais si c'est ça, si vous pouvez m'expliquer en détail comment faire car je ne connais pas.
Merci.

 

[kjin]

Re : Réutiliser le texte dans une zone texte pour le remettre dans une cellule

Re,
Ah bah oui, ça se complique...
Je te joins un fichier compatible 97, en principe
A+
kjin

 

[david51000]

Re : Réutiliser le texte dans une zone texte pour le remettre dans une cellule

Le fichier fonctionne sous 97.
Ce que tu m'as fait est ce que je recherche, merci.
Mais je voudrai éviter d'avoir à cliquer sur le bouton à chaque fois, j'ai besoin que ça se fasse automatiquement, dès que je sors de la zone texte. C'est possible ?

 

[kjin]

Re : Réutiliser le texte dans une zone texte pour le remettre dans une cellule

Re,
Alors il est préférable à mon sens d'utiliser un contrôle ActiveX
A+
kjin

 

[david51000]

Re : Réutiliser le texte dans une zone texte pour le remettre dans une cellule

Je n'arrive pas à le faire fonctionner.
Ce n'est pas grave, je pensais que ça allait être beaucoup plus simple mais apparemment, on est obligé de passer par une succession de manip'.
Je vais rester à mon copier-coller avec les raccourcis clavier, j'irai aussi vite.

Merci quand même d'avoir passer du temps sur mon cas.

Bon week-end.