Discussion :

[Pier3d]

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

--

[issoram]

Bonjour,

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

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?

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.

[Daniel.C]

Bonjour,

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

Code :

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

DoEvents

après le :

Code :

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

Ordonne.hide

[Pier3d]

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

Code :

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

DoEvents

après le :

Code :

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

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

[Pier3d]

Bonjour,

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 :

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

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 :

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

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 :

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

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


---

[Didier Gonard]

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 :

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

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

[issoram]

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 :

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

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 :

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

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.