Discussion :

[cufy59]

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

[mordrhim]

remplace voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If nhar = "" Then

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If nhar = Empty Then

normalement ca devrait regler ton problème sinon j'en appelle aux meilleurs que moi ^^

[ouskel'n'or]

Sinon, tu fais F1 sur InputBox et tu as tous les renseignements. Mais pour ça, il faut que tu aies F1 sur ton clavier...

[cufy59]

je vous remercie de vos reponses
empty marche tres bien
mais j'avais une autre erreur en fait il faut declarer nhar comme un string et non comme un integer
du moins en faisant cette manipulation mon programme fonctionne.

encore merci
bonne journee
a+