Discussion :

[Infopassion]

Bonjour, je viens de regarder sur plusieurs forum et l'aide vba, mais je ne trouve pas la réponse à mon problème. Lorsque l'utilisateur quitte avec "la croix" l'application, un msgbox lié à un sub s'affiche. Comment faire pour arrêter le sub ou empêcher l'affichage du msgbox dans : Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Merci pour vos réponses

[Jean-Philippe André]

Salut,

quel est le code en question stp ?

[Infopassion]

Salut, la partie de mon code qui bloque est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub nomv_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim compt As Integer
For i = 1 To Len(nomv)
    If Mid(nomv, i, 1) = " " Then
    compt = compt + 1
    End If
Next
If nomv <= 3 Or compt <> 1 Then
MsgBox " Il faut qu'il y et un seul espace et au moins 3 caractères ", vbCritical
Cancel = True
End If
End Sub

Si l'utilisateur clic sur la croix pour fermer l'application, l'application se ferme et le msgbox s'affiche. J'aimerai qu'il ne s'affiche pas.

[unparia]

Bonjour
Gère cela à l'aide de l'évènement QueryClose de ton Userform et une variable booléenne (appelons-la toto) déclarée dans la partie déclarative du module de code
Ecris-y que si on ferme, cette variable toto prend la valeur true
Et dans l'évènement exit de ta textbox, dis que si toto = True tu quittes la sub (exit sub)

[Infopassion]

Merci pour les informations, mon code fonctionne maintenant