changer un argument dans une procédure Sub

Version imprimable

Bonjour,

J'ai un soucis avec un code du type :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub 1 
....
      ARG = FALSE      
 
      Sub 2 (RefVal ARG As Boolean)
      ...
             If .... Then 
                     ARG = TRUE
                     Exit Sub
             End If
      ...
      End Sub 
 
      If ARG = TRUE Then Exit Sub
....
End Sub

Lorsque Sub 2 donne TRUE comme valeur à ARG, la valeur de ARG dans la Sub 1 reste FALSE

Savez-vous comment faire pour que la Sub 2 change effectivement son argument ?

Merci

Bonjour,
Tu doit déclarer la variable dans le dessus du module..

Code:

Dim ARG As Boolean

Et tu a deux fois End Sub ?
Peut-être oublier le reste avec le copier/coller ?
A+
Edit:
Tu veux peut-être quelque chose dans le genre...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function Change(ARG) As Boolean Change = Not ARG End Function Sub P1() '... 'If .... Then ARG = Change(ARG) 'End If '... If ARG = True Then Exit Sub '.... End Sub
Et la prochaine fois essaye de mettre un code LISIBLE :mrgreen:

Premièrement utilise les balise code s'il te plais.

Pour ton soucis essaye ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 sub test1 () .... ARG = FALSE test2 arg end sub Sub 2 (ARG As Boolean) ... If .... Then ARG = TRUE Exit Sub End If ... End Sub If ARG = TRUE Then Exit Sub .... End Sub
parceque la j'ai l'impression que tu décrit ta sub 2 dans ta sub 1...

Si tu veux plus d'info voici un petit tuto qui pourrais t'interesser a ce propos

11/05/2009, 13h23
DeaD78
Bonjour,

Pourquoi n'utilises-tu pas une fonction pour cela ?

Code:

Function Test() As Boolean

Le "retour" de la fonction sera équivalent à ta Sub2, vu que tu veux récupérer quelque chose en sortie.

Sinon, en ce qui te concerne :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub 1 .... ARG = FALSE Call Sub 2() If ARG = TRUE Then .... End Sub Sub 2 (RefVal ARG As Boolean) ... If .... Then ARG = TRUE End If ... End Sub
On emploie les procédures de cette façon. La Sub 2 change la valeur de ton ARG. Pour changer l'ARG de Sub 1, tu dois l'appeler dans Sub 1.

EDIt : il faut aussi, effectivement, déclarer ton ARG tout en haut. Enfin, tes Exit Sub ne servent à rien. End Sub permet de clore une procédure. Exist Sub, à l'arrêter en plein milieu. Tu n'as pas besoin d'un Exit avant un End. De plus, on n'emboîte pas 2 procédures, comme il a été dit. Soit tu écris le code de la 2ème dans la 1ère, soit tu appelles la 2ème.

Bonjour,
tu as le choix de transformer Sub2 en fonction qui renvoie un booléen ou de passer ARG par référence et non par valeur.

Exemple1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Sub Sub1()
 .....
 ARG= False
 If Sub2(Arg)=True Then
  ...
 Else
  ....
 End if
End sub
 
Function Sub2(Arg As Boolean) As Boolean
 Sub2=False
 If ... Then Sub2=True
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Sub1()
 ...
 ARG=False
 Call Sub2(ARG)
 If ARG=True Then
  ....
 Else
  ....
 End If
End sub
 
Sub Sub2(ByRef Arg As Boolean)
 If ... then
   Arg=True
 Else
   Arg=False
 End if
End sub

11/05/2009, 15h20
mancired

Merci pour vos réponses et désolé pour le manque d'effort dans ma présentation du code (Je l'ai pourtant codé avec un Call comme l'a fait ilank..)

Je m'en suis tiré en définissant ma variable ARG en amont des deux Sub,
elle devient globale sans être réinitialisée à la sortie des Sub

ARG garde donc la valeur TRUE en sortant de la Sub2

+