Discussion :

[aalex_38]

Bonjour,

Dans une macro j'ai une gestion d'erreur, pour passer dans tous les cas, j'ai codé comme ceci :

Code :

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

1
2
3
4
5
'Exit Sub
gestionerreur:
If Err.Number > 0 Then
    MsgBox ("Une erreur est survenue : " & Err.Number & " " & Err.Description)
End If

Avec l'exit tout fonctionnait parfaitement, maintenant j'ai une erreur ici :

Code :

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

Sheets.Add

Avec le message 'L'indice n'appartient pas à la selection'

Je ne comprends pas ce qui se passe ici, merci d'avance

Ps: Si je fais le debogger sur ERR, je trouve EUROTOOL dans Source.

[JackOuYA]

bonsoir,

et c'est quoi le reste du code, il y as juste un sheets.add ..?

[ouskel'n'or]

Et si tu utilises l'un des paramètres Before/After de Add ?

Code :

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

ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)

As-tu toujours une erreur ?

[aalex_38]

Merci pour vos réponses.

Je viens de faire une macro réduite au code suivant :

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
16
17


Sub testpb()
On Error GoTo gestionerreur

ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
    
'-------------------------------------------------------------------------'
' Gestion des erreurs
'-------------------------------------------------------------------------'
' EXIT SUB
gestionerreur:
If Err.Number > 0 Then
    MsgBox ("Une erreur est survenue : " & Err.Number & " " & Err.Description)
End If
End Sub

Hé bien le message d'erreur apparait toujours, bon ce n'est pas tellement bloquant car si je décommente l'exit, alors tout fonctionne, c'est juste que j'aimerai bien comprendre ce qui se passe

[ouskel'n'or]

As-tu besoin de EuroTools (c'est une macro complémentaire) ? Fred65000 donne la solution pour la dévalider ici
A toutes fins utiles

[aalex_38]

Merci, ouskel'n'or, j'étais justement en train de regarder le post de Fred et ça marche, en le désactivant je n'ai plus le message d'erreur !

Quand même bizarre ce truc !