Discussion :

[GoFio]

Bonjour,

Nouvelle question :

Code :

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

1
2
3
If condition then
    terminer le code
End If

or si j'écris :

Code :

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

1
2
3
If condition then
    End
End If

Tout ce ferme, ce que je ne souhaite pas.

ou

Code :

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

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

[jijie]

Ou lala pas très clair !!

Code :

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

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!!

[GoFio]

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 :

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

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)

[jijie]

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

regarde:

Code :

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

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!

[GoFio]

Ca compliquerai, si je donnais plus de code ^^

Ca donne un truc du genre pour simplifier

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

[jijie]

ds le doute :

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