On Error bouclé

Version imprimable

On Error bouclé

Bonjour à tous !

Dans un de mes fichiers j'ai fait un groupement de colonnes pour simplifier le visuel.
Il peut arriver qu'il y ai plusieurs niveaux de groupement (mauvaise manipulation de l'utilisateur).

Pour éviter toute erreur je souhaite supprimer tous les niveaux de groupement et en recréer un seul.

Comme il n'y a pas qu'une colonne à groupe j'utilise un boucle.

Voici le code que j'utilise:
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 toto() ' On créé les groupements de colonnes i = 9 While i < 30 If Cells(1, i).Value = "" Then Cells(1, i).Select Selection.End(xlToRight).Select Selection.End(xlToRight).Select colgroup = Selection.Column - 1 Range(Cells(1, i + 1), Cells(1, colgroup)).Select For a = 1 To 5 On Error GoTo suite Selection.Columns.Ungroup Next a suite: Selection.Columns.Group Selection.Columns(1).ShowDetail = False On Error GoTo 0 End If i = i + 1 Wend End Sub
Pour éviter d'afficher les erreurs dues à la suppression d'un groupement qui n'existe pas j'utilise On Error Goto.

Le problème c'est que ce On Error Goto ne fonctionne qu'une seule fois. J'ai donc ajouté un On Error Goto 0 pour éviter cela mais ça ne change rien.

Est-ce que quelqu'un aurait de quoi éclairer ma lanterne?

Merci
pastis.vi

26/09/2013, 14h41
EngueEngue

On Error GoTo 0 désactive ta gestion d'erreur... donc normal qu'il ne se fasse qu'une seule fois..

Mets un on error resume next et ne te soucie pas des erreurs. Ou alors teste avant de supprimer le groupement s'il existe.. Plus propre mais moins simple
26/09/2013, 14h52
pastis.vi

Salut EngueEngue

Le On Error Goto 0 je l'ai rajouté parce que justement je pensais que ça réinitialisait le Error du dessus.

Je peux pas me permettre d'utiliser un On Error Resume Next parce que je supprime 5 fois (boucle For 1 to 5) et avec le nombre de colonnes que j'ai ça prends vraiment du temps..

Comment tu fais pour tester la présence d'un groupement?

Bonjour

Code:

1
2
3
4
5
6
On Error Resume Next 'désactive le gestionnaire d'erreur.
If Err <> 0 Then  'N° de l'erreur
MsgBox Err.Description 'affichie l'erreur
Err.Clear    'Suprime l'erreur.
End If
On Error GoTo 0 'redonne la main au getionnaire d'erreur.

26/09/2013, 15h21
EngueEngue

Tu ne testes pas la présence d'erreur.. Tu testes ce qui pourrait déclancher une erreur.
26/09/2013, 15h24
Invité
perso j'ai fait un code qui explique le on error maintenant il faut le remettre dans son contexte!
Code:

1 2 3 4 5 6 7 On erro GoTo Fin GoTo Sortie Fin: Err.Clear Resume Next Sortie: End Sub
26/09/2013, 15h27
EngueEngue

ma réponse ne t'était pas dirigée robert. Je répondais à pastis.
26/09/2013, 15h29
Invité

je le sais mais tu m'a donné l'idé d'apporté de précision et quand bien même on vas pas voir de la gène entre amis :lol:
26/09/2013, 15h31
EngueEngue

Je vois que tu manies le gestionnaire d'erreur à la baguette! ça reste une bien sombre chose pour moi! Je n'aime pas les erreurs et je les gère au IF!
26/09/2013, 15h35
Invité

il est plus prudent de les gérer en amont mais il faut parfois ce résigner.

dans ce cas j'aime les gérer également (un message, une valeur de substitution, un fichier.log...)
26/09/2013, 16h17
pastis.vi

Bonjour Robert,

