Demande :
Je souhaiterai pouvoir afficher soit une feuille de classeur, soit une boîte
de saisie et la laisser toujours en premier plan, même si je travaille dans
une feuille Excel.
But :
Afficher une sorte de mémo technique en permanance sur l'écran, lorsque l'on
travaille sur Excel. Bien sûr ce mémo doit être déplacable à volonté.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Roland
Merci de cette réponse. Je vais essayer.
"MichDenis" a écrit dans le message de news: %23V%
Au début du module du premier UserForm :
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
Private Sub UserForm_Initialize() SetWindowPos FindWindowA("ThunderDFrame", Me.Caption), _ -1, 0, 0, 0, 0, 3 End Sub
Inconvénient : le UserForm reste affiché au premier plan... y vompris en dehors d'Excel.
"rlapt1" a écrit dans le message de news: Bonjour,
Demande : Je souhaiterai pouvoir afficher soit une feuille de classeur, soit une boîte de saisie et la laisser toujours en premier plan, même si je travaille dans une feuille Excel.
But : Afficher une sorte de mémo technique en permanance sur l'écran, lorsque l'on travaille sur Excel. Bien sûr ce mémo doit être déplacable à volonté.
Merci de votre aide.
Merci de cette réponse.
Je vais essayer.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23V%23i3iD3IHA.5088@TK2MSFTNGP03.phx.gbl...
Au début du module du premier UserForm :
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
Private Sub UserForm_Initialize()
SetWindowPos FindWindowA("ThunderDFrame", Me.Caption), _
-1, 0, 0, 0, 0, 3
End Sub
Inconvénient : le UserForm reste affiché au premier plan... y vompris en
dehors d'Excel.
"rlapt1" <rlapt1@discussions.microsoft.com> a écrit dans le message de
news: 3ADFA461-73F3-4DC2-805D-F6DD48CBCB8C@microsoft.com...
Bonjour,
Demande :
Je souhaiterai pouvoir afficher soit une feuille de classeur, soit une
boîte
de saisie et la laisser toujours en premier plan, même si je travaille
dans
une feuille Excel.
But :
Afficher une sorte de mémo technique en permanance sur l'écran, lorsque
l'on
travaille sur Excel. Bien sûr ce mémo doit être déplacable à volonté.
"MichDenis" a écrit dans le message de news: %23V%
Au début du module du premier UserForm :
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
Private Sub UserForm_Initialize() SetWindowPos FindWindowA("ThunderDFrame", Me.Caption), _ -1, 0, 0, 0, 0, 3 End Sub
Inconvénient : le UserForm reste affiché au premier plan... y vompris en dehors d'Excel.
"rlapt1" a écrit dans le message de news: Bonjour,
Demande : Je souhaiterai pouvoir afficher soit une feuille de classeur, soit une boîte de saisie et la laisser toujours en premier plan, même si je travaille dans une feuille Excel.
But : Afficher une sorte de mémo technique en permanance sur l'écran, lorsque l'on travaille sur Excel. Bien sûr ce mémo doit être déplacable à volonté.