Discussion :

[rimked]

Bonjour,
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...).


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

[jfontaine]

pour appeler le userform2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub UserForm_Activate()
Label1.Caption = UserForm1.TextBox1.Text
End Sub

[rimked]

salut
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

[jfontaine]

Pour écrire dans une feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeForestier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[rimked]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci a tous le monde pour votre aide