Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Userform

Userform

5 réponses
Avatar
Gilles
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
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Philippe.R
Bonsoir Gilles,
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




Avatar
Bob Phillips
Philippe,

Peux je donne un petit changement

Cells(Rows.Count,"B").End(xlUp).Row + 1).Value = UserForm1.TextBox1

et

Cells(Rows.Count,"C").End(xlUp).Row + 1).Value = UserForm1.TextBox2


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Philippe.R" wrote in message
news:
Bonsoir Gilles,
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







Avatar
Philippe.R
Bonjour Bob,
Je suppose que ta suggestion était :

Range("b" & Cells(Rows.Count, "B").End(xlUp).Row + 1).Value = UserForm1.TextBox1
et
Range("c" & Cells(Rows.Count,"C").End(xlUp).Row + 1).Value = UserForm1.TextBox2

sinon, il y a un petit souci de parenthèses.
--
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)

"Bob Phillips" a écrit dans le message de news:
%
Philippe,

Peux je donne un petit changement

Cells(Rows.Count,"B").End(xlUp).Row + 1).Value = UserForm1.TextBox1

et

Cells(Rows.Count,"C").End(xlUp).Row + 1).Value = UserForm1.TextBox2


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Philippe.R" wrote in message
news:
Bonsoir Gilles,
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











Avatar
mike
Merci à tous de vos conseils

ca marche !!

Mike


Gilles avait prétendu :
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


--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

Avatar
Bob Phillips
Bonjour Philippe,

Je dois examiner mon code (? :-)

J'ai voulu dire pour dire

Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Value = UserForm1.TextBox1
et
Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Value = UserForm1.TextBox2

Je vois le 'Range(... Range...' comme superflu, et pour suggérer Rows.Count
au lieu de 65536.

Cordialement

Bob

"Philippe.R" wrote in message
news:%
Bonjour Bob,
Je suppose que ta suggestion était :

Range("b" & Cells(Rows.Count, "B").End(xlUp).Row + 1).Value UserForm1.TextBox1
et
Range("c" & Cells(Rows.Count,"C").End(xlUp).Row + 1).Value UserForm1.TextBox2

sinon, il y a un petit souci de parenthèses.
--
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)

"Bob Phillips" a écrit dans le message
de news:

%
Philippe,

Peux je donne un petit changement

Cells(Rows.Count,"B").End(xlUp).Row + 1).Value = UserForm1.TextBox1

et

Cells(Rows.Count,"C").End(xlUp).Row + 1).Value = UserForm1.TextBox2


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Philippe.R" wrote in message
news:
Bonsoir Gilles,
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