Discussion :

[mulanzia2003]

Bonjour,
je souhaiterai empêcher les utilisateurs de fermer par la croix Rouge, certains userform.
Est-ce possible ? comment et/ou par quel code ???

[SfJ5Rpw8]

oui c'est possible en passant à true le paramétre Cancel de l'action évenemetielle QueryClose ... par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim bAutoriseFermeture As Boolean
 
Private Sub UserForm_Activate()
bAutoriseFermeture = False
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 Cancel = Not bAutoriseFermeture
End Sub
 
Private Sub CommandButton1_Click()
  bAutoriseFermeture = True
  Unload Me
End Sub

le bouton CommandButton1 est la pour permettre la fermeture...

[mulanzia2003]

ok pour ton code mais moi cela ne marche pas chez moi.
J'ai mis ton code dans mon Userform !!!
Est ce la bonne place ???

Code :

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

1
2
3
4
5
6
7
 
Private Sub Accueil_Activate()
bAutoriseFermeture = False
End Sub
Private Sub Accueil_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not bAutoriseFermeture
End Sub

Merci

[SfJ5Rpw8]

il manque la ligne :

Code :

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

1
2
 
Dim bAutoriseFermeture As Boolean

à mettre tout en haut du code à ton userform ( variable globale.. )

[mulanzia2003]

non, en fait je l'ai mis aussi. Cela ne marche pas quand même. Je ne comprend pas pourquoi.

[SfJ5Rpw8]

non, en fait je l'ai mis aussi. Cela ne marche pas quand même. Je ne comprend pas pourquoi.

tu est sur de l'avoir bien mis..? ton userform s'appelle bien Acceuil..? place un point d'arrêt (F9) sur la ligne cancel=... histoire de voir si tu y passe bien lorsque tu clique sur la croix, et à ce moment la tu pourra vérifier la valeur de la variable bAutoriseFermeture

[mulanzia2003]

non cela ne marche pas quand je met un point d'arrêt.
J'ai essayer en mettant un msgbox.
Cela ne marche pas non plus.

Voilà le code que je test.
Dans la feuil1, un bouton avec :

Code :

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

1
2
3
4
 
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Puis le code rattaché à ma UserForm1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim bAutoriseFermeture As Boolean
 
Private Sub UserForm1_Activate()
bAutoriseFermeture = False
End Sub
Private Sub UserForm1_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not bAutoriseFermeture
End Sub
 
Private Sub CommandButton1_Click()
  bAutoriseFermeture = True
  Unload Me
End Sub

Merci de ton aide en tout cas

[mulanzia2003]

je te joins mon fichier vous trouverez peut être une solution!!!

[Muse31]

Bonjour,

J'ai regardé ton fichier et fais quelques test.
Mets UserForm_.... à la place de UserForm1_...
Chez moi en enlevant les "1", l'interdiction est active.

Bon courage.

[Muse31]

Re,

J'ai fais un test sur une macro que je cré et le problème est le suivant :
Mettre :

Code :

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

1
2
 
Private Sub UserForm_Activate()

et

Code :

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

1
2
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

au lieu de

Code :

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

Private Sub Accueil_Activate()

et

Code :

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

Private Sub Accueil_QueryClose(Cancel As Integer, CloseMode As Integer)

En faisant ça devrait fonctionné.

[mulanzia2003]

Excellent, tout fonctionne.
En mettant simplement UserForm, cela s'applique à tous les UserForm.
Surprenant.

Encore merci de votre aide.

[AlainTech]

D'où l'intérêt de ne jamais taper les procédures événementielles.

Il vaut bien mieux les générer en utilisants les listes déroulantes de l'éditeur en ayant sélectionné le form concerné.