Comment foncionne On Error GoTo ?

trudy2 · 7 Janvier 2010

Bonjour !

Ma question est simple, je ne sais pas utiliser "On Error GoTo". Le Sub test devrait m'afficher "Nombre négatif", mais ça ne marche pas...

Code:

Sub Test()

Dim n As Integer
Dim q As Double

n = -4

On Error GoTo Problem
q = n ^ (1 / 2)

MsgBox ("q = " & q)

Exit Sub

Problem:
    MsgBox ("Nombre négatif ?")
    
End Sub

Quelqu'un peut-il me corriger ceci ?

Merci d'avance !

Trudy

kllmoon · 7 Janvier 2010

Re : Comment foncionne On Error GoTo ?

Code:

: Problem
    MsgBox ("Nombre négatif ?")

trudy2 · 7 Janvier 2010

Re : Comment foncionne On Error GoTo ?

kllmoon à dit:
Code:

: Problem MsgBox ("Nombre négatif ?")

J'ai essayé, mais ça ne compile pas en mettant les ":" avant. Merci quand même. Quelqu'un d'autre a la solution ?

trudy2 · 7 Janvier 2010

Re : Comment foncionne On Error GoTo ?

J'ai trouvé l'erreur. C'était un mauvais réglage dans VBA. Voici comment je l'ai corrigé :

1) Dans VBA, Menu Tools
2) Options
3) Onglet General
4) Cocher "Break on Unhandled Errors"

tototiti2008 · 7 Janvier 2010

Re : Comment foncionne On Error GoTo ?

Bonjour à tous,

chez moi ton code original fonctionne trés bien...

kllmoon · 7 Janvier 2010

Re : Comment foncionne On Error GoTo ?

En fait tu avais le bon format, je me suis trompé.

Code:

Private Sub blabla()
On Error GoTo Errormanager
'ton code
Exit Sub
Errormanager:
  'code d'erreur
End Sub

Comment foncionne On Error GoTo ?

trudy2

XLDnaute Nouveau

kllmoon

XLDnaute Occasionnel

trudy2

XLDnaute Nouveau

trudy2

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

kllmoon

XLDnaute Occasionnel

Discussions similaires