Croix Userform

[Bruno]

Bonjour a tous,

Voici ma question car la fonction recherche ne fonctionne pas pour le moment.

Comment faire pour empecher la fermeture d'un Userform par la croix ?

Merci de votre aide

@+

 

[MG]

Salut Bruno,

met cette procédure dans ton UserForm et voilà

'*
'La procédure événementielle (UserForm_QueryClose)suivante
'ne permet pas à l'utilisateur de fermer le UserForm en
'cliquant sur le bouton FermetureX).On envoie un message
'----------------------------------------------------------
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Si ce message s'affiche, C'est que cette" _
& vbCrLf & "commande ne peut être exécutée pour " _
& vbCrLf & "sortir utiliser le bouton Quitter", _
vbOKOnly + vbCritical, "Fin de la commande"
Cancel = True
End If
End Sub

@+