Désactiver USF non modal (focus pour la feuille active)

JNP · 9 Février 2010

Bonjour le fil ,
Je tourne en rond sur un problème non catastrophique mais énervant.
J'utilise un USF non modal (modifications de feuille indépendantes de la version Excel) qui fonctionne très bien, MAIS, quand la macro se termine, c'est l'USF qui garde le focus, alors que bien évidement, je souhaiterais que ce soit la feuille planning qui le récupère ...
J'ai essayé bien des solutions (Feuille.Activate, Feuille.Select, Feuille.Range("A1").Select, Windows(1).Activate, Me.Hide - Me.Show, Unload.Me - Me Show, etc...), rien n'y fait.
J'ai recherché sur le forum, j'ai bien trouvé la même question, mais, pas de réponse ...
Je mets un petit fichier exemple, si quelqu'un a une idée, je suis preneur ...
Bonne journée

jp14 · 9 Février 2010

Re : Désactiver USF non modal (focus pour la feuille active)

Bonjour JNP

Un code à tester

Code:

Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("a1").Select
Sheets("Feuil1").Range("a1").Activate
'Selection = "Test"
Unload Me
End Sub

L'userform se ferme et dans la barre des formules on a "Test"

JP

JNP · 9 Février 2010

Re : Désactiver USF non modal (focus pour la feuille active)

Bonjour JP14 ,
Certes, mais cela ferme l'USF, alors que je souhaite le garder ouvert (comme une palette flotante), c'est pour celà qu'il est non modal.
A +

JNP · 9 Février 2010

Re : Désactiver USF non modal (focus pour la feuille active)

Re ,
Problème résolu en cherchant sur le net et en trouvant une réponse de Frédéric Sigonneau ICI.
Il faut donc terminer le code avec

Code:

AppActivate "Microsoft Excel"

ce qui redonne la main à Excel .
Ouf, et merci à JP14, même s'il n'avait pas bien suivi la question .
Bonne journée

Désactiver USF non modal (focus pour la feuille active)

JNP

XLDnaute Barbatruc

Pièces jointes

jp14

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

Discussions similaires