Userform toujours visible en bas à droite

Version imprimable

Bonjour,
Avez-vous un code pour placer un Userform en bas à droite de l'écran ? et qu'il soit toujours visible !

Mon code s’exécute sous EXCEL mais je pilote WORD et j'ai besoin que mon userform NON MODAL soit au dessus de WORD.

Mon code ne fonctionne pas très bien, et pas bien du tout avec XL2016 et W10
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub UserForm_Initialize() Stop_Macro = False mlHwnd = FindWindow("ThunderDFrame", Me.caption) 'Change to match your userforms caption Do While mlHwnd = 0 mlHwnd = FindWindow("ThunderDFrame", Me.caption) 'Change to match your userforms caption DoEvents Loop positionH = application.Height - Me.Height positionW = application.Width - Me.Width Me.Left = positionW Me.Top = positionH SetWindowPos mlHwnd, -1, 0, 0, 0, 0, &H2 Or &H1 End Sub

20/09/2017, 15h30
BENNASR

bonsoir
voir ça peut être c'est utile

Citation:

http://silkyroad.developpez.com/VBA/UserForm/

Salut Oliv-,

Essaie ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" ( _
                 ByVal hwnd As Long, _
                 ByVal hWndInsertAfter As Long, _
                 ByVal x As Long, _
                 ByVal y As Long, _
                 ByVal cx As Long, _
                 ByVal cy As Long, _
                 ByVal wFlags As Long) As Long
 
Private Sub UserForm_Activate()
    Stop_Macro = False
    mlHwnd = FindWindow("ThunderDFrame", Me.Caption)    'Change to match your userforms caption
    positionH = Application.Height - Me.Height
    positionW = Application.Width - Me.Width
    Me.Left = positionW
    Me.Top = positionH
End Sub
 
Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0
End Sub

21/09/2017, 10h29
Oliv-

Bonjour

MERCI à vous 2 je vais tester sur mon poste en W10.