vba et quitter useform

[Adeline]

bonsoir,

dans un useform, j'ai un combobox avec une liste de valeur.

je voudrais, lors d'un clic sur une valeur quitter le useform et faire apparaitre un autre useform

sub combobox_click

unload me 'ne marche pas
useform.show = false ' ne marche pas

est ce que quelque chose pourrait marcher ?

merci à toutes les bonnes volontés.

 

[lio]

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

 

[Adeline]

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

 

[lio]

Re,

Ton code bug a quel niveau ?

 

[Hellboy]

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.

 

[Adeline]

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!