Discussion :

[mouftie]

Bonjour,
Je voudrai qu'à l'ouverture (ou à la modification) du Usf, le focus se positionne sur le 1er champ, qui se situe en dehors du multipage1 et que la page 0 du multipage1 soit active.
J'ai essayé, dans le Usf_Initialize ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
Me.MultiPage1.Value = 0
If Btn = True Then   'ouverture par bouton du formulaire vierge
    Me.CbxAgt.SetFocus   'Focus sur l'extérieur du multipage1
    Exit Sub 'Si le formulaire est ouvert par le bouton, il est vierge, pas besoin de remplir le formulaire
End If
'si le formulaire s'ouvre pour modification d'une ligne de saisie (double click)
'Remplissage des  contrôles
....
Me.CbxSup.SetFocus   'contrôle à activer si ce n'est pas un formulaire vierge

mais cela ne fonctionne pas
J'ai la bonne page du formulaire qui est présente, mais je n'ai aucun focus, on est obligé de l'activer avec la souris (le raccourci clavier ne fonctionne pas non plus - accelerator).

Est-ce que qq'1 voit comment je peux faire ?
C'est pas bloquant, mais ça m'énerve fortement...
;>

[patricktoulon]

bonjour
c'est quoi Me.CbxAgt?

[mouftie]

Bonjour Patrick,
Merci d'avoir pris le temps de me répondre.
Me.CbxAgt, c'est le nom de la 1ère combobox de l'Usf à remplir, s'il s'agit d'un formulaire vierge, sinon il faut que le focus aille dans la page 0, sur le combobox CbxSup.

J'ai continué à tester et voilà mes conclusions.
Le focus est bien là où il doit être, mais on ne le sait pas. En effet, il n'est pas visible, il ne clignote pas et si on tape la 1ère lettre d'un item du combobox, il ne se passe rien.
Par contre, si j'utilise la touche de flèche descendante du clavier, ma combobox se déroule sur les items.
Donc, je pense qu'il n'y a rien à faire, ce doit être un bug Microsoft ?

Quand penses-tu, je clos la discussion ?

[patricktoulon]

re
ben oui c'est pas comm textbox ou il y a un selstart et sellength le ComboBox lui ne fait rien

tu peux essayer

Code :

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

with me.cbxxxxx:.setfocus :.dropdown:end with ' si tu veux un effet visible

ou meme entrer une valeur qui n'existe pas dans la liste
du genre

Code :

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

with me.cbxxxxx:.setfocus :.value="Sélectionnez un item ICI":end with ' si tu veux un effet visible

attention aussi au parent
si ta combo est un enfant du multi c'est me.multipage1.controls("cbxxxx").propriété
car des fois ca relève pas l'erreur mais ne fait rien sur certaines installations