Definir un Unserform.show en non modal ?

[Creepy]

Bonjour all,

Je viens de créer une petite progressbar qui s'affiche à l'ouverture de mon fichier excel, car celui ci est gros à initialiser.

Je me suis dit que cela ferait patienter l'utilisateur.

Mon probleme est que j'avais mis directement comme en VB, un userform.show 1, pour que celle-ci soit non modale et que le code de ma procedure Worksheet_initialize se charge pendant l'affichage de ma progressbar.

Mais sous Excel il n'y a pas à priori de possibilité de définir une fonction show modale ou non !!

Auriez une solution pour contourner le problème, car sinon cella n'est pas d'un grand interet s'il faut attendre la fin de la progressbar et se retaper l'attente de l'initialisation de mon fichier.

Merci d'avance

Creepy

 

[Ti]

dans les propriétés du userform, depuis VBA, il y a aussi une propriété Modal, que tu peux à mettre à True ou False et voilà.

 

[Creepy]

Désolé je ne vois pas cette propriété, ou alors pas dans la version Excel 97 !!

Ou encore elle n'a pas ce nom là !

Creepy

 

[@Christophe@]

Bonjour Creepy

Normal, la propriété modal n'existe que après excel 97

Mais il existe pour 97 un code à mettre dans ton userform pour le rendre modal.

Voici le code:

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


Bonne journée

@Christophe@

 

[Creepy]

Salut all,

Désolé mais cela ne semble pas fonctionner

Le code est bon, mais a priori j'ai quand même des instructions de mon workbook initialize qui s'execute après.

Et là je dois bien avouer que je ne comprends pas grand chose au code.

C'est peut être à cause de la progressbar qui boucle ??

Une idée ??

Merci d'avance

Creepy