Transfert Userform vers tableau Excel: Passage à la ligne

[stanword]

Bonjour à tous et merci de m'accueillir sur le Forum;
Petit débutant en VBA, je bloque sur un probleme dont j'aimerais vous faire part:
Voila je cherche, à partir des lignes de commande suivantes, à renvoyer les information d'un userform1 vers un tableau excel. Jusque là les lignes de commandes fonctionnent bien sauf que je remplis toujours la meme ligne (ici la ligne 13). Je souhaiterais simplement que vous m'indiquiez comment faire un passage à la ligne d'apres automatiquement (13, 14, 15.....).
Deuxieme questions, comment faire pour réinitialiser mon userform sans le fermer (comme inscrit dans la commande).
J'espere avoir été le plus clair possible.
Merci à tous ceux qui auront quelques minutes à m'accorder.

Private Sub CommandButton1_Click()

Sheets("Feuil1").Cells(13, "A").Value = UserForm1.TextBox1.Value
Sheets("Feuil1").Cells(13, "C").Value = UserForm1.ComboBox1.Value
Sheets("Feuil1").Cells(13, "B").Value = UserForm1.TextBox3.Value
Sheets("Feuil1").Cells(13, "D").Value = UserForm1.TextBox2.Value

Unload UserForm1 'Fermeture du UserForm1
MsgBox ("La référence a bien été ajoutée à la commande.")

Private Sub TextBox3_Change()

End Sub

 

[Pierrot93]

Re : Transfert Userform vers tableau Excel: Passage à la ligne

Bonjour,

regarde ceci si cela peut t'aider :

Sheets("Feuil1").Range("A65536").End(xlUp)(2).Value = UserForm1.TextBox1.Value

bon après midi
@+

 

[Pierrot93]

Re : Transfert Userform vers tableau Excel: Passage à la ligne

Re,

pour ta 2ème question, si j'ai bien compris, pas sûr...

Private Sub CommandButton1_Click()
Unload Me
UserForm1.Show
End Sub

 

[stanword]

Re : Transfert Userform vers tableau Excel: Passage à la ligne

Hello Pierrot,

merci pour ta réponse "ultra rapide"!
Cela fonctionne bien sauf que je n'arrive pas à le faire partir de la ligne 13, lorsque je valide il prends la premiere ligne vide sous mon tableau de destination....
Pour le deuxieme probleme c'est nickel, petit bémol, le MsgBox ("La référence a bien été ajoutée à la commande.") apparait derriere la fenetre userform. Y a t-il un moyen pour que celle ci apparaisse en premier plan??
Merci pour vos réponses.

 

[Pierrot93]

Re : Transfert Userform vers tableau Excel: Passage à la ligne

Re,

pour la "msgbox", peut être placer ici :

Unload Me
MsgBox "ok"
UserForm1.Show

 

[Pierrot93]

Re : Transfert Userform vers tableau Excel: Passage à la ligne

Re,

pour l'autre point :

Columns(1).Find("", Range("A13"), xlValues, , 1, 1, 0).Value = TextBox1

sous réserve de ton modèle de donnée....

 

[stanword]

Re : Transfert Userform vers tableau Excel: Passage à la ligne

Bonsoir Pierrot,

tu vas dire que je suis vraiment mauvais, mais la derniere ligne de commande que tu m'as donné fonctionne tres bien (Columns(1).Find("", Range("A13"), xlValues, , 1, 1, 0).Value = TextBox1) simplement je n'arrive pas à l'affecter aux autres textbox, cela me renvoi une erreur.
voila ce que je fais:
Columns(1).Find("", Range("A13"), xlValues, , 1, 1, 0).Value = TextBox1
Columns(1).Find("", Range("C13"), xlValues, , 1, 1, 0).Value = ComboBox1
Columns(1).Find("", Range("B13"), xlValues, , 1, 1, 0).Value = TextBox3
Columns(1).Find("", Range("D13"), xlValues, , 1, 1, 0).Value = TextBox2


et ça ne marche pas!
Vos lumières à sur le sujet svp...
Bonne soirée à tous

 

[Pierrot93]

Re : Transfert Userform vers tableau Excel: Passage à la ligne

Bonjour,

ce que je disais au post #6 :

sous réserve de ton modèle de donnée....

sans voir la feuille en question, difficile à dire....

bonne journée
@+

 

[stanword]

Re : Transfert Userform vers tableau Excel: Passage à la ligne

Bonjour à tous,

Effectivement il sera plus simple pour comprendre ma tambouille que vous l'ayez sous les yeux!!
Voila c'est chose faites!
Il s'agit donc d'un bon de commande que je souhaites mettre en forme pour etre convivial et facile d'utilisation.
N'hésitez donc pas à apporter vos touches personnelles.
Le probleme actuel est donc que je n'arrive pas à passer à la ligne lorsque je valide une saisie...
Avis aux amateurs....merci à tous.

 

[Pierrot93]

Re : Transfert Userform vers tableau Excel: Passage à la ligne

Re,

il faut modifier le numéro des colonnes dans laquelle la recherche doit se faire :

    Columns(1).Find("", Range("A13"), xlValues, , 1, 1, 0).Value = TextBox1
    Columns(3).Find("", Range("C13"), xlValues, , 1, 1, 0).Value = ComboBox1
    Columns(2).Find("", Range("B13"), xlValues, , 1, 1, 0).Value = TextBox3
    Columns(4).Find("", Range("D13"), xlValues, , 1, 1, 0).Value = TextBox2