bonjour tout le monde
j'ai un petit probleme avec le clik sur annuler d'une imputbox
j'utilise une imputbox dans un sous programme et j'aimerai que lorsque je click sur annuler il m'envoie a la fin de mon programme principale qui lui et constituer d'une succesion de sous programme.
voila comment je m'y prend
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
20
21
22
23
24
25
26
 
function choix rang
..
4:  nhar = InputBox("nombre de rang voulu ?", "choix du rang", "nbr d'harmonique", 6500, 6000)
If nhar = "" Then
    conf = MsgBox("annuler vous fera quitter l'apllication.voulez vous vraiment quitter?", vbYesNo + vbCritical, "fin d'application")
        If conf = 6 Then
            cancel = True
            GoTo fin
        Else
            GoTo 4
        End If
End If
.....
fin:
end function
 
sub PP
...
choixrang
    If cancel Then
        GoTo fin
    End If
...
fin: msg box"application termine"
end PP
nhar est un integer
cancel est un boolean

mais maintenant, lorsque je rentre une valeur dans mon inputbox ou si je fait annuler, excel ne comprend pas If nhar = "" Then
rassurez moi la variable prend bien la valeur nul ("") quand on clik sur annuler
si oui je ne comprend pas mon erreur

merci de votre attention