Uf active ou non ?

[Nevil]

hé bien bonjour tout le monde,

Voila, je lance une Uf, mais quand elle est éxécutée, je ne peux pas me déplacer dans mon classeur Xl qui se trouve en arriere plan.

Il y a til une fonction qui me permettrait que l'Uf soit toujours éxécutée et que je puisse aussi utiliser mon classeur XL ?

Merci

 

[mutzik]

Bonjour Nevil

Oui, c'est la propriété modal de ton uf. Tu changes de true en false (ou l'inverse, je sais plus) et tu peux naviguer sur ta feuille et même sur toutes les autres appli

 

[Manu13]

Bonjour mutzik, Nevil et le Forum

on peut aussi mettre la valeur 0 à la suite de .show donc ça donne

userform1.show 0

Bonne journée à tous

@+Manu

 

[Nevil]

heuuu je ne trouve pas la propiété Modal pour mon Uf ...

Peux tu me m'indiquer où ca se trouve stp ??

 

[Nevil]

lorsque je met un '0' apres l'apel de mon Uf, ma macro plante. Apparament cette solution ne correspond pas a mes attentes lol

 

[Nevil]

je n'ai toujours pas trouvé la solution. Quelqu'un peut il m'aider ??


Merci

 

[mutzik]

Re le fil,

pour changer les propriétés de ton usf, tu vas en fenetre vba (alt + F11), tu ouvres la feuille de ton usf, click droit / propriétés sur ton usf et là tu verras une option modal ou non

 

[Nevil]

je viens de lire les archives un peu, et je m'apercoi que le mode Modal ou non d'une Uf ne fonctionne que pour XL 2000 ou superieur. Et moi je suis a 97. j'ai trouvé ca aussi expres pour XL 97 mais je n'arrive pas a m'en servir:

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

 

[pierrejean]

bonjour nevil

vois si ce test est concluant

il a été réalisé sous 2000 [file name=nevil.zip size=29871]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nevil.zip[/file]

 

[Nevil]

oui il est réalisé sous 2000 donc c'est normal que dans le comportement il y ai ShowModal. Mais sur le 97 il n'y est pas. Apart avec des API mais ca, je n'y connais rien

 

[CB60]

bonjour à tous

le fichier joint été sur le forum il y a peu de temps, il transforme en excel 97 les USF en modal.
bonne réception
Bruno [file name=USFnonModal97.zip size=11546]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USFnonModal97.zip[/file]

 

[Nevil]

Merci mec, ca m'a pris du temps, mais je tiens enfin la solution.

Encore merki

 

[Eric C]

Bonjour le forum
Bonjour à toutes & à tous (trop de monde et je suis au bureau donc ....)

Je pense que le fil de CB60 doit être le bon mais je n'ai pas EXCEL ici donc je me lance ...
Le sujet a été traîté il y a peu Lien supprimé.

Bonne après-midi à toutes & à tous

Message édité par: Eric C, à: 21/02/2006 14:30

 

[Nevil]

oui j'avais trouvé ce fil mais je ne le comprenais absolument pas. Maintenant que j'ai vu une application toute simple, j'ai pu l'adapter a mon code. Ce qui marche du feu de Dieu.

En tout cas merci a tous