Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Données Userform : remplir une sheet Excel lignes

basma

XLDnaute Junior
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

XLDnaute Accro
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

XLDnaute Junior
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

XLDnaute Junior
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 !!!!!!
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…