Désactiver les msgbox

Bonjour,

J'ai créé un userform avec différents champs à renseigner.
Pour éviter les erreurs de saisie pour un numéro de téléphone, j'ai créé une msgbox avec le code suivant :

Code:

---

1 2 3 4 5 6 7

Private Sub Txt_teleph1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(Txt_teleph1) <> 10 Then MsgBox "Vous devez saisir 10 chiffres" Cancel = True Exit Sub End If End Sub

---

Cela fonctionne très bien.
Je voudrais désactiver ce message quand j'appuie sur le bouton "ANNULER" ou sur la croix de mon Userform.
En effet, pour le moment, après avoir appuyé sur le bouton "ANNULER" ou appuyé sur la croix, la msgbox apparaît avec mon message "vous devez saisir 10 chiffres".

Merci d'avance

Bonsoir Écureuil, bonsoir le forum,

Essaie l'instruction End. Tant sur le bouton Annuler et sur l'événement QueryClose de l'UserForm.

Super, merci beaucoup : ça marche.