Petite question pour les experts

Réponse acceptée !
pardon j'ai mal copier mo exemple :

        If IsNumeric(Text1.Text) Then
            Dim d As Double = CDbl(Text1.Text)

            If (d >= 0) And (d <= 20) Then

                MsgBox("good")

            Else
                MsgBox("wrong")

            End If
        Else
            MsgBox("wrong")
        End If

Jérémy Jeanson MCP

Réponse acceptée !
SaluE aussi

Comme son nom l'indique, Text1.Text est ... du texte.
Une comparaison directe entre un texte et un chiffre peut quelque fois révéler des surprises.
La prochaine fois, dit le, ça augmentera tes chances d'avoir de l'aide.

Ton problème est l'ordre des tests : Avant de vérifier que la valeur est bien comprise entre 0 et 20, assure toi que la valeur est bien reconnue comme un chiffre
--> Mets le IsNumeric avant le test d'intervale.
Car, si tu compares un texte avec un chiffre, tu obtiens une erreur de type incompatible, c'est normal.
Le problème, c'est que la virgule ou le point (je ne sais plus) n'est pas reconnu comme une vraie virgule à cause du fait que les français et les anglais n'utilisent pas le même symbole.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

---

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Réponse acceptée !

Bonjour,

1) Petite question pour les experts n'est pas un titre explicite (évite ce genre de titre)
2) Ta question est très loin d'être une question "pour experts" !!!
3) "méme mon prof de VB na pas trouver la solution" ===>> change très vite de prof, car c'est du niveau débutant
4) tu ne nous parles ni de de que tu permets ou non la saisie de nombres décimaux, ni (si nombres décimaux permis) du séparateur utilisé !!!

Voilà un bout de code uiltra-simple aui permet la saisie, quel que soit ce séparateur :

Private Sub Command1_Click()
    If Not IsNumeric(Replace(Text1.Text, ".", ",")) Then
      MsgBox "ce n'est pas un nombre valable)"
    ElseIf Val(Text1.Text) >= 0 And Val(Text1.Text) <= 20 Then
      MsgBox "bon"
    Else
      MsgBox "nombre valable mais non compris entre 0 et 20"
    End If
End Sub