[VBA-E]probleme avec une InputboxRésolu

Question

bonjour a tous

je suis novice dans la programmation en VBA-E et je suis confronter a un petit probleme

Mon programme principale est constituer d'une succesion de sous programme (desoler pour les accent mais le clavier QWERTY l'oblige) 

Or dans un de mes sous programme j'ai une Inputbox qui me donne le choix entre OK et ANNULER
j'aimerais, lorsque je clik sur ANNULER  revenir a la fin de mon programme principale 

voila comment je fait

code :

sub PP
......
fin : msgbox" application terminer"
end sub

function SP
rep=InputBox"........"
if rep="" then
 goto fin
end if
......
end function

le probleme, c'est que quand il arrive au "goto fin" excel cherche l'etiquette dans le sous programme 

auriez vous une idee pour me sortir de la SVP

je vous remerci de votre attention

cufy59 · Accepted Answer

c'est bien cela

Mais le programme ne fonctionnait pas meme si je rentrer un valeur numerique
j'ai effectuer la modification suivante : if nhar = empty then

De plus il suffit juste de declarer nhar comme un string et non comme un integer et le programme fonctionne dans les deux cas.
merci de toute vos reponse bonne journee
a+

jmfmarques · Answer

Ah !
Et où se trouve donc ton étiquette fin ? (car tu en as bien mis une, j'espère)

mortalino · Answer

Salut,

l'étiquette est dans SP ^^

Fait avec un booléen en Public :

Private bVerif As Boolean

sub PP
......
' là y'a ton "Call SP"
If bVerif Then GoTo fin

fin : msgbox" application terminer"
end sub

function SP
rep= InputBox"........"
if rep="" then
  bVerif = True 
else
......
end if
end function

En italique et gras, ce que je t'ai modifié / rajouté 

@++ 

<hr width ="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

cufy59 · Answer

bonjour je vous remercie pour vos reponse je n'y avait pas penser
seulement maintenant j'ai un autre souci

voila mon code:

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 si 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
A+

mortalino · Answer

Oui, quand tu fais Annuler, la valeur de l'InputBox est bien vbNullString, cependant, tu y rentres une valeur par défaut : "nbr d'harmonique"
Si on clique sur OK, c'est du type String, Alors que tu à l'air de demander un nombre.

Si nhar est déclaré en type numérique, forcémment tu auras une erreur !
(erreur d'incompatibilité de type)

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

[VBA-E]probleme avec une Inputbox

5 réponses

Votre réponse

Discussions similaires