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 :
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
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
Le soucis c'est que ça sors directement de la procédure sans rien m'afficher ? POURQUOI ?
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
Partager