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

[JNP]

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]

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

Bonjour JNP

Un code à tester

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]

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]

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

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