Garder un Userform visible

Version imprimable

10/01/2016, 11h02
anasecu

Garder un Userform visible

Bonjour,

J'ai créé un formulaire qui réagit à certains événements,
et qui fournit des informations en résultat.

Comme sa taille est assez réduite, j'aimerais savoir s'il est possible
de le remettre visible sur les autres applications,
lorsque une nouvelle information est affichée.

En remerciant par avance ceux qui me fourniront une piste.

HEU

Bonjour
FAIT UN RECHERCHE SUR LES APIS WINDOW
tiens ca fesait longtemp que je ne l'avais pas utiliser je l'ai retrouvé pour (64/32) bits
met en haut du module de ton userform

Code:

1
2
3
4
5
6
7
8
9
#If vba7 Then
Private Declare ptrsafe 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 Declare  ptrsafe Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
 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 Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

et dans le initialise ou activate tu fait comme ceci

Code:

1
2
3
Private Sub UserForm_Initialize()
 SetWindowPos FindWindowA(vbNullString, Me.Caption), -1, 0, 0, 0, 0, 3
 End Sub

10/01/2016, 16h27
Docmarti
Citation:

Envoyé par anasecu

Comme sa taille est assez réduite, j'aimerais savoir s'il est possible
de le remettre visible sur les autres applications,
lorsque une nouvelle information est affichée.

AppActivate pourrait faire cela :
Code:

1 2 3 4 5 Private Sub Worksheet_Change(ByVal Target As Range) AppActivate UserForm1.Caption End Sub
10/01/2016, 18h56
anasecu

Bonjour à tous,

Citation:

Envoyé par patricktoulon

FAIT UN RECHERCHE SUR LES APIS WINDOW

J'ai beaucoup cherché, beaucoup testé (comme AppActivate de Docmarti par exemple,
mais pas de formulaire visible) et pas trouvé... ;-)

Citation:

met en haut du module de ton userform et dans le initialise ou activate tu fait comme ceci

Code:

SetWindowPos FindWindowA(vbNullString, Me.Caption), -1, 0, 0, 0, 0, 3

Bravo patricktoulon, toi tu as trouvé la bonne API et c'est parfait !!!

Un très grand merci et une bonne année 2016.