Comment foncionne On Error GoTo ?

[trudy2]

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...

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]

Re : Comment foncionne On Error GoTo ?

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

 

[trudy2]

Re : Comment foncionne On Error GoTo ?

: 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]

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]

Re : Comment foncionne On Error GoTo ?

Bonjour à tous,

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

 

[kllmoon]

Re : Comment foncionne On Error GoTo ?

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

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