Discussion :

[theBinette]

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

[Jean-Philippe André]

Bonjour,

oui c'est possible.

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

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

[theBinette]

Bonjour,

oui c'est possible.

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

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

[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/

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[theBinette]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci