Uf active ou non ?

mutzik

XLDnaute Barbatruc

• 21 Février 2006

• #2

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

 

Vote positif 0 Vote négatif

M

Manu13

XLDnaute Occasionnel

• 21 Février 2006

• #3

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

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 21 Février 2006

• #4

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

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

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 21 Février 2006

• #5

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

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 21 Février 2006

• #6

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


Merci

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 21 Février 2006

• #7

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

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 21 Février 2006

• #8

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:

Code:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 21 Février 2006

• #9

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]

 

Pièces jointes

• nevil.zip

  29.2 KB · Affichages: 13
• nevil.zip

  29.2 KB · Affichages: 12
• nevil.zip

  29.2 KB · Affichages: 9

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 21 Février 2006

• #10

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

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 21 Février 2006

• #11

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]

 

Pièces jointes

• USFnonModal97.zip

  11.3 KB · Affichages: 34
• USFnonModal97.zip

  11.3 KB · Affichages: 26
• USFnonModal97.zip

  11.3 KB · Affichages: 26

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 21 Février 2006

• #12

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

Encore merki

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 21 Février 2006

• #13

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

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 21 Février 2006

• #14

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

 

Vote positif 0 Vote négatif