probleme de userform

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

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.

Bonjour,

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

Code:

---

Userform1.show 0

---

et

Code:

---

Userform2.show 0

---

Cordialement.

@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)

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

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é.

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 :zen: