retour module apres userform

Bonjour,
J'ai des lignes de codes dans un module, et je voudrais faire appel a un userform
pour demander une info à l'utilisateur à un endroit précis dans le code.
Je souhaiterais ,une fois avoir cliquer sur le "ok" du userform, retourner au bon endroit dans mon module.

Merci

bonsoir,


lorsque tu vas cliquer sur OK tu vas te retouver à la ligne suivante

Code:

---

1 2 3 4

Sub yA() UserForm1.Show MsgBox "Ya" End Sub

---

Ok, merci beaucoup. ar contre je n'arrive pas a recuperer l'information (une date de mon userform pour 'en servir dans mon module

Merci

plusieurs solutions.

une variable globale , mis à jour par ton userform.


dans le module :

Code:

---

1 2 3 4 5 6

Public maDate as Date Sub yA() UserForm1.Show MsgBox maDate End Sub

---

Dans l'userform

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() maDate = now me.hide End Sub

---

Bonjour,
Pourquoi ne pas mettre une inputbox directement dans le code au lieu de passer par un userform ?
Si c'est juste pour récupérer 1 info, ça suffirait.

Je voudrais pas critiquer, mais une inputbox... c'est moche. :lol:

Pour récupérer le texte dans ton formulaire et le stocker dans une variable (je suppose que tu y as mis une textbox), fais comme ceci dans ton code:

Code:

---

1 2 3 4 5 6

Sub CodeAppelantLeFormulaire() ... UserForm1.Show mavariable = Userform1.Textbox1.Value ... End Sub

---

En adaptant le nom du userform et de la textbox. Cette manière de faire est plus propre, car elle n'utilise pas de variable globale. ;)