Discussion :

[yodu29]

Salut, je souhaiterai savoir comment faire pour revenir à un certain niveau de ma sub?

En gros j'ai:

1)
Sub progPrincipal()

a)Instructions...
b)Instructions...
'Appel de la procédure
procRecherche
'Nous allons donc dans la procedure...
c)Instructions...

End sub

2)
Private sub procRecherche()

Instructions...
Instructions...
Instructions...
'Je veux retourner à l'instruction C de mon programme principal

End sub

Comment puis-je réaliser cela?

[House MD]

Bonjour,

Si tu ne veux y retourner qu'une fois, le plus simple est faire :

Code :

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

Public MonBooleen as boolean

1)
Sub progPrincipal()

Code :

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

if MonBooleen=true then goto Suite

a)Instructions...
b)Instructions...
'Appel de la procédure
procRecherche
'Nous allons donc dans la procedure...


Suite :

c)Instructions...

End sub

2)
Private sub procRecherche()

Instructions...
Instructions...
Instructions...
'Je veux retourner à l'instruction C de mon programme principal

Code :

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

1
2
3
 
MonBooleen=true
call progPrincipal

End sub

[House MD]

Modification :

Code :

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

Public MonBooleen as Boolean

1)
Sub progPrincipal()

Code :

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

if MonBooleen=true then GoTo Suite

a)Instructions...
b)Instructions...
'Appel de la procédure
procRecherche
'Nous allons donc dans la procedure...

Code :

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

Suite :

c)Instructions...

End sub

2)
Private sub procRecherche()

Instructions...
Instructions...
Instructions...
'Je veux retourner à l'instruction C de mon programme principal

Code :

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

1
2
3
4
5
6
7
if MonBooleen=False then 
  MonBooleen=True
else
  MonBooleen=False
end if
 
if MonBooleen=True then Call progPrincipal

End sub

[random]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function testappel(ou As String) As Variant
Select Case ou
Case "prem"
MsgBox ("premier")
Case "Second"
MsgBox ("second")
Case Else
MsgBox ("coucou")
End Select
End Function

[zebulon2212]

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
Public Sub Procedure1()
    instruction A
    instruction B
 
    call Procedure2
 
    instruction C
 
end Sub
 
Public Sub Procedure2()
    instruction A
    instruction B
    If <expression booleene> Then
        exit sub
    End If
    instruction C
End Sub

En fait dans la procedure2 si l'expression booleene est vrai tu retourne automatiquement à l'instruction C de la procedure1
si tu commence a faire des GOTO ton code va etre un vrai bordel
Mieux vaux ce servir de boucle (FOR, DO While loop, Do Until loop, Do loop While, Do loop Until, etc)

[Many31]

Je vois pas ou est la question et pourquoi aussi tout le monde en fait a sa sauce perso….

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private sub progPrincipal()
 
a)
b)
call procRecherche
c)
 
end sub
 
Public sub procRecherche()
 
a')
b')
end sub

a la fin de procRecherche tu reviens directement dans la procédure principale au niveau de l'instruction C et basta.... franchement je vois pas le souci... met un public au lieu d'un private peut etre

[yodu29]

Je ne vais pas mettre mon code qui fait environ 300 lignes...

J'ai préféré généraliser mon travail

Mon problème:
1) Je suis dans la procédure 1
2) Je fais des actions dans la procédure 1
3) Dans la procédure 1, suivant certaines conditions, je dois appeller la procédure 2
4) La procédure 2 est appelée, les actions de la procédure 2 sont exécutées
5) A la fin de cette procédure 2, je veux revenir dans la procédure 1, juste après l'appel de la procédure.

C'est mon problème, je ne veux pas RELANCER la procédure 1, je souhaite revenir à la procédure 1 à un endroit précis.

C'est plus clair?

[Manou34]

Salut,

N'oublie pas de mettre ton code dans des balises de code la prochaine fois !!!

Tu veux, de ta procédure procrecherche re-exécuter ton instruction "c" en faite ?

[Singular]

Tu veux retourner à l'instruction c de progPrincipale avant de terminer progRecherche? C'est pas possible et, de toutes façons, ce n'est pas une bonne technique de programmation; il y a toujours moyen de faire quelque chose sans procéder ainsi.