[VBS] Aide Sub/function

Question

Bonjour, 
Voici mon problème 
Je cherche à : Rentrer dans un sub, Déplacer une valeur pour la mettre dans une function pour ensuite pouvoir la réutiliser  (Là dans une msgbox) 

Sub la ()MsgBox "Dans le sub"Call funt (a)End sub Function funt(a)a = Inputbox ("La question ?") End functionCall la ()MsgBox "tu as " & a 
Avec ce code la msgbox n'affiche aucune valeur pour la valeur "a"
Merci d'avance,

f894009 · Answer

Bonjour,

la variable a doit etre passee dans tous les appels

Call la(a)
MsgBox a

'-------------------------
Sub la(a)
 MsgBox "Dans le sub"
 Call funt(a)
End sub

Function funt(a)
 a = Inputbox ("La question ?") 
End Function
'-------------------------

ou declarez la variable a public ou dim et pas de passage de variable

Public a

Call la()
MsgBox a

'-------------------------
Sub la()
 MsgBox "Dans le sub"
 Call funt()
End sub

Function funt()
 a = Inputbox ("La question ?") 
End Function
'-------------------------

[VBS] Aide Sub/function

1 réponse

Discussions similaires

Newsletters