Comment rendre le UserForm indépendant ?
Résolu2 réponses
ucfoutu
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
211
Modifié par ucfoutu le 21/06/2016 à 07:11
Modifié par ucfoutu le 21/06/2016 à 07:11
Bonjour,
- Je déplace cette discussion vers le sous-forum (VBA) où elle aurait dû être ouverte. Prends s'il te plait dorénavant ce soin toi-même.
- ouvre ton aide VBA sur les mots suivants :
Load
Unload
Show
Hide
cette lecture t'apportera tes réponses ....
EDIT : tu as également la possibilité (mais alors plus rien à voir avec des connaissances en VBA) d'intervenir directement sur la fenêtre de ton userform, en utilisant des fonctions de l'Api de Windows, comme je le fais ici :
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
- Je déplace cette discussion vers le sous-forum (VBA) où elle aurait dû être ouverte. Prends s'il te plait dorénavant ce soin toi-même.
- ouvre ton aide VBA sur les mots suivants :
Load
Unload
Show
Hide
cette lecture t'apportera tes réponses ....
EDIT : tu as également la possibilité (mais alors plus rien à voir avec des connaissances en VBA) d'intervenir directement sur la fenêtre de ton userform, en utilisant des fonctions de l'Api de Windows, comme je le fais ici :
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private iStyle As Long
Private hWnd As Long
Private maform As Object
Sub toto()
hWnd = FindWindow(vbNullString, maform.Caption)
iStyle = GetWindowLong(hWnd, -16) Or &H70000
SetWindowLong hWnd, -16, iStyle
End Sub
Private Sub UserForm_Initialize()
Set maform = Me
toto
End Sub
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
