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
PMO
Bonjour, Dans la version Excel 97 il n'existait pas la possibilité de rendre non modal un userform. De ce fait, et si c'est bien de cela qu'il s'agit, les constantes vbModeless et vbModal ne peuvent y être utilisées. Le userform est modal par défaut.
Cordialement.
PMO Patrick Morange
-----Message d'origine----- Bonjour, Quelqu'un sait-il ce qui correspondrait à vbmodeless en excel 97 ?
Merci d'avance
Jean-Marie
.
Bonjour,
Dans la version Excel 97 il n'existait pas la
possibilité de rendre non modal un userform.
De ce fait, et si c'est bien de cela qu'il s'agit,
les constantes vbModeless et vbModal ne peuvent y être
utilisées. Le userform est modal par défaut.
Cordialement.
PMO
Patrick Morange
-----Message d'origine-----
Bonjour,
Quelqu'un sait-il ce qui correspondrait à vbmodeless en
excel 97 ?
Bonjour, Dans la version Excel 97 il n'existait pas la possibilité de rendre non modal un userform. De ce fait, et si c'est bien de cela qu'il s'agit, les constantes vbModeless et vbModal ne peuvent y être utilisées. Le userform est modal par défaut.
Cordialement.
PMO Patrick Morange
-----Message d'origine----- Bonjour, Quelqu'un sait-il ce qui correspondrait à vbmodeless en excel 97 ?
Merci d'avance
Jean-Marie
.
Jean-Marie GILTAIRE
Merci.
"PMO" a écrit dans le message de news:03f401c3bb2c$7d728c40$ Bonjour, Dans la version Excel 97 il n'existait pas la possibilité de rendre non modal un userform. De ce fait, et si c'est bien de cela qu'il s'agit, les constantes vbModeless et vbModal ne peuvent y être utilisées. Le userform est modal par défaut.
Cordialement.
PMO Patrick Morange
-----Message d'origine----- Bonjour, Quelqu'un sait-il ce qui correspondrait à vbmodeless en excel 97 ?
Merci d'avance
Jean-Marie
.
Merci.
"PMO" <anonymous-patrick.morange@interstat.fr> a écrit dans le message de
news:03f401c3bb2c$7d728c40$a001280a@phx.gbl...
Bonjour,
Dans la version Excel 97 il n'existait pas la
possibilité de rendre non modal un userform.
De ce fait, et si c'est bien de cela qu'il s'agit,
les constantes vbModeless et vbModal ne peuvent y être
utilisées. Le userform est modal par défaut.
Cordialement.
PMO
Patrick Morange
-----Message d'origine-----
Bonjour,
Quelqu'un sait-il ce qui correspondrait à vbmodeless en
excel 97 ?
"PMO" a écrit dans le message de news:03f401c3bb2c$7d728c40$ Bonjour, Dans la version Excel 97 il n'existait pas la possibilité de rendre non modal un userform. De ce fait, et si c'est bien de cela qu'il s'agit, les constantes vbModeless et vbModal ne peuvent y être utilisées. Le userform est modal par défaut.
Cordialement.
PMO Patrick Morange
-----Message d'origine----- Bonjour, Quelqu'un sait-il ce qui correspondrait à vbmodeless en excel 97 ?
Merci d'avance
Jean-Marie
.
Denis Michon
Bonjour Jean-Marie,
Tu peux toujours utiliser ceci dans ton formulaire pour obtenir l'effet que tu désires. Et dans la procédure "Private Sub UserForm_Initialize()", prend soin de définir le nom de formulaire correctement.
Laurent Longre est l'initiateur de cette approche
'Dans le haut de ton formulaire ; Déclaration des API Option Explicit 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, Userform1.Caption) SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub '--------------------
Salutations!
"Jean-Marie GILTAIRE" a écrit dans le message de news:3fd072f4$0$5468$ Bonjour, Quelqu'un sait-il ce qui correspondrait à vbmodeless en excel 97 ?
Merci d'avance
Jean-Marie
Bonjour Jean-Marie,
Tu peux toujours utiliser ceci dans ton formulaire pour obtenir l'effet que tu désires.
Et dans la procédure "Private Sub UserForm_Initialize()", prend soin de définir le nom de formulaire correctement.
Laurent Longre est l'initiateur de cette approche
'Dans le haut de ton formulaire ; Déclaration des API
Option Explicit
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, Userform1.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub
'--------------------
Salutations!
"Jean-Marie GILTAIRE" <jmgiltaire@clinsudlux> a écrit dans le message de
news:3fd072f4$0$5468$ba620e4c@reader3.news.skynet.be...
Bonjour,
Quelqu'un sait-il ce qui correspondrait à vbmodeless en excel 97 ?
Tu peux toujours utiliser ceci dans ton formulaire pour obtenir l'effet que tu désires. Et dans la procédure "Private Sub UserForm_Initialize()", prend soin de définir le nom de formulaire correctement.
Laurent Longre est l'initiateur de cette approche
'Dans le haut de ton formulaire ; Déclaration des API Option Explicit 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, Userform1.Caption) SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub '--------------------
Salutations!
"Jean-Marie GILTAIRE" a écrit dans le message de news:3fd072f4$0$5468$ Bonjour, Quelqu'un sait-il ce qui correspondrait à vbmodeless en excel 97 ?
