Désolé, j'ai encore une petite question concernant mon userform
Je cree un formulaire type inscription, ok ca marche ex:
2 champs
1) le nom
2) le prénom etc...
mais le problème je n'arrive pas à incrémenter ligne par ligne, j'écris
toujours dans les mêmes cellules
je désirerai creer un bouton type "suivant", qui me conserve chaque
fois toutes mes lignes
Comment modifier mon code, ou creer mon bouton "suivant" qui ferait
référence à mes 2 champs ci-dessous
Private Sub TextBox1_Change()
range ("B2") = UserForm1.TextBox1
End Sub
Private Sub TextBox2_Change()
range ("C2") = UserForm1.TextBox2
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Re, Copie de la réponse donnée dans l'autre fil :
Tu remplaces range ("B2") = UserForm1.TextBox1 par Range("b" & Range("b65536").End(xlUp).Row + 1).Value = UserForm1.TextBox1 et range ("C2") = UserForm1.TextBox2 par Range("c" & Range("c65536").End(xlUp).Row + 1).Value = UserForm1.TextBox2
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Gilles" a écrit dans le message de news:
Hello à tous !!!
Désolé, j'ai encore une petite question concernant mon userform Je cree un formulaire type inscription, ok ca marche ex: 2 champs 1) le nom 2) le prénom etc...
mais le problème je n'arrive pas à incrémenter ligne par ligne, j'écris toujours dans les mêmes cellules je désirerai creer un bouton type "suivant", qui me conserve chaque fois toutes mes lignes Comment modifier mon code, ou creer mon bouton "suivant" qui ferait référence à mes 2 champs ci-dessous
Private Sub TextBox1_Change() range ("B2") = UserForm1.TextBox1 End Sub
Private Sub TextBox2_Change() range ("C2") = UserForm1.TextBox2 End Sub
Merci beaucoup
Mike
Re,
Copie de la réponse donnée dans l'autre fil :
Tu remplaces range ("B2") = UserForm1.TextBox1
par Range("b" & Range("b65536").End(xlUp).Row + 1).Value = UserForm1.TextBox1
et range ("C2") = UserForm1.TextBox2
par Range("c" & Range("c65536").End(xlUp).Row + 1).Value = UserForm1.TextBox2
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Gilles" <lsne@romandie.com> a écrit dans le message de news: mn.a5717d4ccf4499fd.21555@romandie.com...
Hello à tous !!!
Désolé, j'ai encore une petite question concernant mon userform
Je cree un formulaire type inscription, ok ca marche ex:
2 champs
1) le nom
2) le prénom etc...
mais le problème je n'arrive pas à incrémenter ligne par ligne, j'écris toujours dans les mêmes
cellules
je désirerai creer un bouton type "suivant", qui me conserve chaque fois toutes mes lignes
Comment modifier mon code, ou creer mon bouton "suivant" qui ferait référence à mes 2 champs
ci-dessous
Private Sub TextBox1_Change()
range ("B2") = UserForm1.TextBox1
End Sub
Private Sub TextBox2_Change()
range ("C2") = UserForm1.TextBox2
End Sub
Tu remplaces range ("B2") = UserForm1.TextBox1 par Range("b" & Range("b65536").End(xlUp).Row + 1).Value = UserForm1.TextBox1 et range ("C2") = UserForm1.TextBox2 par Range("c" & Range("c65536").End(xlUp).Row + 1).Value = UserForm1.TextBox2
-- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Gilles" a écrit dans le message de news:
Hello à tous !!!
Désolé, j'ai encore une petite question concernant mon userform Je cree un formulaire type inscription, ok ca marche ex: 2 champs 1) le nom 2) le prénom etc...
mais le problème je n'arrive pas à incrémenter ligne par ligne, j'écris toujours dans les mêmes cellules je désirerai creer un bouton type "suivant", qui me conserve chaque fois toutes mes lignes Comment modifier mon code, ou creer mon bouton "suivant" qui ferait référence à mes 2 champs ci-dessous
Private Sub TextBox1_Change() range ("B2") = UserForm1.TextBox1 End Sub
Private Sub TextBox2_Change() range ("C2") = UserForm1.TextBox2 End Sub
