S
Stéphane
Guest
Bonjour le forum,
Depuis une procédure, j'aimerais si une erreur se produit dans le programme, me rendre immédiatement dans une procédure qui traite les messages d'erreurs. Je n'arrive pas à mettre mon code en place. voici le code :
*****************************************************
Sub test()
Dim Réponse As Long
On Error GoTo erreursaisie
Réponse = InputBox('Veuillez saisir un numéro SVP ')
Range('B8').Select
ActiveCell.Value = 'Votre saisie correspond à : ' & Réponse
Exit Sub
erreursaisie:
GestionErreur 'appel de procédure
End Sub
*****************************************************
Et voici la procédure de gestion d'erreur :
*****************************************************
Public Function GestionErreur()
dim Réponse as integer
Select Case Réponse
Case 32 'Réponse non valide, la valeur doit êtrecomprise entre -2 147 483 648 et 2 147 483 647
MsgBox 'Réponse non valide, la valeur doit êtrecomprise entre -2 147 483 648 et 2 147 483 647 '
Exit Function
Case Else
MsgBox 'Numéro d'erreur = ' & Réponse, vbInformation, '...'
End Function
*****************************************************
C'est quoi qui cloche ?
Excel m'indique comme erreur 'erreur de compilation : sub ou function non définie'
Merci à vous
Stéphane
Depuis une procédure, j'aimerais si une erreur se produit dans le programme, me rendre immédiatement dans une procédure qui traite les messages d'erreurs. Je n'arrive pas à mettre mon code en place. voici le code :
*****************************************************
Sub test()
Dim Réponse As Long
On Error GoTo erreursaisie
Réponse = InputBox('Veuillez saisir un numéro SVP ')
Range('B8').Select
ActiveCell.Value = 'Votre saisie correspond à : ' & Réponse
Exit Sub
erreursaisie:
GestionErreur 'appel de procédure
End Sub
*****************************************************
Et voici la procédure de gestion d'erreur :
*****************************************************
Public Function GestionErreur()
dim Réponse as integer
Select Case Réponse
Case 32 'Réponse non valide, la valeur doit êtrecomprise entre -2 147 483 648 et 2 147 483 647
MsgBox 'Réponse non valide, la valeur doit êtrecomprise entre -2 147 483 648 et 2 147 483 647 '
Exit Function
Case Else
MsgBox 'Numéro d'erreur = ' & Réponse, vbInformation, '...'
End Function
*****************************************************
C'est quoi qui cloche ?
Excel m'indique comme erreur 'erreur de compilation : sub ou function non définie'
Merci à vous
Stéphane