Discussion :

[morpheuss]

Bonjour,

J'ai une ListView dans un UserForm1, lorsque je sélectionne une ligne et que je clique sur un bouton "Preview" un autre UserForm2 s'affiche me permettant de prévisualiser un élément.
Je souhaiterais après affichage de ce second UserForm2 rendre le focus sur la ListView1 de mon 1er UserForm1 afin de pouvoir sélectionner une nouvelle ligne directement avec les flèches du clavier.

J'essaye en mettant ce code à la fin de la macro UserForm_Initialize() de mon UserForm2

Code :

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

UserForm1.ListView1.SetFocus

il n'y a pas d'erreur mais ça ne fonctionne pas.

Avez-vous une idée ?

Cordialement,

Steph

[Tylert]

Sans aucune justification autre que mes essais d'utilisation de user form: J'ai l'impression que le focus ne peut pas sortir du userform en cours d'utilisation.
Dans mon propre projet où j'ai un userform de choix qui fait poper X userform différents à partir de boutons, je ne peux pas reprendre la main sur le userform de choix sans avoir fermé le userform lancé par un des boutons de ce userform.
il est probable que ton ordre échoue tout simplement car cela n'est pas possible (sans toutefois générer d'erreur).

Dans ton cas, j'imagine qu'il y a probablement un evenement du userform qui doit correspondre à la reprise du focus, et dedans tu dois pouvoir mettre ta ligne de code pour que quand on revient sur ton userform, le focus soit mis directement sur ce que tu veux.
Tu peux probablement gérer une variable globale pour gérer les différents cas de figure et bien positionner ton focus quelque soit l'endroit d'où tu viens.

l'evenement: Activate.

[Algoplus]

Bonjour,

Par défaut une UserForm est modal.( on ne peut avoir d'actions en dehors de l'userform)

dans l'userform1 , "lancer" l'userform2 en non modal => userform2.show 0

On pourra revenir sur userform1 par clic.

A+

PS: a priori il faut que userform1 soit aussi non modal

[Tylert]

Et donc pour être sûr d'avoir le focus sur le bon item: utilisation de l'event activate?

[Algoplus]

sauf s'il y ai déjà du code , oui (activate userform1)

[morpheuss]

Mes deux UserForm sont bien configurer en ShowModal = False

activate userform1 me génère une erreur, comment faut il écrire cette commande ?

[Algoplus]

Bonjour,

Dans l'évènement Activate de l'userform1 juste l'instruction:

Code :

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

ListView1.SetFocus

[Theze]

Bonjour,

Les deux UserForm en non modal, du second UserForm, le simple fait de donner le focus à un contrôle du premier, active l'UserForm et mets le focus sur le contrôle visé comme par exemple :

Code :

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

1
2
3
4
5
6
 
Private Sub CommandButton1_Click()
 
    UserForm1.TextBox2.SetFocus
 
End Sub

CommandButton1 étant sur l'UserForm2 !

[morpheuss]

Merci à vous tous,

finalement ça fonctionne mais j'ai du placer cette ligne

Code :

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

UserForm1.ListView1.SetFocus

à la fin de ma macro de mon UserForm1 qui appel mon UserForm2

[Theze]

Bonjour,

finalement ça fonctionne mais j'ai du placer cette ligne

Code :

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

1
2
 
UserForm1.ListView1.SetFocus

à la fin de ma macro de mon UserForm1 qui appel mon UserForm2

Ce qui est tout à fait logique car si tu utilises une ligne de code comme ceci :

Code :

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

1
2
 
ListView1.SetFocus

Le formulaire cherche le contrôle sur lui même, il est donc nécessaire de préciser l'objet qui le possède !