Discussion :

[vinystic]

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

[JackOuYA]

bonsoir,


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

Code :

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

1
2
3
4
Sub yA()
  UserForm1.Show
  MsgBox "Ya"
End Sub

[vinystic]

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

[JackOuYA]

plusieurs solutions.

une variable globale , mis à jour par ton userform.


dans le module :

Code :

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

1
2
3
4
5
6
 
Public maDate as Date
Sub yA()
  UserForm1.Show
  MsgBox maDate
End Sub

Dans l'userform

Code :

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

1
2
3
4
5
 
Private Sub CommandButton1_Click()
 maDate = now
  me.hide
End Sub

[oOVaveOo]

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.

[decondelite]

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

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 :

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

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.