Microsoft 365 Forcer l'affichage de mon userform (barre de progression) sur l'écran où le classeur est actif (cas des doubles/triples écrans)

Le_Phénomène · 5 Novembre 2024

Bonjour,

Dans l'un de mes projets, je fais afficher une barre de progression via un userform afin de faire "patienter" l'utilisateur (et histoire que ce dernier ne panique pas trop lors de traitements un peu longuais - ça les rassure) :

Sauf que... selon les configurations des uns et des autres, de leur choix d'ouvrir/placer le classeur Excel sur tel ou tel écran (l'équipe dispose tous d'un double écran avec affichage étendu et certain utilise même leur laptop comme troisième écran), mon userform s'affiche toujours par défaut sur l'écran principal définit dans les paramètres Windows.

Donc pas de souci lorsque l'utilisateur à son classeur ouvert sur le moniteur déclaré comme écran principal mais c'est bof lorsqu'il a décidé de placer son classeur sur l'un des écrans secondaire.

Je souhaiterai donc pouvoir :
1- savoir sur quel écran est activé le classeur Excel qui mouline
2- forcer l'affichage de mon userform sur ledit écran

Si un éminant expert à une solution ou une voie sur laquelle je peux m'orienter, je l'en remercie par avance.

En vous souhaitant une bien agréable journée.
Franck

Le_Phénomène · 6 Novembre 2024

Bonjour,
Merci @TooFatBoy pour ton (si on peut tutoyer sur ce forum ? ) message.
En fouillant un peu plus, je suis tombé sur un message de @Lolote83 qui semble répondre à ma problématique.
Je ne l'ai pas encore complétement testé sur d'autres postes et sur les triple-écrans.
Il faut également que j'en comprenne bien le sens et l'application (histoire de progresser).
Je ne manquerai pas de clôturer cette demande asap.
Pour mémoire, ci-après son code.

VB:

Private Sub UserForm_Initialize()
    '-------------------------------------------------------- Positionnement UserForm
    Me.StartUpPosition = 0                                                  'Déclarer position MANUAL
    Me.Left = Application.Left +...

Dudu2 · Samedi à 15:48

Merci @TooFatBoy pour ton soutien.
Mon code a une certaine propension à ne pas fonctionner chez @patricktoulon.
Je sais pas pourquoi !

TooFatBoy · Samedi à 15:54

Dudu2 à dit:
Mon code a une certaine propension à ne pas fonctionner chez @patricktoulon.

C'est ta toute dernière version que j'ai testée. C'est peut-être ça la différence.
Ou alors ça vient encore de son driver vidéo à moitié moisi...

Tant que ta ressources fonctionne chez moi avec un écran normal, un driver vidéo normal, un Excel 2016 32 bits et un Windows 10 64 bits, moi, ça me va.

Dudu2 · Samedi à 16:00

C'est ta toute dernière version que j'ai testée. C'est peut-être ça la différence.

Je ne crois pas, car @patricktoulon est en VBA7 (Office 2013), donc les derniers ajustements pour les déclarations non-VBA7 ne s'appliquent pas à lui.
Par contre il est 32 bits. Alors le seul endroit où il pourrait y avoir un problème est cette déclaration prise dans ma bible des déclarations API.

VB:

    #If Win64 Then
        Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    #Else
        Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    #End If

où le 32 bits apparaît dans le #Else.
Mais franchement, je ne vois rien qui justifierait un problème à ce niveau.
J'attends donc un retour d'erreur d'où qu'il vienne pour investiguer.

patricktoulon · Samedi à 16:01

@Dudu2 ben tu avais vu les vidéo non?
c'est pas pour t'ennuyer
après c'est pas grave j'ai quelque chose de plus générique sauf que maintenant je n'en ai plus l'utilité
en tout cas comme je l'ai dit plus haut un simple set parent sur l'app fait l'affaire pas la peine d'ajouter un module supplémentaire pour mettre un message au centre de la fenêtre excel
rien n'empêche de lui redonner le style de W10 me semble til t'avoir montrer comment faire avec dwmapi.dll
@TooFatBoy mes drivers ne sont pas pourris ils fonctionne très bien
cela dit tester avec un!!!! écran normal blablabla n'a aucun intérêt entre nous
ce module a une utilité uniquement si l'on a plusieurs écrans sinon c'est prendre un tracto pour rempoter un géranium

patricktoulon · Samedi à 16:03

@Dudu2 on a la même bible

Dudu2 · Samedi à 16:25

@patricktoulon,
Oui on n'est bien d'accord que l'utilisation de d'un ressource sur les moniteurs n'a pas de grande utilité à partir du moment où le UserForm doit être affiché sur la fenêtre active. Ce serait utile dans le cas où précisément, il faudrait l'afficher sur un moniteur différent.
@Le_Phénomène a donc 2 solultions:

