Discussion :

[mancired]

Bonjour,

J'ai un soucis avec un code du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LeForestier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

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

Pour ton soucis essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DeaD78]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ilank]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

+