[Macro Excel] Copier contenu zone de texte

Fermé
Dehell. Messages postés 19 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 20 mai 2011 - 6 mai 2011 à 11:40
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 3 juin 2016 à 23:54
Bonjour,
Je cherche à réaliser une macro me permettant de copier le contenu d'une zone de texte vers une cellule. Quand j'enregistre une macro où j'effectue cette opération, celle-ci ne fonctionne pas. Existe-t-il une manipulation la rendant possible?


A voir également:

2 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
6 mai 2011 à 14:45
Bonjour,

Essaie d'adapter ceci :

Sub Test()
    ActiveSheet.Shapes("Text Box 1").Select
    Range("E3").Value = Selection.Characters.Text
    Range("E3").Select
End Sub
2
david_wklw Messages postés 41 Date d'inscription jeudi 15 juillet 2010 Statut Membre Dernière intervention 29 juin 2012 4
6 mai 2011 à 14:59
Est-ce que ce serait intéressant pour toi si tu veux que le contenu d'une cellule soit égal à ce qui se trouve dans ta zone de texte, de faire un peu l'inverse ?

Tu sélectionnes ta zone de texte et tu lui mets la formule dans la barre de formule =a1 par exemple et tu tapes qqchose dans a1...
0
Ozz2 Messages postés 4 Date d'inscription vendredi 3 juin 2016 Statut Membre Dernière intervention 3 avril 2017
3 juin 2016 à 20:43
Bonjour,

Est-ce possible de faire l'inverse ? C'est à dire d'écrire dans une zone de texte et que le texte ce recopie dans la cellule a1 exemple.

Merci
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776 > Ozz2 Messages postés 4 Date d'inscription vendredi 3 juin 2016 Statut Membre Dernière intervention 3 avril 2017
3 juin 2016 à 23:48
C'est la réponse 1 !!!
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776 > Ozz2 Messages postés 4 Date d'inscription vendredi 3 juin 2016 Statut Membre Dernière intervention 3 avril 2017
3 juin 2016 à 23:54
Plus simple : Poses un Textbox ActiveX sur la feuille et définis la cellule liée (LinkedCell) : ça fonctionne dans les 2 sens !
0