passage d'un usurforms a un autre sur vba exel

Bonjour,:salut:
Je souhaite savoir comment faire pour passer d'un userform a un autre sur vba exel, je m'explique j'ai crer un userform ou il est possible d'y inscrire des infos personnel (exple: nom prenom ect...)
Je souhaite par l intermediare d'un bouton que j ia crer (intituler valider) passer de cette userform(que je nome userform1 passer a un autre userform2 (dans l aquelle les infos de l usurform1 sont la + de nouvelles infos que je vais ajouter specifique a usurform2)mais où les informations tapeé dans l userform1 soit toujours presente (nom prenom ect...).:oops:


c'est tres urgent alors merci d avance a celui qui va m aider:king:

pour appeler le userform2

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() UserForm2.Show End Sub

---

Ici le label1 du userform2 prend la valeur de la textbox1 d la userform1

Code:

---

1 2 3 4

Private Sub UserForm_Activate() Label1.Caption = UserForm1.TextBox1.Text End Sub

---

salut :oops:
Merci pour ta reponse cependant j'ai toujours un souci je n est pas reussi à renvoyer les infos (nom, prenom,...) sur le deuxieme unforme peut tu etre plus clair je suis novice

de plus j aurais encore deux autre question si possible
1) je souhaiterais savoir commencer renvoyer des infos saisie sur mon userforme sur une feuille exel en tenat compte le fait qu'une nouvelle saisie aille a la en dessous de la precedante


merci infiniment d avance

Pour écrire dans une feuille

Code:

---

Worksheets("feuil1").Range("A1").Value = "toto"

---

Pour écrire sous la saisie précédente, il te faut tester quelle est la ligne qui contient la prochaine cellule vide
Une solution avec une boucle

Code:

---

1 2 3 4 5

Dim i as long Do while Worksheets("feuil1").Range("A" & i).Value<>"" i=i+1 Loop

---

Bonjour,
Un exemple parmi d'autres....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click() Dim Cel As Range Dim DerniereLigne As Long 'changer A par ta colonne DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row Set Cel = Worksheet("TaFeuille").Range("A" & DerniereLigne + 1) Cel.Value = TextStatut.text Cel.Offset(0, 1).Value = TextNom.text Cel.Offset(0, 2).Value = TextBox2.text Cel.Offset(0, 3).Value = TextMontant.text Cel.Offset(0, 4).Value = TextDurée.text Cel.Offset(0, 5).Value = TextTaux.text     Userform2.LeLabelNom.Caption = TextNom.text '...... idem pour Prénom etc.. Userform2.Show End Sub

---

A+

bonjour,
A propos de ton exemple j'ai une erreur sur le worshetts, je crois que je doit le declarrer masi je sais pas comment si tu peut m'aider sa serait vraiment simpa

j'ai aussi uin autre probleme :
comment permettre a vba d'effectuer un calcul directement apres la saisie des données sur mon usurforme (nomme frmreponse
voici mon calcul:

Code:

---

1 2 3

Sub textTotal_Change() TextTotal = TextMontant(1 + TextTaux) * TextDuree End Sub

---

merci a tous le monde pour votre aide

Erreur de frappe.. Faut un S à Worksheet - Worksheets