Private Sub Command1_Click() On Error GoTo monerreur a = 0 + "b" Exit Sub monerreur: MsgBox Err.Number & " " & Err.Description End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Command1_Click() On Error GoTo monerreur Dim A As Long, B As Long B = 17 A = B/A 'division par zéro Exit Sub monerreur: MsgBox "Erreur n°" & Err.Number & " (0x" & Hex(Err.Number) & ") :" & vbCrlf & Err.Description End Sub