Fermeture d'une Userform

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 :mouarf: merci d'avance

Shuki :ccool:

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:

---

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

---

:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P
Merci Jerome de ton message

Je teste au plus vite
bonne journée

Shuki :ccool:

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

Code:

---

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

Bonsoir

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

hic : :mouarf: 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 :calim2: 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 :ccool: