Discussion :

[dlight]

Bonjour à tous.

J'ai UF avec un bouton de commande. Dans ce bouton, j'ai une gestion des erreurs.

Code :

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
Bug:
    Select Case Err
 
        Case 0
            Exit Sub
        Case 1004
            Application.DisplayAlerts = False
            MsgBox "Le nom de l'employé(e) existe déjà dans le nom des onglets. Vous devez nommer l'employé(e) actuel(le) d'une autre façon", vbOKOnly
            TextBox2.SetFocus
            ActiveSheet.Delete
             Worksheets("Calcul").Visible = 2
             Application.DisplayAlerts = True
 
        Case Else
            MsgBox "Une erreur inconnue est survenue. Veuillez prendre contact avec ...", vbOKOnly
            Exit Sub
    End Select

Avec Excel 2003, aucun problème car case 0 est sélectionné.

Dans Excel 2007 (avec les mêmes informations dans mon UF), le code fonctionne bien mais au lieu de sélectionné "Case 0", il sélectionne "Case else".

J'ai annulé la gestion des erreurs pour obtenir le code d'erreur et surprise il n'y en a pas d'erreur.

Je suis confus.

Quelqu'un a une idée ?

Dlight

[pgz]

Bonjour.

Tu pourrais préciser

Code :

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

SELECT CASE Err.Number

Cordialement,

PGZ

[dlight]

Merci Pqz !

Si je comprends bien cette modification, VBA me donnera le code d'erreur

J'ai ajouté votre code et supprimer temporairement le "Case else" et dans la mesure où le "Case else n'est pas là, je n'ai pas d'erreur...

Merci encore une fois

Dlight

[dlight]

Boujour à nouveau.

J'ai ajouté à mon code dans la section "Case else":

Code :

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

MsgBox Err.Number & vbLf & Err.Description

Sous excel 2003, aucun problème

Sous Excel 2007, erreur 9, l'indice n'appartient pas à la sélection.

Quelqu'un peux m'indiquer ce que je dois regarder ?

Merci

Dlight

[AlainTech]

Bonjour,

Tu fais appel à un indice de Collection (Worksheets, Workbooks) ou d'Array qui n'existe pas.

A mon avis, ça ne vient pas de la version d'Excel mais du classeur (donc de son contenu) sur lequel est exécuté la macro.