vba et quitter useform

L

lio

XLDnaute Occasionnel

• 23 Mai 2006

• #2

Salut adeline
Edition: Unload Me marche aussi
Voir fichier [file name=Test_20060523210949.zip size=10954]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20060523210949.zip[/file]

Message édité par: lio, à: 23/05/2006 21:13

 

Pièces jointes

• Test_20060523210949.zip

  10.7 KB · Affichages: 19

Vote positif 0 Vote négatif

A

Adeline

Guest

• 23 Mai 2006

• #3

merci... mais ca ne marche toujours pas

le pb vientil du fait de mon code d'initialisation ?

Private Sub UserForm_Initialize()
Dim hWnd As Long, exLong As Long, zFactor As Integer
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
zFactor = 100 * CInt(Application.Width / Me.Width)
If zFactor > 400 Then zFactor = 400
Me.Width = Application.Width
Me.Height = Application.Width
Me.Zoom = zFactor
End Sub

 

Vote positif 0 Vote négatif

L

lio

XLDnaute Occasionnel

• 23 Mai 2006

• #4

Re,

Ton code bug a quel niveau ?

 

Vote positif 0 Vote négatif

H

Hellboy

XLDnaute Accro

• 23 Mai 2006

• #5

Bonsoir a tous

Unload Me fonctionne très bien.

Tu présente un joli bout de code qui fait appel a des fonction API, mais ont ne voit pas le reste. Il est difficile de répondre a ton deuxième post.

 

Vote positif 0 Vote négatif

A

Adeline

Guest

• 25 Mai 2006

• #6

bonsoir

merci de vous etre penché sur mon pb...

que j'ai résolu j'avais une fonction intermediare qui 'derangeait' et je devais etre un peu derangée aussi!

rien a voir avec mon initialize!

 

Vote positif 0 Vote négatif