envois données d'un userform vers tableau excel

[charette63]

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

 

[Paritec]

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

bonsoir Charette63
oui c'est possible
a+
papou🙂

 

[charette63]

parole que je me suis dit: si tu ne mets pas un petit commentaire dans le style: évitons les réponses faciles, tâchons de développer, que cela arriverais.

ben v'la, c'est fait, merci paritec😉

 

[unrender]

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

 

[charette63]

testé et approuvé

18h42, lancement du post--->18h53 résolu

si c'est pas un forum de pro ça....

merci unrender

 

[charette63]

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é🙄

 

[unrender]

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

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

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

 

[Robert]

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 :

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é...

 

[unrender]

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

Bonjour Robert 🙂
D'un fil oui 😉

 

[charette63]

Je teste ça après le souper (le diner pour nos amis français)

merci à vous deux

 

[charette63]

retesté, et reapprouvé super

remerci à vous deux