On error go to en VBA

Version imprimable

Bonjour,

Je suis désolée si ce message a déjà été adressé, mais j'ai cherché dans la FAQ et dans les discussions sans trouver de réponse.

De plus, je cours un peu après les temps pour etre honnete.

Je débute complètement, ce n'est pas du tout mon domaine, mais on m'a confié ce boulot, donc.....

Alors, vraiment désolée si mon code est moche et pas du tout optimisé....

Mon problème :

Je crée un TCD dans VBA dans lequel je veux filtrer certaines valeurs d'un champ (.PivotItems(Pivot_i).Visible = True).
Mon souci est que parfois la valeur prise par ce fameux pivot_i n'existe pas dans le TCD et il y a donc une erreur.

Je souhaiterais que dans ce cas le reste de la procedure ne s'execute pas. Je suis dans une boucle for et je voudrais sortir de l execution et passer au next i.

J'ai essaye avec On error goto mais je ne m'en sors pas. En gros ca marche la premiere fois, mais ensuite rien...

On error resume next ne marche pas etant donne qu'alors le reste s'execute et je ne veux pas.

Voici mon code (encore desolee pour la mochete.....)

Si quelqu'un a une idee je prends.....Merci beaucoup.
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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 For i = 12 To derniere_ligne_P_and_L_HP Worksheets("P&L HP").Activate Pivot_i = Cells(i, 17).Value If Pivot_i = "" Then GoTo 14 Else If Worksheets("Pivot").Cells(5, 1).Value = Pivot_i Then GoTo 15 Else Worksheets("Pivot").Activate On Error GoTo Error_handler With ActiveSheet.PivotTables("TCD").PivotFields("Ref Conso") .PivotItems(Pivot_i).Visible = True End With Worksheets("P&L HP").Activate Cells(i, 18).Value = -Worksheets("Pivot").Cells(5, 2).Value Worksheets("Pivot").Activate On Error GoTo Error_handler With ActiveSheet.PivotTables("TCD").PivotFields("Ref Conso") .PivotItems(Pivot_i).Visible = False End With End If GoTo 14 15: Worksheets("P&L HP").Activate Cells(i, 19).Value = -Worksheets("Pivot").Cells(5, 2).Value 14: i = i End If Error_handler: On Error GoTo 0 Next i

Bonjour,

Pour commencer je dirais qu'il faudrait faire un peu le ménage.
Je ne comprends pas l'intérêt de tous ces GOTO imbriqués qui sont source d'incompréhension du code et surement de problème.
Ex : le Goto 15 n'est effectué que dans le cas "if Worksheets("Pivot").Cells(5, 1).Value = Pivot_i" donc pourquoi ne pas le mettre directement là ?

A mon avis ce sont tous ces goto qui font que ça ne fonctionne pas, mais c'est difficile de voir quelque chose dans ce fouillis.

J'ai déjà essayé d'enlever les goto pour y voir plus clair :
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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 For i = 12 To derniere_ligne_P_and_L_HP Worksheets("P&L HP").Activate Pivot_i = Cells(i, 17).Value If Pivot_i = "" Then 'Do nothing 'i = i 'ça ça sert à rien...ou alors je ne comprends pas quelle est l'idée derrière Else If Worksheets("Pivot").Cells(5, 1).Value = Pivot_i Then Worksheets("P&L HP").Activate Cells(i, 19).Value = -Worksheets("Pivot").Cells(5, 2).Value Else Worksheets("Pivot").Activate On Error GoTo Error_handler With ActiveSheet.PivotTables("TCD").PivotFields("Ref Conso") .PivotItems(Pivot_i).Visible = True End With Worksheets("P&L HP").Activate Cells(i, 18).Value = -Worksheets("Pivot").Cells(5, 2).Value Worksheets("Pivot").Activate On Error GoTo Error_handler With ActiveSheet.PivotTables("TCD").PivotFields("Ref Conso") .PivotItems(Pivot_i).Visible = False End With End If End If Error_handler: On Error GoTo 0 Next i
Après :
- c'est impossible de tester ce code
- il y a moyen d'améliorer considérablement le code, mais je suppose que ton objectif principal est que ça fonctionne ;)

PS : pour la lisibilité sur le Forum utilise les balises code.

17/06/2008, 13h49
laurene13

Bonjour,

Merci de votre réponse.

Le i=i ne sert a rien je sais mais je ne savais pas qu on pouvait juste ne rien mettre quand on ne veut rien faire......

Pour le pb du code qui peut etre ameliore, a ma decharge je vous avais prevenus...... ;-)

Ensuite, je pense qu'il va etre un peu trop complique pour moi d'expliquer clairement ce que je veux faire. Je ne peux pas mettre le fichier et sans les donnees ca va etre complique de tester.....

En gros je voulais juste comprendre pourquoi le "on error go to" ne fonctionne que la premiere fois et savoir comment il fallait le placer et comment organiser la syntaxe.

Merci encore......

J'ai teste votre code, mais j'ai toujours le meme probleme

la gestion d'erreur ne marche que la premiere fois.

A l'occurence suivante, il y a une erreur et la gestion ne s'active pas.

Merci.

Bonjour,

Essaye avec cette structure:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
    'Instructions ...
 
    On Error GoTo ErrorHandler
    For i = 12 To derniere_ligne_P_and_L_HP
        'Intructions...
Reprise:
    Next
    On Error GoTo 0
 
    'Instructions...
 
    Exit Sub
ErrorHandler:
    Resume Reprise
End Sub

Tu peux également lire ce document

Cordialement,

Tirex28/

17/06/2008, 14h03
laurene13

Merci beaucoup,

C'est exactement ce que je cherchais.

Grace a vous deux, c nickel maintenant.

Merci encore,

Bonne apres-midi.

d'arès le help de VBa sur On error :

Citation:

On Error GoTo 0 Disables any enabled error handler in the current procedure.

Et comme ceci, ca donne quoi :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
    Worksheets("P&L HP").Activate
 
    Pivot_i = Cells(i, 17).value
 
    If Pivot_i = "" Then
        'Do nothing
        'i = i 'ça ça sert à rien...ou alors je ne comprends pas quelle est l'idée derrière
    Else
    
        If Worksheets("Pivot").Cells(5, 1).value = Pivot_i Then
            Worksheets("P&L HP").Activate
            Cells(i, 19).value = -Worksheets("Pivot").Cells(5, 2).value
        
        Else
        
            Worksheets("Pivot").Activate
            
            On Error GoTo Error_handler
            
            With ActiveSheet.PivotTables("TCD").PivotFields("Ref Conso")
                .PivotItems(Pivot_i).visible = True
            
            End With
            
            
            Worksheets("P&L HP").Activate
            Cells(i, 18).value = -Worksheets("Pivot").Cells(5, 2).value
            
            Worksheets("Pivot").Activate
            On Error GoTo Error_handler
            With ActiveSheet.PivotTables("TCD").PivotFields("Ref Conso")
                .PivotItems(Pivot_i).visible = False
            
            End With
        
        End If
    
    End If
    
Error_handler:
    resume next
Next i

17/06/2008, 14h07
laurene13

Il me semble que dans ce cas-la le prog repart la ou il s'etait arrete et c'est justement ce que je ne voulais pas faire......

Je voulais à l'erreur passer directement au next i.....

J'ai essaye ca deja......

Mais merci !

J'ai resolu le pb entre temps....
17/06/2008, 14h14
Godzestla

No problem.

La solution de Tirex28 est venue quand je regardais ton problème.

:P