Byref sans modification [Résolu]

[tartiflette74]

J'ai un autre probleme concernant le passage de parametres a un sub en utilisant le passage par reference

Voila ce que j'ecris :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub UserForm_Click()
Dim i As Integer
i = 1
essai (i)
MsgBox i
End Sub
 
''''''''''''''''''''''''''''''''
Sub essai(ByRef j As Integer)
 
    j = j + 1
 
End Sub

Je voudrais bien que i soit egale a 2 a la fin mais malheureusement il est egale a 1 .... J'ai bien cherche sur le forum et sur internet mais je ne comprend pas ce qu'il se passe.
Je voudrais donc savoir ce que j'ai oublie/mal fait/autre.

Merci d'avance

[SilkyRoad]

bonsoir

Fait un essai en enlevant les parenthèses autour de la variable i

Code :

1
2
3
4
5
6
7
8
Private Sub UserForm_Click()
    Dim i As Integer
 
    i = 1
    essai i
 
    MsgBox i
End Sub

Code :

1
2
3
Sub essai(ByRef j As Integer)
    j = j + 1
End Sub

bonne soirée
michel

[tartiflette74]

C'est juste ca merci SilkyRoad