Gestion d'erreurs VBA

Version imprimable

25/04/2008, 16h40
PiliSql

Gestion d'erreurs VBA

Bonjour,

Est - il possible lors de l'exécution d'une macro si une erreur se produit, l'exécution ne s"arrête pas mais elle passe à la ligne suivante du code?

Une Gestion d'erreur, sachant que j'ai Bcp de ligne de code.

Merci

bonjour

oui c'est possible avec la commande "On Error Resume Next " que tu peux utiliser ainsi :

Code:

1
2
3
4
5
6
7
    On Error Resume Next 'gestion des erreurs qui permet de continuer le programme
    'meme s'il y a une erreur 
 
    ' tes lignes de programme
 
 
    On Error GoTo 0 ' interruption de la gestion des erreurs

à plus

25/04/2008, 17h28
epsylon_9

Salut,
Il est tout de même conseiller (autant que possible) de corriger les Erreurs plutot que de les "masquer".

En effet en masquant les erreurs, il se peux qu'au final ta macro (et plus généralement ton programme) ne fasse plus du tout ce pourquoi il était fait.

@+
Julien
25/04/2008, 17h53
SilkyRoad

bonsoir

en complément des réponses deja données :
http://silkyroad.developpez.com/VBA/GestionErreurs/

bon week end
michel
26/04/2008, 17h07
Gorfael

Salut PiliSql

Citation:

Est - il possible lors de l'exécution d'une macro si une erreur se produit, l'exécution ne s"arrête pas mais elle passe à la ligne suivante du code?

Pour répondre à ta question, oui, mais... une erreur est un défaut. On a toujours plusieurs solutions pour pallier à un défaut, et masquer l'erreur ne me semble pas être la meilleur des solutions. mais pour aider, les infos sont nécessaires.
A+

Bonsoir, et merci pour vos réponses,

C'est vrai qu'une erreur est un défaut mais dans mon cas je ne sais pas comment pallier à ce défaut.

En fait j'utilise une macro qui me permet d"obtenir plusieurs TCD à partir de données brutes.

Seulement cette macro est codé en dur, si je puis m'exprimer ainsi.
Code:

1 2 3 4 5 6 7 8 9 With ActiveSheet.PivotTables(1) .PivotItems("Allemagne").Visible = True .PivotItems("Amérique du Nord").Visible = True .PivotItems("Albanie").Visible = True .PivotItems("Sud Afrique").Visible = True .PivotItems("Peru").Visible = True .PivotItems("Argentine").Visible = True ...etc
en fait quand il ne trouve pas le nom du pays dans les données brutes, il génère une erreur et je suis obligé à chaque fois de supprimer la ligne qui pose problème.

j'espère que je me suis bien exprimé.

En fait, ce que je pensais faire c quand ça génère l'erreur, une fonction ou une deuxième macro s'active pour dire de passer à la ligne suivante.
mais je ne sais pas si c possible

Merci

28/04/2008, 18h01
Le Pierre

as-tu essayé d'ajouter dans ton code "On Error Resume Next" ?
à plus

Salut à tous
tu peux essayer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim X As PivotItem
With ActiveSheet.PivotTables(1)
    For Each X In .PivotItems
        Select Case X.Name
            Case "Allemagne"
                .PivotItems("Allemagne").Visible = True
            Case "Amérique du Nord"
                .PivotItems("Amérique du Nord").Visible = True
            Case "Albanie"
                .PivotItems("Albanie").Visible = True
            Case "Sud Afrique"
                .PivotItems("Sud Afrique").Visible = True
            Case "Peru"
                .PivotItems("Peru").Visible = True
            Case "Argentine"
                .PivotItems("Argentine").Visible = True
    Next X
End With

Je ne l'ai pas testée, mais c'est un principe que j'utilise fréquement

A+