Discussion :

[quentin57]

Bonjour,
j'aimerais savoir s'il est possible de combiner un module de gestion des erreurs tels qu'indiqués sur les tutoriels (Goto...) + la fonction resume Next.

En gros, dans mes fonctions, j'ai placé au début un

Code :

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

On error Goto Gestion_err

et à la fin:

Code :

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

1
2
3
Gestion_err:
log_err "Module concerné", "Fonction", Err.Number, Err.Description
End Function

J'aimerai qu'il effectue bien la fonction decrite à la fin, mais tout en continuant le code de la fonction (retourner là où l'erreur s'est produite en fait).

Est-ce possible en placant un "Next" à la fin par exemple?

Merci d'avance pour votre aide,

Quentin

[Tofalu]

Bonjour,

Un exemple :

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
Sub test()
On Error GoTo Err
 
Dim n As Integer
 
n = 10 / 0
MsgBox "salut"
 
fin:
Exit Sub
Err:
  MsgBox Err.Description
  Resume Next
 
End Sub

Affichera dans un premier temps un message "Erreur, division par zéro", puis "salut"

[quentin57]

Génial c'est ce qu'il me fallait.

Merci Beaucoup