Autres Gestion Erreur

[cp4]

Bonjour ,
Ce matin j'ai voulu comprendre un peu la gestion des erreurs VBA. J'ai trouvé un tuto (le lien est dans le fichier joint).
Étant donné que certains XLDiens et XLDiennes n'ouvrent pas les fichiers voici le lien https://silkyroad.developpez.com/VBA/GestionErreurs/#
Le code sut la ligne Set Ws=ThisWorkbook.Worksheets("E3") (feuille qui n'existe pas).

Option Explicit
Sub la_Macro()
    Dim Ws As Worksheet
    'Evite le message d'erreur si la feuille n'existe pas.
    On Error Resume Next
    Set Ws = ThisWorkbook.Worksheets("E3")
    On Error GoTo 0
    '(Ws = Nothing quand l'objet attribué à la variable n'existe pas)
    If Not Ws Is Nothing Then
        MsgBox "La feuille existe dans le classeur."
        Else
        MsgBox "La feuille n'existe pas dans le classeur."
    End If
End Sub

Je travaille avec Excel 2007, le code du tuto ne fonctionne pas correctement chez moi.
En effet, il est expliqué qu'avec l'instruction On Error Resume Next, le code continue son exécution.
Chez moi ce n'est pas le cas, il lève une erreur. Est-ce dû à ma version d'Excel?

Remerciements anticipés.

 

[Claudy]

Bonjour,
si ça peut t'aider:

Gestion des erreurs en VBA

Bonjour à tous, ce post est dédié à présenter une méthode de gestion des erreurs en VBA que j’utilise depuis quelques temps sur mes projets (professionnels et personnels). Précédemment, j’utilisais cette méthode classique : Sub Procedure() On Error GoTo GestionErreur 'code "métier"...

www.excel-downloads.com

Claudy

 

[cp4]

Bonjour,
si ça peut t'aider:

Gestion des erreurs en VBA

Bonjour à tous, ce post est dédié à présenter une méthode de gestion des erreurs en VBA que j’utilise depuis quelques temps sur mes projets (professionnels et personnels). Précédemment, j’utilisais cette méthode classique : Sub Procedure() On Error GoTo GestionErreur 'code "métier"...

www.excel-downloads.com

Claudy

Bonjour Claudy ,
Merci pour la célérité de ta réponse et le lien.
As-tu testé le fichier joint, je voudrais savoir si le plantage n'est pas dû à ma version d'excel (2007)?

 

[Claudy]

Re bonjour,
avec mon office 2016, ça fonctionne...

Claudy

 

[JM27]

bonjour
fonctionne Excel 2010

 

[cp4]

Merci Claudy, Merci JM pour votre retour.

Si ça ne plante pas chez-vous, je peux donc conclure que c'est ma version qui est en cause.
Merci Microsoft de te foutre de nous à chaque version.

Bonne fin de journée.

 

[mapomme]

Bonjour @cp4 ,

On Error Resume Next ne suffit pas.

Il faut dans les options de VBA cocher une certaine option "Arrêt sur les erreurs non gérées" (voir image)

 

[jmfmarques]

Bonjour
Il est tout simplement probable que tu as coché "arrêt sur toutes les erreurs" dans outils -->> options --->> général
Et donc --->> VBA t'obéit .

 

[cp4]

Bonjour @cp4 ,

On Error Resume Next ne suffit pas.

Il faut dans les options de VBA cocher une certaine option "Arrêt sur les erreurs non gérées" (voir image)
Regarde la pièce jointe 1059423

Merci Mapomme , Je vais corriger.
A+

 

[cp4]

Bonjour
Il est tout simplement probable que tu as coché "arrêt sur toutes les erreurs" dans outils -->> options --->> général
Et donc --->> VBA t'obéit .

Merci beaucoup Jmfmarques , C'était ça.

Merci beaucoup à vous tous.
Bon après-midi.

 

[Claudy]

Merci aussi Mapomme...
Nouvelle leçon!
Claudy

 

[Dranreb]

Bonjour.
Moi je préfère Arrêt dans le module de classe.
J'aime pouvoir trouver tout de suite quelle instruction plante dans un UserForm, par exemple.

 

[cp4]

Bonjour.
Moi je préfère Arrêt dans le module de classe.
J'aime pouvoir trouver tout de suite quelle instruction plante dans un UserForm, par exemple.

Bonjour Dranreb ,
Vu ta "pointure", c'est noté : Arrêt dans module de classe.
Merci beaucoup.

 

[mapomme]

Bonjour @Dranreb ,

Arrêt dans le module de classe.

Je ne m'étais jamais penché sur cette option. Merci.