Inserer un message en cas d'erreur

[creolia]

Bonjour à tous je cherche une solution en cas d'erreur de ma macro il affiche un message

j'ai essayer on error resume next puis msgbox "La feuille demander est inexistant"

ma question est comment avec la fonction on error resume next dans le cas ou il est VRAI avoir ce message

merci d'avance

 

[phlaurent55]

Re : Inserer un message en cas d'erreur

Bonjour creolia,

essaie ceci

On Error GoTo fin
Cells(0, 0).Select ' pour provoquer un erreur

fin:
MsgBox ("ton message")
Exit Sub

à+
Philippe

 

[MJ13]

Re : Inserer un message en cas d'erreur

Bonjour Creolia, Philippe


Sur ce coup, il faudrait avoir le code ou le fichier pour bien répondre.

En général, on error resume next, c'est pour ne pas trop se prendre la tête (quand on maîtrise).
Après si le code devient complexe, il vaut mieux gérer les erreurs en fonction de ce qu'on pourra rencontrer comme type d'erreur.

Ou faire comme la suggéré Philippe avec on error goto, sinon on peut aussi utiliser goto pour revenir dans une procédure en arrière.

 

[Efgé]

Re : Inserer un message en cas d'erreur

Bonjour creolia, phlaurent55 🙂, MJ13 🙂,
Une autre version:

Sub Test()
Dim F As Worksheet
On Error Resume Next
    Set F = Sheets("Toto")
On Error GoTo 0
If F Is Nothing Then
    MsgBox "La feuille demandée est inexistante"
    ' Exit sub
Else
    'Ta procédure
End If
End Sub

Cordialement

 

[creolia]

Re : Inserer un message en cas d'erreur

Re bonjour à tous

merci pour votre aide et conseil qui à résolu mon probleme j'ai utilisé donc la methode de Efgé
grand merci à trés bientot à tous