Mystère Excel vba

Bonjour à tous,

Spécialement les Maigret et les Colombo...

Je veux vous soumettre un problème qui nous laisse pantois ma conjointe informaticienne et moi.

Voilà :

J'ai un formulaire (Userform) sur lequel il y a un bouton NOUVEAU qui ouvre un 2e formulaire sur lequel il y a un bouton FERMER.


Tout a bien fonctionné pendant un bon moment. Puis, j'ai apporté quelques améliorations et Paf ! ça ne va plus. Le bouton FERMER ne contient qu'une ligne de code : " Ordonne.hide " (Ordonne est le nom du formulaire).

Quand je clique sur FERMER le programme dévie de sa route (c'est-à-dire qu'il devrait revenir à la ligne qui suit " Ordonne.show "). Mais non ! Au lieu de cela, le programme revient à la procédure Activate du premier formulaire.

Bien sûr, ça plante.

Mais là, lisez bien ça : si je mets un Arrêt (F9) à la ligne qui suit Ordonne.Hide, et que, après l'arrêt, je presse F5 pour repartir le programme, tout se déroule normalement.

Avec un Arrêt, ça va, sans Arrêt, le programme sort de sa route et s'en va dans la procédure Activate du premier formulaire.

J'ai essayé de mettre d'autres formes d'arrêt après le " Ordonne.hide ". Par exemple, un MsgBox. EH BIEN ÇA MARCHE !!!!

J'ai essayé d'autres choses mais rien ne marche. Seulement un Arrêt (F9) ou un Msgbox (qui est un arrêt forcé).

Je suis conscient que peu de gens sont capables de comprendre mon message. Je suis prêt à fournir autant d'explications qu'il faudra mais je veux comprendre ce qui se passe.

Merci de votre attention,

Pierre Cloutier

--

Bonjour,

Sans ligne de code c'est un peu dur...

Citation:

---

Le bouton FERMER ne contient qu'une ligne de code : " Ordonne.hide " (Ordonne est le nom du formulaire).

---

. Dans quelle procédure? Ordonne est le nom du 1er formulaire?

Citation:

---

Quand je clique sur FERMER le programme dévie de sa route (c'est-à-dire qu'il devrait revenir à la ligne qui suit " Ordonne.show "). Mais non ! Au lieu de cela, le programme revient à la procédure Activate du premier formulaire.

---

Dans quelle procédure et dans quel module?

Cordialement.

Bonjour,

Est-ce que tu as essayé de mettre un :

Code:

---

DoEvents

---

après le :

Code:

---

Ordonne.hide

---

Bonjour,

Citation:

---

Envoyé par issoram

Sans ligne de code c'est un peu dur...

---

Le premier formulaire (Userform) s'appelle F1 (très original, n'est-ce pas ?)

Ce formulaire contient les champs Nom, Prénom etc. et des boutons suivants : Enregistrer, Supprimer, Fermer et Nouveau (c'est de ce dernier bouton dont on parle ici).

Le bouton Nouveau récupère le contenu du Presse-papier puis appelle le 2e formulaire " Ordonne ".

Sur celui-ci, il y a des étiquettes puis un bouton Fermer qui ne contient qu'une ligne de code : " Ordonne.Hide "

Le problème c'est que après

Code:

---

Ordonne.Show

---

et l'exécution du code de ce formulaire, le contrôle ne revient pas à la ligne qui suit Ordonne.Show dans le premier formulaire mais au début de la procédure

Code:

---

Activate_Click()

---

de ce premier formulaire.

Pourtant, ça a marché pendant un bon moment. Puis, j'ai changé quelque chose dans le programme et le problème a commencé.

L'étrangeté c'est que si je mets un Arrêt (F9) tout de suite après la ligne

Code:

---

Ordonne.Hide

---

le problème ne se produit pas. Même chose si je mets un Msgbox. Je vais essayé un DoEvents (dans le moment je suis sur un portable loin de mon programme).

À bientôt,

Pierre


---

Bonjour,

bon en prenant pour base que tout est OK et que la perturbation intervient "comme par magie", tu peux tenter d'insérer ceci qui se révèle indispensable dans certains contexte, les machines ayant tendance à être trop rapides de nos jours ;)

Code:

---

Application.Wait (Now + TimeValue("0:00:02"))

---

reste à jouer sur le paramètre de temps..

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Bonjour,

J'ai fait l'essai chez moi avec 2 UserForm tout simples contenant chacun un bouton et la bascule se fait sans problème. Le code poursuit bien au bon endroit après l'appel du .Show

Code:

---

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

' ===== Code UF1 ====== Private Sub ButtonNouveau_Click() UF2.Show Debug.Print "l'execution reprend au bon endroit" End Sub   Private Sub UserForm_Activate() Debug.Print "in UF_Activate" End Sub   Private Sub UserForm_Click() Debug.Print "in UF_click" End Sub

---

Code:

---

1 2 3 4

' ===== Code UF2 ====== Private Sub BoutonFermer_Click() Me.Hide End Sub

---

Est ce que déjà ceci passe chez toi?

Bon courage.

Citation:

---

Envoyé par Daniel.C

Est-ce que tu as essayé de mettre un :

Code:

---

DoEvents

---

après le :

Code:

---

Ordonne.hide

---

---

Merci, il semble que ça fonctionne. Vous êtes de vrais pros ! Champion !!!

Je crois qu'il est trop tôt pour marquer ce sujet « résolu ». Je vais faire encore quelques tests si vous me le permettez.

Je vous reviens le plus tôt possible.

Pierre