Données Userform : remplir une sheet Excel lignes

[basma]

Bonjour.
Je pense que le sujet a déjà été traité mais je n'arrive pas à le trouver dans le Forum.

J'ai créé un Userform ('Userform1') qui contient 5 champs ( TextBox, ComboBox,Commandbutton ).
Et j'ai créé un CommandButton('Envoi') pour envoyer les données remplies vers une Sheet Excel ('Sheet1')

Si je clique sur le bouton 'Envoi', j'aimerais que:
1) les données introduites garnissent le Range A2 de la Sheet1
2) dès que j'envoie en appuyant sur le bouton, le Userform redevienne vierge pour une nouvelle saisie;
2) si je remplis une deuxième fois le Userform, les données introduites aillent garnir le Range A3 de la Sheet1
Et ainsi de suite.
3) sauvegarder automatiquement la Sheet1 avec les données.

Merci beaucoup si vous pouvez m'aider !!! 🙂

 

[Jacques87]

Bonjour

Ce serait plus simple si tu nous envoyais ton fichier
Toutefois la méthode est la suivante
1) repérer la dernière ligne de la Feuille 1
derlign = Sheets(1).Range('A65536').End(XlUp).Row

2) d'affecter aux cellules adéquats les valeurs des textbox
Range('A' & derlign +1).Value = UserForm1.TextBox1.Value
etc ...

3) de 'nettoyer' ton textBox
UserForm1.TextBox1.Value =''

4) sauvegarder ton fichier
ActiveWorkBook.Save

Bon courage

 

[basma]

Bonsoir.
Merci beaucoup pour tes infos.
Comme tu l'as sous-entendu, je t'envoie un fichier reprenant la feuille Excel, le Userform et la macro.

Pour être plus complet, je suis en Office 2003 depuis ce matin.

D'avance merci beaucoup !!!!!! 🙂

 

[basma]

Bonsoir.
Merci beaucoup pour tes infos.
Comme tu l'as sous-entendu, je t'envoie un fichier reprenant la feuille Excel, le Userform et la macro.

Pour être plus complet, je suis en Office 2003 depuis ce matin.

D'avance merci beaucoup !!!!!! 🙂

 

[basma]

oups ! je crois avoir oublié le fichier !
Sorry !! 😱hmy:

 

[basma]

oups ! je crois avoir oublié le fichier !
Sorry !! 😱hmy:

 

[basma]

oups ! je crois avoir oublié le fichier !
Sorry !! 😱hmy:

 

[basma]

oups ! je crois avoir oublié le fichier !
Sorry !! 😱hmy: