Version antérieure à xls 2000

[Nathalie]

Re-Bonjour,

Est-ce que quelqu'un parmis vous peut me dire si le code suivant fonctionne sur des versions antérieures à excel 2000, si oui à partir de laquelle :
"Userform1.Show vbModeless", en fait l'affichage non modal d'un USF est-il possible sur des versions antérieure à celle de 2000

Merci à tous

 

[Benoit Cornille]

Salut,

Suivant les infos que j'ai, c'est une nouveauté avec Excel 2000. Donc ...

Benoit,

Longue vie et prospère.

 

[Alain]

Bonjour,

Jusqu'à Excel 97, un USF est toujours modal.

@+.

 

[Max]

Salut Nathalie,

en effet sur les versions antérieures à 2000, l'affichage non modal d'un USF n'est pas disponible dans les pptées. Mais place ceci dans la partie déclaration du code de ton userform et ça devrait marcher. (Sous excel 97 ça marche). J'ai trouvé ça sur disciplus.simplex.free.fr, une mine d'or pour les amateurs de vba.

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

 

[Nathalie]

C'est bien ce que je pensais me souvenir, en revanche sais-tu si les codes ID sont identique sur chaque version, plus particulièrement la 30007

Merci encore et bonne journée

 

[Nathalie]

Merci beaucoup, mais je t'avoue que je comprend pas grand chose, ça commence à devenir compliqué pour moi...Je pense que je vais le recopier tel quel dans le module de code du USF

Bonne journée et merci pour le site en question


Nath

 

[@+Thierry]

Bonjour Nathalie, Max et le Forum


En tapant "Non Modal 97" dans le moteur de recherche de ce Forum on trouve cette API qui si je ne m'abuse est de Stephen Bullen.

Il a été confirmé que cette API fonctionne bien sur XL 97, maintenant il faut juste faire attention aux versions de Windows.

Bonne Après midi
@+Thierry