Discussion :

[tomy7]

bonsoir,
ou faut il mettre ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Private Declare Function FindWindowA& Lib "User32" _
    (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function EnableWindow& Lib "User32" _
    (ByVal hWnd&, ByVal bEnable&)
Private Declare Function GetWindowLongA& Lib "User32" _
    (ByVal hWnd&, ByVal nIndex&)
Private Declare Function SetWindowLongA& Lib "User32" _
    (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
 
 
Private Sub UserForm_Initialize()
    Dim hWnd As Long
 
    hWnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub
 
 
Private Sub UserForm_Activate()
    Dim hWnd As Long
 
    hWnd = FindWindowA("XLMAIN", Application.Caption)
    EnableWindow hWnd, 1
End Sub

c est le faq de silkyroad.

j ai essaye de le mettre dans

Private sub Userform_click ()
end Sub

rien a faire cela ne fonctionne pas

silkyroad dis de mettre sa dans le module Objet mais je ne sais pas ce que c est?

merci

[fring]

Et pourquoi le mettre dans l'évènement Private sub Userform_click () ?

Le code de Silky fonctionne à merveille, faut simplement le coller tel quel dans la page de code de ton userform mais pas dans un évènement.

[tomy7]

yes j ai piger sa apres avoir fais poster cette question!!!

merci quand meme fring