Discussion :

[anasecu]

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.

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[anasecu]

Bonjour à tous,

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é... ;-)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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.

[Docmarti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
 AppActivate UserForm1.Caption
 
End Sub