Discussion :

[doudou47]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sankasssss]

Bonsoir,

tu peux faire ca avec des if ou un select case...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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