Comment fait ton pour fermer une userform

[bichon]

Salut j'aimerai savoir le code pour fermer une userform et non pas la cacher
mais la fermer comment ce code pourrait s'ecrire merci

bichon

 

[petchy]

salut
essaye ça

userform1.Hide
le chiffre correspond à ton userfom

@ plus
petchy

 

[bichon]

merci petchy mais c'est pas du tout ce que je veux
je ne veux pas la cacher mais la fermer
comme si t'appuyer sur la petite croix
mais je veux le code
voila merci

 

[schmail]

Salut Bichon , Petchy et le Forum

Avec Unload UserForm1 @+

 

[bichon]

merci petchy

 

[helder]

dans le meme ordre d'idée, je cherche à désactiver l'icone fermer de mon userform pour qu'on ne puisse le fermer qu'avec un bouton spécial

 

[petchy]

Le Forum
Helderregarde si ça te va, tu supprime la croix pour la fermeture de ton USF mais n'oublis pas de lui mettre un bouton de commande pour fermé
ENLEVER LA CROIX DU USF
Option Explicit

Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Sub UserForm_Initialize()
Dim hWnd As Long
'''''''''''initialisation des controles

'enlève la croix
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub

 

[petchy]

Bonsoir le Forum,
regarde se site il y a plein d'astuces.


Ce site n'existe plus

 

[helder]

Merci beaucoup.
C'est parfait.

 

[capello]

Bonjour le Forum

Petite démo de ma part et solution du code de Thierry

salut

Longue vie au Forum

A+CAPELLO