bonjour à tous
voilà j'ai un programme que je n'arrive pas à creer correctement , le but de ce programme est d'augmenter de une unité une variable numérique à chaque fois que l'on presse sur un bouton
voici le code que j'ai placé dans le boutton,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim nombre1 As Short
 
nombre1 = TextBox1.Text
 essai(nombre1)
TextBox2.Text = CStr(nombre1)
dans ce programme, la procédure est "essai", je l'ai mise dans un module standard dans le quel j'ai placé ce code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
 Sub essai(ByRef result As Short)
result = result + 1
End Sub
voila mon problème est que si j'écris "2" dans textbox1, et que je presse sur le bouton, textbox2.text va être égale à "3" mais le problème c'est que si je presse de nouveau sur le bouton il ne se passe rien , or j'aimerais que le textbox1 ne change pas de valeur mais que le textbox2 augmente de 1 chaque fois, donc égale à 4 et puis 5 et ainsi de suite

merci de laisser des explications les plus claires possibles. Et par la même occasion si vous pouviez m'expliquer aussi la différence entre les procédures sub et fonction et les mots-clés "Byval" et "Byref" , ce serait bien gentil

merci ^^ (suis débutant)