portée de variable

Version imprimable

24/06/2011, 10h22
boboss123

portée de variable
Bonjour,

voici le code de ma macro :
Code:

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:

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
24/06/2011, 12h43
Arkham46

bjr,

un "Exit Sub" sortira de la procédure sans réinitialiser les variables
24/06/2011, 13h14
boboss123

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

non il faut répercurter la sortie en cascade

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

Code:

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:

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

24/06/2011, 14h46
boboss123

ok, merci pour les informations