Code userform interrompu

Bonjour olivier 🙂

Pourtant, la solution passe bien par l'affichage non modal de tes 2 usf.

encore faut-il savoir comment tu as précisé cette propriété.

pour excel97, il existe une procédure particulière expliquée dans ce post.

Lien supprimé

salut

Salut,
j'utilise ce code de S.Bullen, trouvé sur ce forum :

Option Explicit ' (USERFORM NON-MONDAL sous XL97 De Stephen Bullen)

Private Declare Function FindWindowA Lib 'User32' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function EnableWindow Lib 'User32' _
(ByVal hWnd As Long, ByVal bEnable As Long) As Long

Private Declare Function GetWindowLongA Lib 'User32' _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib 'User32' _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Sub UserForm_Activate()
EnableWindow FindWindowA('XLMAIN', Application.Caption), 1
End Sub

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub

Ce code est présent sur mes 2 userforms, mais bloque toujours le code. Peut-etre y a t'il une option à cocher dans Excel ?

Merci bcp pour ton aide 🙂

Bon après midi