probleme fermeture croix userform

[zesuila]

Bonjour
Suite à une recherche j'ai trouvé ce code pour éviter de fermer un userform par la croix

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

Cela fonctionne mais comme je voulais mettre un message d'info j'ai mis cela :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
MsgBox ("non pas par là, on clic sur le bouton BYE")
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

Cela fonctionne aussi SAUF que cela fonctionne pour 3 userforms sur 5 alors que je ne le veux que pour un seul !!le principal (son nom : menu) alors qu'il est bien à sa place dans vba

Que se passe t il ?

 

[Orodreth]

Re : probleme fermeture croix userform

Jour Zesuila (scuse, pas trop réveillé là 🙁 )

Euh là comme ça, je sais pas. Tu aurais pas un classeur exemple ?

Sinon, tu peux faire ça:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu And me.name = "[B]LeNomDeTonFormulaire[/B]" Then 
Cancel = True
MsgBox ("non pas par là, on clic sur le bouton BYE")
end if
End Sub

Après, j'sais pas, pas du tout réveillé.
Cordialement,
Thomas

 

[zesuila]

Re : probleme fermeture croix userform

Eh bien Même pas réveillé, ta solution me convient. Merci😎
Allez un petit café, un croissant et hop c'est parti pour une bonne journée !

 

[Orodreth]

Re : probleme fermeture croix userform

Ah bah tant mieux.

Trop tard pour café/croissant, suis déjà au boulot 🙁