Copier contenu d'une zone de texte quelconque du classeur

[elm974]

Bonjour,

Je voudrais créer une macro permettant de copier le contenu d'une zone de texte, mais sans utiliser le nom de la zone dans la macro (textbox1, textbox2, etc).
On entre dans la zone de texte et on lance la macro. Celle-ci d'office copie le contenu de la zone de texte active et colle celui-ci dans une cellule définie au préalable.

Merci

 

[JNP]

Re : Copier contenu d'une zone de texte quelconque du classeur

Bonjour Elm974 et bienvenue ,
Pas très clair les explications... Un petit fichier exemple, comme demandé dans la charte et à l'ouverture d'une discussion ne serait pas du luxe ...
Donc, au hasard

ActiveCell.Copy Range("A1")

Bon dimanche

 

[elm974]

Re : Copier contenu d'une zone de texte quelconque du classeur

Voilà, j'ai rajouté un fichier pour exemple

Bonne journée !

 

[JNP]

Re : Copier contenu d'une zone de texte quelconque du classeur

Re ,
Pas évident ton histoire ...
J'ai essayé en simulant les codes touches

SendKeys "^a"
SendKeys "^c"
Sheets("Feuil1").Activate
Range("A1").Select
SendKeys "^v"

mais ça ne fonctionne pas, il sélectionne toute la feuille au lieu du texte de ton TextBox car le fait de lancer la macro valide ton TextBox .
D'un autre côté, je n'ai pas trouvé de propriété Shape ou Shapes permettant de faire référence au Shape sélectionné ...
Personnellement, je ne vois pas, mais d'autre trouveront peut-être .
Bonne journée

 

[elm974]

Re : Copier contenu d'une zone de texte quelconque du classeur

Pas mal l'idée des sendkeys !!!
Dommage que marche pas

Attendons d'autres solutions