Discussion :

[Elumastebit]

Bonjour,

Je dispose de plusieurs userform. Pour naviguer entre chacun de ces userform, j'ai réalisé une commande bar, qui par clic droit me permet de choisir le bon userform.

Ainsi dans mon userform j'ai ce code:

Code :

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

1
2
3
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Button And 2 Then Call CreatePopupMenu
End Sub

Qui me permet par clic droit sur la form d'afficher un menu.Le choix d'un item de se menu entraine la macro suivante (placée dans un module):

Code :

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

1
2
3
Sub AfficherUsf3()
Usf3.Show
End Sub

Ainsi, ici le 3° formulaire apparaît bien mais le premier sur lequel j'ai le clic droit n'est pas enlever.

Puisque je ne peut pas faire de me.hide puisque je suis sur le module, quelle procédure puis-je utiliser?

Merci pour votre aide.

Elumastebit

[zandru]

Bonjour,

Tu as essayé :

Code :

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

Usf1.hide

[Elumastebit]

bonjour Zandru,

Oui j'ai essayé, mais le problème est que j'ai 9 form et si je met:

Code :

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

1
2
3
4
5
 
usf1.hide
usf2.hide
...
usfx.show

il me retourne une erreur puisque j'essaie de masquer des form non visible.

[Elumastebit]

Merci Zandru tu m'as ré-aiguillé sur la bonne voie:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub AfficherUsf6()
If UsfG.Visible = True Then UsfG.Hide
If Usf1.Visible = True Then Usf1.Hide
If Usf2.Visible = True Then Usf2.Hide
If Usf3.Visible = True Then Usf3.Hide
If Usf4.Visible = True Then Usf4.Hide
If Usf5.Visible = True Then Usf5.Hide
If Usf7.Visible = True Then Usf7.Hide
If Usf8.Visible = True Then Usf8.Hide
Usf6.Show
End Sub

C'est un peu lourd puisque j'ai 9 form mais ça fonctionne.

Merci et bonne journée à vous.

[wilfried_42]

bonjour

je me doutais bien un truc comme cela, mais comme tu avais une réponse, j'ai attendu...

Code :

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

1
2
3
4
5
6
7
8
9
sub lance_usf3
      on error resume next
      usf1.hide
      usf2.hide
      usf3.hide
      etc......
      on error goto 0
      usfx.show
end sub

[Elumastebit]

Salut wilfried_42,

Petite question: à quoi sert:

Code :

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

on error goto 0

Sinon pour conclure ce post:

Si je suis sur le usf3 et que je clic droit et choisis usf3 alors vb me renvoi une erreur. J'ai donc mis la boucle if then else suivante:

Code :

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

1
2
If Usf3.Visible = True Then Exit Sub _
Else: Usf3.Show

[wilfried_42]

re:

quand tu fais un on error goto étiquette ou comme ici un on error resume next, tu détournes le contrôle d'erreur du basic. donc quand tu as terminé avec ce type de procédure, il te faut rendre le contrôle d'erreur au basic sinon tu vas vers de gros problèmes.
Exemple : tu fais plus loin dans la Macro, une autre erreur celle-ci involontaire par exemple une division par zéro, si tu n'as pas rendu le contrôle d'erreur au basic, tu ne la verras pas, tes résultats risquent d'êtres faux et tu chercheras longtemps le problème...
on n'utilise la gestion des erreurs que lorsque l'on sais quelle erreur est susceptible d'arriver, pourquoi elle arrive... et à la fin on rend le contrôle au VBA...