Si condition, stopper le code

Bonjour,

Nouvelle question :

Code:

---

1 2 3

If condition then terminer le code End If

---

or si j'écris :

Code:

---

1 2 3

If condition then End End If

---

Tout ce ferme, ce que je ne souhaite pas.

ou

Code:

---

1 2 3

If condition then Exit sub End If

---

Je sort bien de la sub mais le calcul continu car en gros se sont des subs qui apellent des sub qui en appellent dautres ... ^^

J'aimerais que cela stopper et revenir à la userform depuis laquelle on avait lancé le calcul ou aller directement au "End Sub" de ma sub principale.
Mais si j'écrit End Sub Nom avec ou sans (), ça ne fonctionne pas.

Merci d'avance :)

Ou lala pas très clair !!

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If condition=vrai then exit sub end if ' ou alors   if condition = vrai then exit sub else 'un code suivant end if

---

Bon je pense qu'il faut que tu nous en donne plus de ton code!!:mur:

Merci de ta réponse,
Mais dans ton cas, je quitte juste la sub en cour, donc mon code continue de tourner.

Mais je ne veux pas tout quitter non

Code:

---

1 2 3 4

If condition=vrai then MsgBox ("erreur") 'Sortir de toutes les sub* End If

---

*Je voudrais que cela agisse comme si le calcul s'était terminé dans les bonnes conditions (après la MsgBox d'erreur)

Je persiste qu'il faut que tu nous donne + d'information

regarde:

Code:

---

1 2 3 4 5 6 7 8 9

sub button2 click   if contition=vrai then exit sub   end if   end sub

---

mon code ne tourne plus!

Ca compliquerai, si je donnais plus de code ^^

Ca donne un truc du genre pour simplifier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub 1 (...) dim m as integer, n as integer For m=1 to n Call Sub 2 Next End Sub   Sub 2 (...) dim i as integer, k as integer For i = 1 to k . . . if contition=vrai then exit sub end if Next End sub End if

---

Effectivement ton code fonctionne, mais je sort juste de la sub 2 ensuite je reviens dans 1 qui réapelle la 2 ... etc
Et je ne peux pas non plus mettre juste le code de la 2 dans la 1 car là, j'ai pas mal simplifié et écrit que ce qui je pense servait à illustrer le problème.

Donc ce que je voudrais c'est quitter Sub 1 et Sub 2 (il y en a plus d'imbriquées en fait dans le code) mais sans utiliser End qui quitte tout

J'espère que ce sera plus utile pour une aide, en tout cas merci :)

ds le doute :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Option Explicit Dim Ok As Boolean   Sub 1 (...) Dim m As Integer, n As Integer   Ok = True For m = 1 To n If Ok = True Then Call Sub 2 Else Exit Sub Next m End Sub   Sub 2 (...) Dim i As Integer, k As Integer For i = 1 To k . . . If contition = vrai Then Ok = False Exit Sub End If Next i End Sub

---

je te suggère de faire une fonction qui te retourne true si tout est OK

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Sub1() For i = 0 To 10 If Sub2 = False Then Exit For 'Ou Exit sub Next End Sub   Function Sub2() As Boolean If "Toto" <> "Titi" Then Exit Function Sub2 = True End Function

---

J'ai testé, m'a pour l'instant ça ne fonctionne pas :

ça bloque à : Dim fingc as Boolean
Avec l'erreur suivante : "instruction incorecte à l'extérieur d'un bloc de type"

Parce que je le déclare dans la sub principale

Voilà un peu l'architecture du programme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub 1 () ... If fingc = False Then Exit Sub End Sub Call Sub 2 (...,...,fingc) End Sub   Sub 2 (...,...,fingc as boolean) Call Sub 3 (...,...,fingc) Call Sub 4 (...,...,fingc) End Sub   Sub 3 (...,...,fingc as boolean) If condition = true fingc = False MsgBox ("erreur") Exit Sub End if   Sub 4 (...,...,fingc as boolean) If fingc = False Then Exit Sub End Sub ... End Sub

---

ta déclaration de variable doit être public

dans un module

public fingc as boolean

si tu définis des fonctions tu pourras les tester comme des variables!

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Sub1() For i = 0 To 10 If Sub2 = False Then Exit For 'Ou Exit sub Next End Sub Function Sub2() As Boolean If "Toto" <> "Titi" Then Exit Function Sub2 = True End Function

---

oui rudrup je te suis

Merci ! ta solution fonctionne :)
Par contre je vais continuer de chercher quelquechose de plus radical, car même si cela fonctionne, je dois repenser mon code car cela engendre de faux résultats.

Merci de ton aide et ta patience jijie, merci à rdurupt également