Récupérer les données Textbox

[btellier]

Bonjour à tous,

La solution à mon problème va peut-être vous paraître évidente mais je débute.
J'ai créé un Useform dans lequel j'ai placé une Textbox1; une Textbox2 ...etc
Je voudrais que les données saisies dans ces Textboxs soient respectivement collées dans les cellules A1, A2... de ma feuil1 lorsque je clique sur un bouton valider. Pour l'instant ça marche pour une textbox vers une cellule mais dès qu'il s'agit de copier plusieurs données vers plusieurs cellules... il me manque un bout de code :

Private Sub CommandButton2_Click()
Range("A1") = TextBox1
End Sub


Merci beaucoup pour votre aide, j'ai fouiné dans quelques forums sans succès.

Dans l'attente,

Benoit.

 

[tototiti2008]

Re : Récupérer les données Textbox

Bonjour btellier,

Euh... pas sûr d'avoir bien compris

[B][I]Private Sub CommandButton2_Click()
Range("A1").value = TextBox1.Text
Range("A2").value = TextBox2.Text[/I][/B]
[B][I]End Sub[/I][/B]

?

 

[btellier]

Re : Récupérer les données Textbox

Merci pour cette réponse rapide.

En appliquant ce code, seule la 1ère ligne fonctionne : Range("A1").value = TextBox1.Text

Il ne me récupère pas et ne me colle pas les données dans la 2e cellule !!

Ou le code n'est pas complet, ou quelque chose est mal parametrée je suis un peu perdu.

 

[tototiti2008]

Re : Récupérer les données Textbox

Re,

aurais-tu un bout de fichier exemple ? inférieur à 48 Ko et sans données confidentielles

 

[laetitia90]

Re : Récupérer les données Textbox

bonjour tous
un exemple attention textboxs pas renommées autrement il faut utiliser TypeName ou TypeOf

Private Sub CommandButton1_Click()
 Dim i As Byte
 For i = 1 To 10
 Cells(1, i) = Controls("Textbox" & i).Value
 Next i
End Sub

10textbox pour l'exemple si la feuille de reception est différente il faut utiliser l'nstruction with

 

[btellier]

Re : Récupérer les données Textbox

J'ai créé un 2 fichier car celui sur lequel je travaille et trop lourd.
En essayant ta formule sur le 2e fichier allégé, elle fonctionne. Je n'y comprends plus rien, sur le gros fichier, seule la 1ère ligne est récupérée.

 

[tototiti2008]

Re : Récupérer les données Textbox

Bonjour Laetitia,
Re,

@Laetitia
et tu as une explication sur le fait que mon code simpliste ne fonctionne pas ?
Parce que moi, je n'ai pas d'idée sans un bout de fichier...

 

[laetitia90]

Re : Récupérer les données Textbox

re tototiti ; ton code marche. que veut faire exactement l'ami btellier ?????? AVEC UN EXEMPLE PLUS SIMPLE

en simplifiant

Range("A1") = TextBox1.Value
Range("A2") = TextBox2.Value

d'ailleurs mon code une erreur

Cells(i, 1) = Controls("Textbox" & i).Value

et non

Cells(1, i) = Controls("Textbox" & i).Value

 

[Pierrot93]

Re : Récupérer les données Textbox

Bonjour,

A tout hasard vérifie peut être le nom de ta textbox... et si A2 n'est pas fusionnée...

bon après midi
@+

 

[btellier]

Re : Récupérer les données Textbox

Merci pour votre aide...Bon we

 

[btellier]

Re : Récupérer les données Textbox

Non malheureusement j'ai déjà vérifié tous ces points...

 

[btellier]

Re : Récupérer les données Textbox

Le code persiste à me coller uniquement la ligne en gras et m'ignore toutes les autres...
Range("A1") = TextBox1.Value
Range("A2") = TextBox2.Value
Lorsque je les inverse, il me colle uniquement la veleur de la TextBox2 dans la cellule A2, en gros il ne considère que la 1ère ligne...

 

[Pierrot93]

Re : Récupérer les données Textbox

Re,

tu n'aurais pas une procédure événementielle dans le module de la feuille concernée ??

 

[btellier]

Re : Récupérer les données Textbox

Non, justement j'ai supprimé toutes les macros, les différents liens qui pouvaient exister avec d'autres feuilles dans le but de supprimer tout risque d’interférence. Mais le code ne fonctionne toujours pas. Je commence à désespérer, je dois présenter l'outil ce lundi et je bloque sur ce qui semblait être un détail au départ.

 

[Pierrot93]

Re : Récupérer les données Textbox

Re

mets un point d'arrêt au début de la procédure du bouton, touche F9 sur la 1ère ligne dans l'éditeur vba et en suite exécute le code pas à pas touche F8 pour vérifier ce qui se passe....