Discussion :

[thomasmrl]

Bonjour, je souhaite vérifier que mon textbox ne contient bien que des chiffres lorsque je clique sur mon bouton valider.
Si ce n'est pas le cas je souhaiterais une fenêtre d'erreur pour avertir l'utilisateur.

j'ai donc programmé ceci mais ça ne fonctionne pas..

PS: si c'est bien que des chiffres, je veux le mettre dans une variable, mais ceci fonctionne bien !

Code :

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

1
2
3
4
5
6
 
If Int(Txt01.Text) Then
        largeurE(nbvaleur) = Me.Txt01.Text
    Else
        MsgBox "Rentrez que des nombres dans les caractéristiques svp."
    End If

merci d'avance !

[Miistik]

Bonjour,

Sauf erreur, la fonction Int() renvoit la partie entière d'un nombre.
Ex : 2.7 renverra 2 et -1.5 renverra -2.

Dans ton cas, une expression régulière fera l'affaire avec un motif du style [0-9]+.

Code :

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

1
2
3
4
5
6
7
Dim RegEx As RegExp
Set RegEx = New RegExp
With RegEx
        .IgnoreCase = True
        .Global = True 'True matches all occurances, False matches the first occurance
        .Pattern = "[0-9]+"
End With

[hackoofr]

Ou bien aussi il y a la Fonction IsNumeric()

If IsNumeric(Txt01.Text) Then

[hackoofr]

un exemple en Vbscript pour évaluer une expression mathématique avec utilisation de la fonction IsNumeric()

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Dim Title : Title = "Calculate Numbers"
Set ws = CreateObject("wscript.Shell")
Do
    Call Calculate()
    Call Ask_Question()
Loop
 
Sub Calculate()
    Do 
        X  = Trim(InputBox("Enter the first number X to evaluate this expression :(Log(X)/Log(10) + Y * Log(Z)/Log(10))",Title,"1000")) 
        If Not IsNumeric(X)  Then
            ws.Popup "YOU MUST TYPE A DIGIT NUMBER !","1",Title,0+48
            X = ""
        End if
        If  X = "" Then
            Wscript.Quit
        End if
 
        Y  = Trim(InputBox("Enter the second number Y to evaluate this expression :(Log("&X&")/Log(10) + Y * Log(Z)/Log(10))",Title,"2000"))
        If Not IsNumeric(Y) Then
            ws.Popup "YOU MUST TYPE A DIGIT NUMBER !","1",Title,0+48
            Y = ""    
        End if 
        If  Y = "" Then
            Wscript.Quit
        End if
 
        Z  = Trim(InputBox("Enter the third Number Z to evaluate this expression :(Log(X)/Log(10) + "&Y&" * Log(Z)/Log(10))",Title,"3000")) 
        If Not IsNumeric(Z) Then
            ws.Popup "YOU MUST TYPE A DIGIT NUMBER !","1",Title,0+48
            Z = ""
        End if 
        If  Z = "" Then
            Wscript.Quit
        End if
    Loop Until IsNumeric(Z) and IsNumeric(X) and IsNumeric(Y)
    MsgBox "Log("&X&")/Log(10) + "&Y&" * Log("&Z&")/Log(10) = " & Int(Log(X)/Log(10) + Y * Log(Z)/Log(10)),64,Title 
End Sub
 
Sub Ask_Question()
    Question = MsgBox ("Did you want to Calculate again ?",VBYesNO+VbQuestion,Title)
    If Question = VbYes then
        Call Calculate()
    else
        Wscript.Quit    
    end if
End Sub

[l_autodidacte]

Ou bien aussi il y a la Fonction IsNumeric()

Cela va dépendre des paramètres régionaux : si le séparateur décimal est un piont(.), dans le TextBox on doit saisir un point comme séparateur décimal.
Si c'est une virgule, on doit l'utiliser comme séparateur décimal.

[DAUDET78]

Plutôt que de vérifier ..... autant prévenir !

Code :

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

1
2
3
4
5
6
7
8
Private Sub Valeur_KeyPress( KeyAscii As Integer)
Select Case KeyAscii
    Case 48 To 57, 8, Asc(",")
    Case Asc(".") : KeyAscii = Asc(",")
    Case Else : KeyAscii = 0: Beep
End Select
 
End Sub

Avec ce programme, tu ne peux rentrer que des chiffres
Avec ce programme, le séparateur est toujours une virgule
Si tu rentres autre chose, tu as un Bip d'alarme