zesuila
XLDnaute Occasionnel
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 ?
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 ?