Excusez-moi d'avance mais je n'arrive vraiment pas à coder tout ça... j'ai vraiment tout essayé: dans les boucles, en dehors des boucles, des On Error dans tous les sens... et RIEN ne fonctionne...

Est-ce que vous pourriez l'adapter à mon exemple svp??

:aie:
26/09/2013, 16h24
Marc-L

Citation:

Envoyé par EngueEngue

Je vois que tu manies le gestionnaire d'erreur à la baguette! ça reste une bien sombre chose pour moi! Je n'aime pas les erreurs et je les gère au IF!

Quand je sais qu'une instruction peut déclencher une erreur, je l'externalise dans une fonction ou procédure autonome
en contournant l'erreur via On Error Resume Next et si besoin en testant ensuite des variables …

Comme par exemple pour ma fonction NumericCells d'une autre discussion d'aujourd'hui.

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
Sub toto()
 ' On créé les groupements de colonnes
    I = 9
    While I < 30
        If Cells(1, I).Value = "" Then
            Cells(1, I).Select
            Selection.End(xlToRight).Select
            Selection.End(xlToRight).Select
            colgroup = Selection.Column - 1
            Range(Cells(1, I + 1), Cells(1, colgroup)).Select
            For a = 1 To 5
                On Error GoTo suite
                Selection.Columns.Ungroup
            Next a
suite:
    Err.Clear
    On Error GoTo Erreur
            Selection.Columns.Group
            Selection.Columns(1).ShowDetail = False
 
        End If
        I = I + 1
    Wend
 
Erreur:
 Err.Clear
 On Error GoTo 0
End Sub

26/09/2013, 16h34
pastis.vi

Excel me dit: "Etiquette non définie" sur le On Error GoTo Err :aie:

EDIT: non c'est bon, ce message n'apparait plus. Par contre, ça ne fonctionne toujours pas sur un groupement de 3 colonnes...

une légère absence!

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
Sub toto()
 ' On créé les groupements de colonnes
    I = 9
    While I < 30
        If Cells(1, I).Value = "" Then
            Cells(1, I).Select
            Selection.End(xlToRight).Select
            Selection.End(xlToRight).Select
            colgroup = Selection.Column - 1
            Range(Cells(1, I + 1), Cells(1, colgroup)).Select
            For a = 1 To 5
                On Error GoTo suite
                Selection.Columns.Ungroup
            Next a
suite:
    Err.Clear
    On Error GoTo Erreur
            Selection.Columns.Group
            Selection.Columns(1).ShowDetail = False
 
        End If
        I = I + 1
    Wend
 
Erreur:
 Err.Clear
 On Error GoTo 0
End Sub

27/09/2013, 09h56
pastis.vi

Merci Robert pour tes réponses rapides :ccool:

En revanche ça ne fonctionne tjrs pas correctement: j'ai l'impression que le code ne permet pas de gérer une seconde erreur. Je veux dire que pour le premier groupement tout marche mais pour le second ça plante: l'erreur apparait. :aie:

Bonjour, test ça

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
Sub toto()
On Error GoTo Erreur
 ' On créé les groupements de colonnes
    I = 9
    While I < 30
        If Cells(1, I).Value = "" Then
            Cells(1, I).Select
            Selection.End(xlToRight).Select
            Selection.End(xlToRight).Select
            colgroup = Selection.Column - 1
            Range(Cells(1, I + 1), Cells(1, colgroup)).Select
            For a = 1 To 5
                Selection.Columns.Ungroup
            Next a
            Selection.Columns.Group
            Selection.Columns(1).ShowDetail = False
 
        End If
        I = I + 1
    Wend
On Error GoTo 0
Exit Sub
Erreur:
 Err.Clear
 Resume Next
End Sub

27/09/2013, 13h31
pastis.vi

Ça fonctionne ! en revanche il se tape quand même les 5 tours de la boucle For. Je ferai avec :ccool:

Merci en tout cas !