SOS VB

renato -
Utilisateur anonyme - 10 mars 2011 à 18:04

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

Afficher la suite

A voir également:

SOS VB
Vb - Télécharger - Langages
Vb cable - Télécharger - Audio & Musique
Vb editor - Télécharger - Langages
Vb runtime - Télécharger - Divers Utilitaires
Vb express - Télécharger - Langages

2 réponses

Réponse 1 / 2

Paf

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

Réponse 2 / 2

Utilisateur anonyme

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

Discussions similaires

TP EN VB + COURS +EXERCICES CORRIGES

code vb.net

[VB]MsgBox avec variable

Sleep (Vb)

Votre réponse

Discussions similaires