Discussion :

[boboss123]

Bonjour,

voici le code de ma macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Public valGlb As Integer
 
Sub Main()
 
MsgBox (valGlb)
valGlb = valGlb + 1
 
'...
'...
 
End Sub

=> Lorsque je relance ma macro, valGlb est bien incrémenté


Ensuite pour arreter mon programme a un endroit donné, j'utilise la commande "End" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Explicit
Public valGlb As Integer
 
Sub Main()
 
MsgBox (valGlb)
valGlb = valGlb + 1
End 'arret du programme
 
'...
'...
 
End Sub

=> Le problème est qu'a chaque fois que je relance ma macro, la variable valGlb est réinitialisée

Comment faire pour arrêter mon programme sans que ma variable soit réinitialisé si je relance ma macro ?

merci d'avance

[Arkham46]

bjr,

un "Exit Sub" sortira de la procédure sans réinitialiser les variables

[boboss123]

Exit arrêtera mon programme même si je suis dans une procédure appelée par une autre procédure ?

[Arkham46]

non il faut répercurter la sortie en cascade

avec par exemple un retour de fonction égal à True si on doit sortir :

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
 
Function f1() As Boolean
[Mon traitement...]
If f2 Then
    f1 = True
    Exit Function
End If
[Mon traitement...]
End Function
 
Function f2() As Boolean
[Mon traitement...]
If True Then
    f2 = True
    Exit Function
End If
[Mon traitement...]
End Function

ou alors avec une gestion d'erreurs :

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
Sub f1()
On Error GoTo Gestion_Erreurs
f2
Exit Sub
Gestion_Erreurs:
If Err.Number = vbObjectError Then
    MsgBox "Arrêt dans " & Err.Source
Else
    MsgBox "Autre erreur:" & Err.Number & ", " & Err.Description
End If
End Sub
 
Sub f2()
f3
If MaConditionDeSortie Then
    Err.Raise vbObjectError, "f2"
End If
End Sub
 
Sub f3()
If MaConditionDeSortie Then
    Err.Raise vbObjectError, "f3"
End If
End Sub

s'il n'y pas de gestion d'erreurs locale dans chaque procédure, la levée d'une erreur renvoit l'exécution vers l'appelant qui possède une gestion d'erreurs

[boboss123]

ok, merci pour les informations