Sub -> Procédure -> Retour sub

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?

Bonjour,

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

Code:

---

Public MonBooleen as boolean

---

1)
Sub progPrincipal()

Code:

---

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:

---

1 2 3

MonBooleen=true call progPrincipal

---

End sub

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 ?

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.

Modification :

Code:

---

Public MonBooleen as Boolean

---

1)
Sub progPrincipal()

Code:

---

if MonBooleen=true then GoTo Suite

---

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

Code:

---

Suite :

---

c)Instructions...

End sub

2)
Private sub procRecherche()

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

Code:

---

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

Code:

---

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

---

Code:

---

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)

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

Code:

---

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 :D

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?

tu peux aussi déclarer ta procédure procRecherche en tant que fonction.... et ainsi retourner une valeur que tu peut tester dans la procédure principal ou utiliser un "select case [...] end select" mais si tu n'en dis pas plus sur les conditions d'appel de la procedure recherche....

Le dernier post (quand j'écrivais) a répondu parfaitement à la question ;)

Il suffit de faire un CALL maSub(paramètres)
Ca lance la procédure, et quand tout est fini, ca revient à la procédure initiale, à l'endroit juste après l'appel, formidable! :)

Bonjour,

Je ne suis pas vraiment d'accord avec un tel mécanisme, moi non plus, mais c'est ton affaire, comme tu dis...

Si tu y tiens, je te suggère alors de t'intéresser de près à l'instruction
On...GoSub... (voir dans ton aide en ligne)
et d'utiliser une fonction qui te retourne un chiffre (ou encore d'appeler une sub paramétrée donc un paramètre sera un chiffre). Utilise ensuite ce chiffre pour ton Gosub.