probleme de userform

[UDSP50]

Salut a tous
petit problème :

j'ai un user form1 : form1
qui possede plein de labels només label1 label2 etc...

quand je clic sur un des label j'ai fait en sorte qu'il ouvre le form2

ça ça marche pas de probleme

j'ai fais aussi en sorte que si je clic sur label1 du form1 cela ouvre le form2 en inscrivant label1 dans un textbox du form2

et la est le probleme
je clic une fois cela affiche rien dans le textbox du form2
je ferme le form2
je reclic et la cela s'affiche

comment puis-je faire pour que des le clic le forme s'ouvre et dans le texte box le label s'affiche

[ZebreLoup]

Pourrais-tu donner ton code actuel pour que l'on ait une base sur laquelle partir ? Je pense qu'en faisant un Load, remplir la textbox, puis un Show, ça devrait marcher, mais ça dépend de pas mal de choses.

[gFZT82]

Bonjour,

Essaie en passant les boites de dialogue en mode non modal.

Code :

Userform1.show 0

et

Code :

 Userform2.show 0

Cordialement.

[ZebreLoup]

@gFZT82 : Effectivement, ça peut marcher, mais il faut qu'il soit sûr que le mode modal lui convient. Cela devrait être une question de conception et pas une astuce pour résoudre un problème d'initialisation avant affichage.

Au cas où pour UDSP50 :
- En mode modal, une fois l'UserForm ouvert, le code qui l'a ouvert est mis en suspend et attends la fermeture avant de continuer à s'exécuter. (Comme un msgBox par exemple).
- En mode non modal, l'UserForm s'affiche mais le code continu à s'exécuter. Le comportement de l'USF et du reste du programme deviennent "indépendant" (on peut passer de l'un à l'autre... Un peu comme une barre d'outil par exemple)

[patricktoulon]

bonsoir
le userform1 en mode non modal bien sur !!!!
dans le module du userform1

Code :

1
2
3
4
5
6
7
8
9
dim lemot as variant
private sub Label1_click()
lemot=me.label1.caption
userform2.show0
 
userform2.textbox1 = lemot
 
 
end sub

au plaisir

[Theze]

Bonjour,

Si la Form doit être modale (pour obliger une saisie par exemple), il te faut passer par une variable et récupérer sa valeur à l'ouverture de l'UserForm2.
Dans le module de l'UserForm1 :

Code :

1
2
3
4
5
6
7
8
9
 
Public MaVar As String
 
Private Sub Label1_Click()
 
    MaVar = Label1.Caption
    UserForm2.Show
 
End Sub

Dans le module de l'UserForm2 :

Code :

1
2
3
4
5
6
 
Private Sub UserForm_Activate()
 
    TextBox1.Text = UserForm1.MaVar
 
End Sub

Hervé.

[ZebreLoup]

Pourquoi pas tout simplement dans userForm1 :

Code :

1
2
3
Load UserForm2
UserForm2.TextBox1.Text = "Toto"
UserForm2.Show

Et je réitère, le choix du mode modal ou non est une question de conception, pas une astuce pour remplir un userform avant son affichage