Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel On Error GoTo ne fonctionne pas

On Error GoTo ne fonctionne pas

5 réponses
Avatar
Andrew
Bonjour
La semaine passe, j'ai voulu créer une macro contenant un gestionnaire
d'erreur. Le lendemain, quand j'ai voulu tester à nouveau ma procédure, elle
fonctionait plus. Voici une prodcédure toute simple qui ne fonctionne pas,
mais qui fonctionne chez des copains à qui je l'ai envoyée:

Public Sub div_zéro()
Dim Résul, Nombre, diviseur

Nombre = InputBox(1, Nombre)

diviseur = InputBox(1, diviseur)
On Error GoTo Message
Résul = Nombre / diviseur
MsgBox (Résul)
Exit Sub
Message:
MsgBox ("division par 0")
End Sub

J'ai désintallé office 2003 puis réinstallé. En vain

Comment réactiver cette partie de VBA

Merci de votre aide
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Rotteleur [MS]
Bonjour,

Le fait d'utiliser "Message" comme nom d'étiquette est peut-être la source
de votre problème, car c'est également un mot-clé (propriété de l'objet
RoutingSlip). Si vous remplacez "Message" par "GestionnaireErreur", cela
résoud-il le problème?

Si ce n'est pas le cas, merci de préciser ce que vous constatez:

Est-ce que la macro peut se compiler (menu Debug / Compiler...)?

Ou bien est-ce à l'exécution que le problème se produit?

Avec quel comportement, quel message d'erreur?

Bon courage!


Michel Rotteleur
Microsoft France



"Andrew" a écrit dans le message de news:
45084f1c$
Bonjour
La semaine passe, j'ai voulu créer une macro contenant un gestionnaire
d'erreur. Le lendemain, quand j'ai voulu tester à nouveau ma procédure,
elle
fonctionait plus. Voici une prodcédure toute simple qui ne fonctionne pas,
mais qui fonctionne chez des copains à qui je l'ai envoyée:

Public Sub div_zéro()
Dim Résul, Nombre, diviseur

Nombre = InputBox(1, Nombre)

diviseur = InputBox(1, diviseur)
On Error GoTo Message
Résul = Nombre / diviseur
MsgBox (Résul)
Exit Sub
Message:
MsgBox ("division par 0")
End Sub

J'ai désintallé office 2003 puis réinstallé. En vain

Comment réactiver cette partie de VBA

Merci de votre aide



Avatar
lSteph
Bonsoir,

Un témoignage de plus, chez moi ta macro fonctionne.

Cordialement.

lSteph
"Andrew" a écrit dans le message de news:
45084f1c$
Bonjour
La semaine passe, j'ai voulu créer une macro contenant un gestionnaire
d'erreur. Le lendemain, quand j'ai voulu tester à nouveau ma procédure,
elle
fonctionait plus. Voici une prodcédure toute simple qui ne fonctionne pas,
mais qui fonctionne chez des copains à qui je l'ai envoyée:

Public Sub div_zéro()
Dim Résul, Nombre, diviseur

Nombre = InputBox(1, Nombre)

diviseur = InputBox(1, diviseur)
On Error GoTo Message
Résul = Nombre / diviseur
MsgBox (Résul)
Exit Sub
Message:
MsgBox ("division par 0")
End Sub

J'ai désintallé office 2003 puis réinstallé. En vain

Comment réactiver cette partie de VBA

Merci de votre aide



Avatar
Francois L
Bonjour
(...) Voici une prodcédure toute simple qui ne fonctionne pas,
mais qui fonctionne chez des copains à qui je l'ai envoyée:



Bonsoir,

Chez moi aussi, ça fonctionne (XL2000)

--
François L

Avatar
Georges
Vous n'auriez pas oublié, après la réinstall, de cocher la case de la macro
complémentaire Utilitaire d'analyse - VBA ?
Je ne sais pas, hein, je cherche !
Georges

"Andrew" a écrit dans le message de news:
45084f1c$
Bonjour
La semaine passe, j'ai voulu créer une macro contenant un gestionnaire
d'erreur. Le lendemain, quand j'ai voulu tester à nouveau ma procédure,
elle
fonctionait plus. Voici une prodcédure toute simple qui ne fonctionne pas,
mais qui fonctionne chez des copains à qui je l'ai envoyée:

Public Sub div_zéro()
Dim Résul, Nombre, diviseur

Nombre = InputBox(1, Nombre)

diviseur = InputBox(1, diviseur)
On Error GoTo Message
Résul = Nombre / diviseur
MsgBox (Résul)
Exit Sub
Message:
MsgBox ("division par 0")
End Sub

J'ai désintallé office 2003 puis réinstallé. En vain

Comment réactiver cette partie de VBA

Merci de votre aide



Avatar
Oliv'
*Andrew que je salut a écrit *:
Bonjour
La semaine passe, j'ai voulu créer une macro contenant un gestionnaire
d'erreur. Le lendemain, quand j'ai voulu tester à nouveau ma
procédure, elle fonctionait plus. Voici une prodcédure toute simple
qui ne fonctionne pas, mais qui fonctionne chez des copains à qui je
l'ai envoyée:
Public Sub div_zéro()
Dim Résul, Nombre, diviseur

Nombre = InputBox(1, Nombre)

diviseur = InputBox(1, diviseur)
On Error GoTo Message
Résul = Nombre / diviseur
MsgBox (Résul)
Exit Sub
Message:
MsgBox ("division par 0")
End Sub

J'ai désintallé office 2003 puis réinstallé. En vain

Comment réactiver cette partie de VBA

Merci de votre aide


DAns VBE (ALT+F11) outils /options/général
dans récupération d'erreur
cocher arret sur les erreur non gérées.

ca marche ?

--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~