remplacer le IsNumeric

Bonjour,

Que dois-je mettre à la place de IsNumeric pour afficher le message si l'utilisateur tape un nombre supérieur à 1. Je n'es pas trouvé.

Code:

1
2
3
4
If Me.Labelb.Text Is Nothing Or Not IsNumeric(Me.Labelb.Text) Then
            MessageBox.Show("Entrez une valeur numérique comprise entre 0 et 1 pour b")
            Bon = False
        End If

Puis j'aimerais aussi savoir si jamais l'utilisateur tape un nombre négatif.

Code:

1
2
3
4
If Me.Labelb.Text Is Nothing Or Not IsNumeric(Me.Labelb.Text) Then
            MessageBox.Show("Entrez une valeur numérique positive pour b")
            Bon = False
        End If

Merci

If Me.Labelb.Text Is Nothing Or Not IsNumeric(Me.Labelb.Text) Then MessageBox.Show("Entrez une valeur numérique comprise entre 0 et 1 pour b") Bon = False else ' Cas d'une valeur numérique select case CType(Me.Labelb.Text, Double) case is < 0 ' La valeur est inférieur à 0 MessageBox.Show("Entrez une valeur numérique positive pour b") Bon = False case is > 1 ' La valeur est supérieur à 1 MessageBox.Show("Entrez une valeur numérique entre 0 et 1") Bon = False End Select End If