Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

envois données d'un userform vers tableau excel

  • Initiateur de la discussion Initiateur de la discussion charette63
  • 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 !

charette63

XLDnaute Occasionnel
bonjour à toutes et tous,

est-il possible, dans un userform, d'inscrire dans une "zone texte" le numero d'une cellule et d'y envoyer le contenu d'une seconde "zone texte".

merci pour votre aide

cordialement
thierry
 
Re : envois données d'un userform vers tableau excel

A tester.... et à personnaliser
zt1 est la zone de texte contenant l'adresse.
zt2 ta 2° zone de texte.

ActiveWorkbook.Sheets(1).Range(zt1.Value) = zt2.Value
 
Re: Re : envois données d'un userform vers tableau excel

on va tenter plus dur

une donnée dans une textbox1 qui serait dédiée à la colonne A,une donnée dans une textbox2 qui serait dédiée à la colonne B,une donnée dans une textbox3 qui serait dédiée à la colonne C, et enfin je rentre le numéro de la ligne en textbox4. ça, c'est pas possible?

merci paritec, t'as déjà donné🙄
 
Re : envois données d'un userform vers tableau excel

possible aussi oui. partant du même principe que tout à l'heure :

Code:
ActiveWorkbook.Sheets(1).cells(zt4.Value,1) = zt1.Value 
ActiveWorkbook.Sheets(1).cells(zt4.Value,2) = zt2.Value 
ActiveWorkbook.Sheets(1).cells(zt4.Value,3) = zt3.Value
 
Re : envois données d'un userform vers tableau excel

Bonjour le fil, bonjou le forum,

Thierry, Papou est un participant reconnu ici et sa réponse signifiait qu'on pouvait, tout comme toi, ne faire aucun effort. Fournir un fichier avec une UserForm contenant les textboxes... Tu pourrais "donner" aussi un peu non ?
à adapter :
Code:
Sheets("Ton_onglet").Cells(Texbox4.Value, 1)=TexBox1.Value
Sheets("Ton_onglet").Cells(Texbox4.Value, 2)=TexBox2.Value
Sheets("Ton_onglet").Cells(Texbox4.Value, 3)=TexBox3.Value

[Edition]
Bonjour Unrender on s'est croisé...
 
Dernière édition:
- 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
10
Affichages
512
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
523
Réponses
2
Affichages
249
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…