UserForm bloquante et éxécution de fonction

Bonjour à tous,

J'ai une question à laquelle je n'arrive pas trouvé de réponse.

J'ai un onglet excel qui contient des données sur plusieurs lignes. Je parcours cet onglet grâce à une fonction contenue dans un "module". A chaque ligne je remplie une userform que je n'affiche pas car j'en ai pas besoin. Par contre dans certains cas je dois modifier cette UserForm, dans ce cas je l'affiche grâce à la fonction .Show.

Mon problème est que quand j'affiche cette UserForm cela ne bloque pas l’exécution de la fonction de recherche. Je voudrais qu'une fois la UserForm affichée la fonction de recherche attende que celle-ci soit ressortie pour continuer le parcours de l'onglet. Sachant qu'à la sortie de la UserForm une autre fonction est appelée et que donc il faudrait que la fonction de recherche attende la fin de l'exécution de cette fonction pour continuer.

Voici un exemple de mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

For TrainGOV = 2 To NbTrainGOV NumTrainGOV_AR = SheetDonnees.Cells(TrainGOV, col_trainAR) 'On test si le train existe If NumTrainCRITER_AR = NumTrainGOV_AR Then 'And NumTrainCRITER_DEP = NumTrainGOV_DEP Then 'Remplissage de la UserForm sans l'afficher Call RecupTrainComplet(TrainGOV, SheetDonnees, "non")   If HeureTrainCRITER_AR <> HeureTrainGOV_AR Or HeureTrainCRITER_DEP <> HeureTrainGOV_DEP Then a = MsgBox("Train n°" & NumTrainCRITER_AR & " / " & NumTrainCRITER_DEP & " : les heures d'arrivées et de départ ne correspondent pas !", vbCritical, "Différence Import CRITER") SheetGOV.Select Modifier.Show Else   End If End If Next TrainGOV

---

Si l'un d'entre vous à une idée ?

Bonsoir,

Idée ?

Met un Flag=True avant ton .show

Boucle ensuite avec un while en attendant Flag=False. (met au minimum un DoEvents dans ta boucle d'attente while).

A la fin de la fonction applelée à la fermeture du UserFom, met Flag=False.

A+

Ah ouais c'est tout bête mais ça marche. Merci :).

Citation:

---

Contenu du message :
***************
Bon finalement ça ne marche comme je voudrais.

J'ai fait comme tu m'as proposé, j'ai créé un variable EndModifier dans Modifier.
Je l'initialise à false dans la fonction Modifier.UserForm_Initialize()
Et je la met à true à la sortie de ma userform par appui sur le bouton enregistrer.

Bon là j'ai plusieurs problèmes :
- Si la fonction sort de la userform par un autre bouton que le bouton enregistrer (la croix par exemple) je ne met pas mon flag à true et donc je reste bloqué dans mon while. Il existerait pas une fonction OnClose de la userform ?
- Ensuite je me rend compte que le code (oui il est pas de moi à la base je le reprend :) ) quand on clique sur le bouton enregistrer ne "kill" pas la userform il fait seulement un me.hide. Résultat si je l'appel plusieurs fois d'affilé ca marche le premier coup, mais après elle ne repasse jamais dans la fonction initialize ou la fonction activate et donc ne remet jamais mon flag à false.

Donc là je vois comment faire de manière bien crade en appelant mon flag partout ou j'en ai besoin dans le code même si je ne suis pas dans le même module mais je me demande si il n'y a pas une manière plus propre de faire ce que j'essai de faire ?
***************

---

Salut,

utilise :

Code:

---

1 2

Unload Me

---

et non le .hide

et utilise cette fonction :_QueryClose pour passer ton Flag de fermeture.

Code:

---

1 2 3 4

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) MsgBox ("Fermé") End Sub

---

A+

Et je me rends compte que je réponds à un message qui a été supprimé !?

Oui désolé j'ai supprimé mon message après l'avoir et être tombé sur un tuto qui expliquait j'ai eu honte d'avoir posé des questions aussi basiques donc j'ai supprimé le message avant que quelqu'un ne perde du temps à me répondre alors que les réponses étaient dans le premier tuto sur les userform, mais tu as été trop rapide.

Et puis bon finalement je n'arrive pas à faire ce que je veux.

Je suis effectivement passé à Unload Me pour fermé la userform, le problème que j'ai c'est que avant de fermer ma form je met mon flag à true dans la fonction terminate mais quand ma form se ferme ça kill aussi mon flag. Donc mon while qui check le flag recrée une nouvelle instance de ma userform et ce qui rappel la fonction activate qui me réinitialise mon flag à false et donc mon while ne s’arrête pas.

Souhaites-tu persévérer ?

Si oui, dit le, je t'aiderai.

A+

Oui je le souhaite :).

Salut,

Excellent choix.

Reprenons donc le problème.

Citation:

---

'ai fait comme tu m'as proposé, j'ai créé un variable EndModifier dans Modifier.
Je l'initialise à false dans la fonction Modifier.UserForm_Initialize()
Et je la met à true à la sortie de ma userform par appui sur le bouton enregistrer.

---

Tu as donc déclaré EndModifier au niveau de ton Userform n'est-ce pas ?
Le problème est que ton module ne connait pas EndModifier.
Il faut modifier la portée de EndModifier et le déclarer en Global (à la place de DIM).
Pour cela, il faut faire la déclaration au niveau de ton module.

Citation:

---

Je suis effectivement passé à Unload Me pour fermé la userform, le problème que j'ai c'est que avant de fermer ma form je met mon flag à true dans la fonction terminate mais quand ma form se ferme ça kill aussi mon flag. Donc mon while qui check le flag recrée une nouvelle instance de ma userform et ce qui rappel la fonction activate qui me réinitialise mon flag à false et donc mon while ne s’arrête pas.

---

Ok pour le Unload Me.
Personnellement, j'utilise plutôt _QueryClose(Cancel As Integer, CloseMode As Integer) et non "Terminate".

Ton problème vient seulement de la porté "Locale" de ton Flag.

Dans le Module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

' Variables globales : vues aussi par le UserForm Global Flag As Boolean Global Compteur As Integer   Sub Boucle_a_mettre_en_pause() For Compteur = 1 To 3 Flag = True UserForm1.Show Do DoEvents Loop While Flag = True Next Compteur End Sub

---

Dans le UserForm:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click() 'Bouton pour fermer Unload Me End Sub   Private Sub UserForm_Activate() 'Juste pour l'exemple pour vérifier le passage des variables et l'attente dans la boucle Label1.Caption = Compteur End Sub   Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Sortie du UserForm commande la sortie de la boucle Flag = False End Sub

---

A+

Merci pour ton aide, ça fonctionne parfaitement.