XL 2016 VBA - Positionnement UserForm - PC a 2 écrans

[Dudu2]

Bonjour,

J'ai fait un code pour un utilisateur qui possède 2 écrans sur son PC. Je n'ai pas cette config.
Lorsqu'il lance ce UserForm, il ne va pas sur la fenêtre Excel (1er écran à gauche) mais sur le Bureau (2ème écran à droite).

Une idée de comment forcer le UserForm à s'afficher dans l'écran de la fenêtre Excel ?
Merci par avance.

 

[patricktoulon]

je me demande même si la status barre ne serait elle même pas une sub fentre a part entière et fille de l'application au quelque cas c'est a elle qu'on l’attacherait on aurait plus de gestion de resize comme ça

 

[patricktoulon]

regarde tout les handles de fenetres fille et petite fille qui compose la fentrex excel
si la dedans ya pas la statusbars je serait étonne
j'ai du faire une erreur dans mon code je n'arrive pas a avoir leur classe name

 

[Dudu2]

C'est pas grave de pas trouver la fenêtre de la StatusBar. On sait où elle est.
Et mon utilisateur voulait quelque chose de plus visible que le texte en StatusBar (écrit petit et sur fond gris) c'est pour ça que je suis passé à un UserForm.

2 petits commentaires.

Pour les positions il faut faire la différence entre Application maximisée (les .Top et .Left sont négatifs le .Height je sais pas trop et je n'ai jamais compris ces chiffres négatifs) et Application réduit (Les .Top et .Left sont corrects)
Voilà ce que j'ai du faire pour avoir un positionnement identique selon maximisé ou réduit.
Me.Move 0, Application.Height - Me.Height + 2 * IIf(Application.Top < 0, Application.Top, 0)

Après je sais pas d'où t'as sorti l'évènement Workbook_WindowResize au milieu d'un UserForm mais ça m'a laisse coi 😳. Cependant cet évènement n'est jamais déclenché chez moi et c'est bien dommage ! Il faut du code dans le ThisWorkbook ?

 

[patricktoulon]

heu @Dudu2 tu es fatigué

 

[patricktoulon]

maintenant si tu veux tu peux l'avoir dans le userform aussi c'est pas un problème

 

[Dudu2]

Ah oui ! Fatigué 😩
Je suis allé dans ThisWorkbook et je n'y ai même pas trouvé l'évènement !!

Dans le UserForm ? Alors là je dis non ! Ce n'est pas possible.

 

[patricktoulon]

Je suis allé dans ThisWorkbook et je n'y ai même pas trouvé l'évènement !!

Dans le UserForm ? Alors là je dis non ! Ce n'est pas possible.

Ah!! oui!!! ben tiens
regarde si il y est pas dan mon userform 😂🤣😂🤣

LOL!!

 

[Dudu2]

Très fort mon @patricktoulon !
Ces With Events je les appréhende de loin sans vraiment bien les contrôler.
Dans ce que tu as fait, est-ce à dire que tant que le UserForm est actif, tous les évènements Workbook doivent être interceptés dans le code du UserForm ?

 

[patricktoulon]

re
non pas du tout l'event d'origine reste intègre
l'event de substitution se produit dans un calque si je puis m'exprimer ainsi
tu peux même utiliser les deux events identique

pour info le windowresize d'origine est quasiment en bas de la liste dans le thisworkbook

mais en le mettant dans le userform comme je le fait ton userform n'est pas dépendant du module thisworbook
on évite de s'éparpiller dans les modules comme ca . et la transportabilité du module userform =100%
😉

 

[Dudu2]

Oui je préfère aussi que tout soit regroupé.

Chez moi ça refuse de marcher. Ça m'énerve.
Tu peux regarder STP ?

 

[patricktoulon]

c'est parce que tu n'a pas tout regarder
tu crée l'event mais tu n’instancie pas l'object ceClasseur

 

[Dudu2]

Ah Merci. Suis allé trop vite.
Je vais aller me coucher.
En tous cas, tu m'as super bien dépoté le problème et je t'en remercie vraiment.
Bonne nuit mon @patricktoulon.

Et Merci aussi à @BrunoM45 pour son code.

Edit: Ce matin je rajoute quand même pour info mon fichier qui est bien sûr conforme à ce que @patricktoulon a mis en place, sauf que j'ai gardé l'API native.

 

[patricktoulon]

ya pas de quoi repose toi bien😉

 

[Dudu2]

Merci à @BrunoM45 pour son post #7 qui a été le point de départ de mon développement concernant ce sujet.

XL 2016 - VBA - 2 écrans - Positionner un UserForm dans le même ou l'autre écran par rapport à Excel

Bonjour à tous, Si quelqu'un possède 2 moniteurs, j'aimerais qu'il prenne quelques minutes pour tester les 3 boutons de ce programme et vérifier si ça fait ce que ça dit ou si ça part en live complet ! En prenant la peine de positionner la fenêtre Excel une fois dans le Moniteur primaire et une...

excel-downloads.com

 

[Lolote83]

Bonjour à tous.
J'ai parcouru rapidement cette discussion et pour positionner un UserForm sur l'écran Excel en fonction de son positionnement (Gauche ou droite) , j'utilise ceci.

Private Sub UserForm_Initialize()
    '-------------------------------------------------------- Positionnement UserForm
    Me.StartUpPosition = 0                                                  'Déclarer position MANUAL
    Me.Left = Application.Left + Application.Width / 2 - Me.Width / 2
    Me.Top = Application.Top + Application.Height / 2 - Me.Height / 2
End Sub

J'espère être dans les clous.
@+ Lolote83