Bonjour,

Dans un traitement réalisé dans une procédure TestParam, je test les TextBox pour vérifier si leur contenu correspond à ce que j'attend (entier, décimal ...)

J'utilise cette fonction :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Public Function VerifType(ByVal text As String) As Integer 'renvoi 0 si entier 1 si decimal -1 si pas un nombre
        Dim D As Double
        If IsNumeric(text) Then
            D = CDbl(text)
            If D - Int(D) = 0 Then
                'Le nombre est entier 
                VerifType = 0
            Else
                'Le nombre est décimal
                VerifType = 1
            End If
        Else
            VerifType = -1
            'Ce n'est pas un nombre 
        End If
    End Function
Dans ma procédure et si il y a un soucis j'aimerai avoir un petit msgbox qui m'indique où est le problème et je sors de la procédure TestParam. voici ce que je fais :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
        If Form1.VerifType(TextBox9.Text) <> 0 Then
 
            MsgBox(My.Resources.Resource.Error1 & " - " & Label31.Text)
 
            Exit Sub
        End If
Le soucis c'est que ça sors directement de la procédure sans rien m'afficher ? POURQUOI ?