SOS VB
Bonjour, à tous et à toute Je n'arrive pas a régler mon Erreur d'exécution 13: Type incompatible En gestion d'erreur je ne suis pas très bon. j'aimerais intercepter l'erreur d'exécution 13 donner un message (msbox) à l'utilisateur de corriger l'erreure qu'il a
commis
voilà le code de ma macro
Private Sub LancerLeCalcul_Click()
N = AfficherChoix
Resultat = 0
i = 0
For i = 1 To N
Resultat = Resultat + 2 * i - 1
Next i
End Sub
commis
voilà le code de ma macro
Private Sub LancerLeCalcul_Click()
N = AfficherChoix
Resultat = 0
i = 0
For i = 1 To N
Resultat = Resultat + 2 * i - 1
Next i
End Sub
2 réponses
-
bonsoir,
a priori l'erreur vient du fait que AfficherChoix n'est pas initialisé avec un nombre.
plutôt que de gérer l'erreur, n'est il pas plus judicieux de vérifier si la saisie est numérique avant d'appeler Private Sub LancerLeCalcul_Click()
Bonne soirée -
Ou sinon, utilise ceci :
Try 'CODE Catch ex As Exception If ex = 13 Then MsgBox("Ton message en cas d'erreur 13", MsgBoxStyle.Critical, "Titre") End If End Try