Soit il utilise ton option SetParent() (designe Shell32.dll) puis positionne dans le milieu de la fenêtre

VB:

Private Declare PtrSafe Function SetParent Lib "user32" (ByVal hWndChild As LongPtr, ByVal hWndNewParent As LongPtr) As LongPtrPrivate Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Private Sub UserForm_Activate()
    Dim hwnd As LongPtr
    hwnd = FindWindow(vbNullString, Me.Caption)
    SetParent hwnd, Application.hwnd
    Me.Move (Application.Width - Me.Width) / 2, (Application.Height - Me.Height) / 2
End Sub

Soit il utilise les coordonnées de la fenêtre (design dwmapi.dll) puis positionne dans le milieu de la fenêtre

Code:

Private Sub UserForm_Activate()
    Me.Move ActiveWindow.Left + (ActiveWindow.Width - Me.Width) / 2, _
            ActiveWindow.Top + (ActiveWindow.Height - Me.Height) / 2
End Sub

Dans les 2 cas il peut supprimer le Caption

TooFatBoy · Samedi à 17:21

Dudu2 à dit:
Soit il utilise les coordonnées de la fenêtre (design dwmapi.dll) puis positionne dans le milieu de la fenêtre

Toutafé. Et c'est bien ce qu'il fait :

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

Autant faire au plus simple.

Petite question au passage mon cher Dudu2 : que fait le StartUpPosition = 0 ?

Dudu2 à dit:
Dans les 2 cas il peut supprimer le Caption

Ce que tu appelles le "Caption", est-ce la Barre de titre du UserForm ?
Si oui, quel serait l'intérêt de la supprimer ?

patricktoulon · Samedi à 17:33

TooFatBoy à dit:

Toutafé. Et c'est bien ce qu'il fait :

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

Autant faire au plus simple.

Non pas si excel n'est pas afficher sur l’écran principal

TooFatBoy à dit:
Ce que tu appelles le "Caption", est-ce la Barre de titre du UserForm ?
Si oui, quel serait l'intérêt de la supprimer ?

comme expliqué plus haut si on affilie l'userform à l'app le userform est redessiné comme il est dans le VBE
c'est a dire a minima comme le thème w7 basique et ça peut ne pas plaire
ben on l'enlève on a ainsi le message affiché au centre de l'app ou quel soit dans n'importe quel ecran et
on peut plus le déplacer car pas de barre de titre et quand on bouge la fenêtre excel ben le userform suit

le tout en 3 ligne de code
c'est pas mal avec des drivers graphiques pourris non?

Dudu2 · Dimanche à 00:46

Salut les afficheurs de UserForms,

J'ai amélioré ma petite ressource de Barre de Progression Interruptible (sur option):

VBA - Barre de progression interruptible sur la base d'un UserForm

Une Barre de Progression permet de faire patienter l'utilisateur lors de traitements longs et lui donne une information sur la progression de ces traitements. Mise en œuvre très simple: A partir du fichier joint, il suffit d'importer le...

excel-downloads.com

pour y ajouter:
- le centrage par défaut dans la fenêtre active
- la possibilité de la positionner Left et Top
- la possibilité de la dimensionner en Width et Height
- la possibilité de désigner la couleur de la barre
- la possibilité de supprimer le Caption (barre de menu système de la fenêtre)

Tous les paramètres sont modifiables en cours d'exécution (à chaque appel) de la barre.

En principe ça devrait convenir à @Le_Phénomène sans avoir à trop bricoler.

Je vous mets le fichier de la ressource en copie (voir post suivant)

Dudu2 · Lundi à 09:24

Bonjour,

J'ai (encore) modifié le code de la Barre de Progression pour tirer les enseignements de ce sujet qui permet de traiter proprement le cas du retrait du Caption et le cas de son rajout après retrait.

C'est aussi dans cette ressource.

VBA - Barre de progression interruptible sur la base d'un UserForm

Une Barre de Progression permet de faire patienter l'utilisateur lors de traitements longs et lui donne une information sur la progression de ces traitements. Mise en œuvre très simple: A partir du fichier joint, il suffit d'importer le...

excel-downloads.com

Fichier: voir post suivant.

Dudu2 · Lundi à 15:14

Bonjour,

Compte tenu des dernières découvertes de ce sujet, une petite modif qui ne change rien fonctionnellement mais code un peu plus juste.

Microsoft 365 Forcer l'affichage de mon userform (barre de progression) sur l'écran où le classeur est actif (cas des doubles/triples écrans)

Le_Phénomène

XLDnaute Nouveau

Le_Phénomène

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

VBA - Barre de progression interruptible sur la base d'un UserForm

Dudu2

XLDnaute Barbatruc

VBA - Barre de progression interruptible sur la base d'un UserForm

Dudu2

XLDnaute Barbatruc

Pièces jointes

Discussions similaires