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

patricktoulon

XLDnaute Barbatruc

• 19 Novembre 2021

• #16

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 19 Novembre 2021

• #17

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Novembre 2021

• #18

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 ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 19 Novembre 2021

• #19

heu @Dudu2 tu es fatigué

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 19 Novembre 2021

• #20

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Novembre 2021

• #21

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 19 Novembre 2021

• #22

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.

Cliquez pour agrandir...

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

LOL!!

 

Pièces jointes

• VBA Retirer le Caption d'un UserForm et le placer en StatusBar.xlsm

  24.7 KB · Affichages: 12

Vote positif 0 Vote négatif

Solution

Dudu2

XLDnaute Barbatruc

• 19 Novembre 2021

• #23

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 ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 19 Novembre 2021

• #24

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%

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Novembre 2021

• #25

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

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

 

Pièces jointes

• VBA Retirer le Caption d'un UserForm et le placer en StatusBar.xlsm

  25.5 KB · Affichages: 5

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 19 Novembre 2021

• #26

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Novembre 2021

• #27

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.

 

Pièces jointes

• VBA Retirer le Caption d'un UserForm et le placer en StatusBar.xlsm

  24.8 KB · Affichages: 7

Dernière édition: 20 Novembre 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 19 Novembre 2021

• #28

ya pas de quoi repose toi bien

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 19 Juillet 2022

• #29

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

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 19 Juillet 2022

• #30

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.

VB:

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

 

Vote positif 0 Vote négatif