Discussion :

[nico84]

Bonjour,

Dans du code VBA est-il possible d'interrompre l'exécution pour saisir une information dans une fenêtre perso ?

Actuellement j'ai quelque chose du type :

Code :

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

1
2
 T = [liste des variantes possibles]
  v = InputBox(T, "Choix de variante", 1)

A la place je voudrais que v soit saisi par double clic dans une fenêtre qui afficherait la liste :

Code :

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

1
2
3
 
  DoCmd.OpenForm("choix_v", , , stLinkCriteria, , , T)  
  v= [valeur retournée par la fenêtre en fermeture]

Mais bien sûr DoCmd.OpenForm n'interrompt pas l'exécution du VBA et ne retourne rien

J'ai cherché sur tous les forums j'ai rien trouvé. Quelqu'un a une idée ?

Merci d'avance

[micniv]

Bonjour,
Tu peux faire une boucle d'atte,nte de la fermeture du formulaire de saisie (en plaçant un "Doevents" dans la boucle).
De nombreux exemples à rechercher sur le forum.

[nico84]

Super merci ça marche nickel et c'est tout simple !

Maintenant ça ressemble à ça :

Code :

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

1
2
3
4
5
6
choix = -1 'variable publique
  DoCmd.OpenForm "of_choix", , , stLinkCriteria, , , T
  While choix < 0
    DoEvents
  Wend
  MsgBox "variante reçue=" & choix

Ca fait un moment que je cherchais...

[micniv]

C'est la solution.
Plus concisément, tu pouvais aussi :

Code :

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

1
2
3
4
5
6
 
 DoCmd.OpenForm "of_choix", , , stLinkCriteria, , , T
 Do While CurrentProject.AllForms("of_choix").IsLoaded
        DoEvents
    Loop
...