une seule userform qui remplira plusieurs feuilles

belhout · 18 Juillet 2003

bonjour, je suis un petit débutant sur vba et je voulais savoir un petit truc. Vous verez mon petit prog en pièce jointe, ce que je souhaite faire c'est que :
si j'ouvre le userform1 grace à un bouton situé sur la feuille 1 les données seront saisie sur la feuille 1
si j'ouvre ce même userform1 sur la feuille 2 les données devront être saisie sur la feuille 2 etc....pour la feuille 3 idem
si vous avez la réponse je vous en remercie d'avance.

JPH · 18 Juillet 2003

J'ai ajouté à ton fichier :
Private Sub CommandButton1_Click()
Dim LastRow As Object
Dim mafeuille As Object '+++++++++++++
Set mafeuille = ActiveSheet '++++++++++
Set LastRow = mafeuille.Range("a65536").End(xlUp)

LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(1, 1).Value = TextBox2.Text
LastRow.Offset(1, 2).Value = TextBox3.Text
etc.......
Après essai c'est Ok!
Fichier joint !!!

cordialement

une seule userform qui remplira plusieurs feuilles

belhout

Guest

Pièces jointes

JPH

Guest

Pièces jointes

Discussions similaires