Discussion :

[Shuki]

Bonjour

Je voudrai supprimer ou inhiber la petite croix qui se trouve en haut à droite d'une Userform et qui sert à fermer celle ci . Je prefere que cette fermeture ne se fasse que via un bouton.

Si vous connaissez la manip ou une astuce pour arriver à supprimer ou desactiver cette petite croix ce serait super merci d'avance

Shuki

[jfontaine]

Bonjour,

Tu ne peux pas, a ma connaissance, ne pas afficher le croix de fermeture.
Par contre, ce code t'oblige a passer par le bouton CommandButton1 pour fermer le userform

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim BolFermeture As Boolean
 
Private Sub CommandButton1_Click()
 
BolFermeture = True
Unload Me
 
End Sub
 
Private Sub UserForm_Initialize()
BolFermeture = False
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
If BolFermeture = False Then Cancel = True
 
End Sub

[Shuki]

Merci Jerome de ton message

Je teste au plus vite
bonne journée

Shuki

[diude54]

Il y a plus simple: CloseMode=0 correspond à la demande de fermeture de l'userform via la croix.

Code :

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

1
2
3
4
5
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
If CloseMode=0 Then Cancel = True
 
End Sub

Edit: Un lien, regardes page 21:
ftp://ftp-developpez.com/silkyroad/V...m/UserForm.pdf

[Shuki]

Bonsoir

Un grand merci à diude54 et Jfontaine pour ces 2 solutions qui fonctionnent à merveille.

hic : Pressé de tester j'avais lancé la procédure avant de créer un bouton pour fermer je m'en suis sorti en fermant excel via Ctrl ALt supp Fin de tâche du programme
Par curiosité mais ne pas se prendre la tête savez vous s'il y a un autre moyen car la Userform affichée ne pouvait se fermer via la petite croix et tout excel était bloqué.
Et merci pour ces 2 bonnes réponses à ma demande initiale c'est super

Bon Dimanche
Shuki