Discussion :

[SpcCwb]

Bonsoir,

J'ai un soucis qui je pense ne demande pas grand chose pour être résolu mais je n'ai pas ce quelque chose ^^

Alors voilà, via un bouton sur une feuille excel j'ouvre 2 userform: UserForm3 et UserForm4. Le premier à se lancer est le 3 car il va définir la position du 4, cependant le focus reste sur le 4 alors que je souhaiterai mettre en premier plan le 3.
Même en utilisant le SetFocus sur un contrôle du 3 c'est le 4 qui reste en premier plan.

Je ne sais plus quoi faire ^^'

Je joints mon code au cas où vous auriez une idée:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Saisie_ajout()
 
UserForm3.Show vbModeless
UserForm3.Top = 0
UserForm3.TextBox4.Value = Format(Date, "dd/mm/yyyy")
Call Module2.remplir_combobox_noms_usf3
UserForm4.Show vbModeless
UserForm4.Top = UserForm3.Top + UserForm3.Height
UserForm3.ComboBoxX.SetFocus
 
End Sub

Je vous remercie d'avance

[Invité]

Je ne suis pas sur de proposer la bonne solution mais au moins ça à l'air de marcher:

Code :

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

1
2
3
4
5
Sub AfficherFormulaire()
    UserForm3.Show False
    UserForm4.Show False
    UserForm3.Show False
End Sub

En gros tu affiches à nouveau ton formulaire: http://support.microsoft.com/kb/213744

[SpcCwb]

Ca fonctionne impeccablement! Merci vcottineau! Je l'ai juste adapté de manière à pouvoir placer mes userform là où je le voulais, voici le code pour ceux que ça pourrait intéresser:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Saisie_ajout()
 
UserForm3.Show vbModeless
UserForm3.Top = 0
UserForm3.TextBox4.Value = Format(Date, "dd/mm/yyyy")
Call Module2.remplir_combobox_noms_usf3
UserForm4.Show vbModeless
UserForm4.Top = UserForm3.Top + UserForm3.Height
UserForm3.Show False
UserForm3.Top = 0
UserForm3.ComboBoxX.SetFocus
 
End Sub