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...
Quelqu'un peut-il me corriger ceci ?
Merci d'avance !
Trudy
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
Dernière édition: