Copier / coller le texte d'un TextBox dans une cellule et feuille déterminer

  • Initiateur de la discussion Initiateur de la discussion akibodo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

akibodo

XLDnaute Junior
Bonjour à tous,

J'aimerais copier le texte du TextBox et le coller dans une cellule précise sur la feuille2

J'ai un bug et je ne comprend pas d'où ça viens.

je joint le fichier pour exmple.
 

Pièces jointes

Re : Copier / coller le texte d'un TextBox dans une cellule et feuille déterminer

bonjour akibodo

teste ceci:

Code:
Sub CommandButton1_Click()
Sheets("Feuil2").Range("A1").WrapText = True
Sheets("Feuil2").Range("A1") = Sheets("Feuil1").TextBox1
End Sub
 
Re : Copier / coller le texte d'un TextBox dans une cellule et feuille déterminer

re, PIERREJEAN, le forum,

Ca marche très bien lorsque je met la TextBox sur la feuille ainsi que un bouton pour enregistrer.

Mais (je ne l'avais pas préciser) je souhaite, si c'est possible mettre ce TextBox dans un UserForm et enregistrer ensuite de la même façon.

Malheureuseument là ça ne marche plus.

Je joins un nouvel exemple auquel j'ai ajouter le UserForm, pour que ce soit plus facile à comprendre.

Merci d'avance,

A vous lire.
 

Pièces jointes

Re : Copier / coller le texte d'un TextBox dans une cellule et feuille déterminer

Re

on passe de
Code:
Sheets("Feuil2").Range("A1").WrapText = True
Sheets("Feuil2").Range("A1") = [COLOR=red]Sheets("Feuil1").[/COLOR]TextBox1

a
Code:
Sheets("Feuil2").Range("A1").WrapText = True
Sheets("Feuil2").Range("A1") = [COLOR=red]UserForm1.[/COLOR]TextBox1

surprenant non !!
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
46
Réponses
5
Affichages
406
Retour