Envoyer le contenu d'une Textbox dans une table Excel

Version imprimable

12/06/2018, 17h06
theBinette

Envoyer le contenu d'une Textbox dans une table Excel

Bonjour,

J'aurai besoin dans Excel, de créer un formulaire qui me permette la saisie de plusieurs champs puis d'envopyer automatiquement ces entrées dans une table Excel.

Je voudrais que le contenu des textbox se mettent automatiquement à la ligne suivante de mon tableau

Est-ce possible?

Merci de votre aide
12/06/2018, 17h29
Jean-Philippe André

Bonjour,

oui c'est possible.

La recherche d'une durée de 10 secondes me donne des exemples dans la :faq:

https://excel.developpez.com/faq/?pa...reLigneNonVide

Il te suffira donc de trouver la derniere ligne et faire un +1 pour ecrire dans la ligne suivante :)
12/06/2018, 17h34
theBinette

Citation:

Envoyé par Jean-Philippe André

Bonjour,

oui c'est possible.

La recherche d'une durée de 10 secondes me donne des exemples dans la :faq:

https://excel.developpez.com/faq/?pa...reLigneNonVide

Il te suffira donc de trouver la derniere ligne et faire un +1 pour ecrire dans la ligne suivante :)

Merci beaucoup je regarde çà de suite :)
12/06/2018, 19h44
Menhir

Et une recherche dans les tutoriel (comme il est conseillé dans les règles du forum) donne ça :
http://silkyroad.developpez.com/VBA/UserForm/

Bonsoir,
Voici un code qui fait ce que vous souhaitez, vous n'avez plus qu'a l'adapter à vos besoins ( nom Feuille, nom UserForm, noms TextBoxs, etc) :?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub NouCli()  'Entre les valeurs des Textbox dans la première ligne vide
Dim L As Integer
    With Sheets("BDdata")
        L = .Range("A65536").End(xlUp)(2).Row  'Donne le nombre de la première ligne vide dans la variable L
            .Range("A" & L).Value = UFClients.TextBox1.Value
            .Range("B" & L).Value = UFClients.TextBox2.Value
            .Range("C" & L).Value = UFClients.TextBox3.Value
            .Range("D" & L).Value = UFClients.TextBox4.Value
            .Range("E" & L).Value = UFClients.TextBox5.Value
            .Range("F" & L).Value = UFClients.TextBox6.Value
            .Range("G" & L).Value = UFClients.TextBox7.Value
            .Range("H" & L).Value = UFClients.TextBox8.Value
    End With
End Sub

Cordialement 8-)

Citation:

Envoyé par Transitoire

Bonsoir,
Voici un code qui fait ce que vous souhaitez, vous n'avez plus qu'a l'adapter à vos besoins ( nom Feuille, nom UserForm, noms TextBoxs, etc) :?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub NouCli()  'Entre les valeurs des Textbox dans la première ligne vide
Dim L As Integer
    With Sheets("BDdata")
        L = .Range("A65536").End(xlUp)(2).Row  'Donne le nombre de la première ligne vide dans la variable L
            .Range("A" & L).Value = UFClients.TextBox1.Value
            .Range("B" & L).Value = UFClients.TextBox2.Value
            .Range("C" & L).Value = UFClients.TextBox3.Value
            .Range("D" & L).Value = UFClients.TextBox4.Value
            .Range("E" & L).Value = UFClients.TextBox5.Value
            .Range("F" & L).Value = UFClients.TextBox6.Value
            .Range("G" & L).Value = UFClients.TextBox7.Value
            .Range("H" & L).Value = UFClients.TextBox8.Value
    End With
End Sub

Cordialement 8-)

Merci :)