[VBA-E]utiliser annuler d'une imputBox
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:
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