Fermer une InputBox

Bonjour,

J'ai réalisé une UserForm, dans laquelle j'ai écris un code permettant d'afficher à la suite une InputBox lorsque je sélectionne "Valider".

Cette InputBox me permet de saisir une valeur pour la suite de mon projet, cependant si je met "Annuler" à cette InputBox, elle refuse de se fermer. A la place apparait un message d'erreur que j'ai créé en cas que l'utilisateur entre une mauvaise valeur dans l'InputBox.

Comment faire marcher le bouton "Annuler" de mon InputBox ?

Le code de mon userform est le suivant, et N est l'InputBox en question.

Private Sub CommandButton1_Click()

    If Proctor.Value = True Then  'Permet d'afficher si l'essai est Proctor ou CBR
        Range("F5") = "Proctor"
    ElseIf OptionButton2.Value = True Then
        Range("F5") = "CBR"

    End If

    If OptionButton3.Value = True Then  'Permet d'afficher si l'essai est normal ou modifié
        Range("J5") = "Normal"
    ElseIf OptionButton4.Value = True Then
        Range("J5") = "Modifié"
    End If

    Unload Me

    N = InputBox("Combien y a t-il d'essais entre 1 et 5 ?") 'InputBox demandant le nombre d'essais

    If N < 0 Or N > 5 Then

        While N < 0 Or N > 5

            N = InputBox("Erreur, entrez un nombre d'essais entre 1 et 5")

        Wend

    End If

Cordialement,

Carla

Carla, le forum,

Au tout début de la macro, ajoute : On error resume next

Cela devrait gérer l'erreur quand tu cliques sur le bouton Annuler.

LaCéline

laceline a écrit :

Carla, le forum,

Au tout début de la macro, ajoute : On error resume next

Cela devrait gérer l'erreur quand tu cliques sur le bouton Annuler.

LaCéline

J'ai marqué "On Error Resume Next" sous "Private Sub CommandButton1_Click()" mais ça ne marche pas, avant je ne peux pas le placer puisque ce n'est pas dans une procédure.

Où dois-je l'écrire ?

Merci

Carla, le forum,

Désolée, je n'avais pas testé.

Ceci devrait fonctionner :

N = InputBox("Combien y a t-il d'essais entre 1 et 5 ?") 'InputBox demandant le nombre d'essais
If N = "" Then Exit Sub   ' ou tout autre traitement désiré.

LaCéline

laceline a écrit :

Carla, le forum,

Désolée, je n'avais pas testé.

Ceci devrait fonctionner :

N = InputBox("Combien y a t-il d'essais entre 1 et 5 ?") 'InputBox demandant le nombre d'essais
If N = "" Then Exit Sub   ' ou tout autre traitement désiré.

LaCéline

Super ça marche !

Merci beaucoup pour cette aide !!!