Discussion :

[bouzakher]

salut,

je veut tester le contenue d'une variable s'il est numérique ou pas j essayer avec le isInt mais ca marche pas

[vva]

essaye avec cela IsNumeric

[bouzakher]

essaye avec cela IsNumeric

ca marche pas

[roro06]

Bonjour

Citation:
Envoyé par vva
essaye avec cela IsNumeric

ca marche pas

Ca doit marcher. Comment fais-tu ton test ?

IsNumeric returns True if the entire expression is recognized as a number; otherwise, it returns False. IsNumeric returns False if expression is a date expression.

[jg_lyon]

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
function estnumerique(str)
    str = trim(str)
    if isnull(str) or str = "" then
        estnumerique = false
        exit function
    end if
    dim n
    dim i
    Dim j
    Dim c
    Dim bUnSep
    n = len(str)
    j = 1
    c = mid(str, j, 1)
    if c = "+" or c = "-" then
        j = 2
    end if
    for i = j to n
        c = mid(str, i, 1)
        if c = "." or c = "," then
            if bUnSep then
                estnumerique = false
                exit function
            end if
            bUnSep = true
        else
            if c < "0" or c > "9" then
                estnumerique = false
                exit function
            end if
        end if
    next
    estnumerique = true
 end function

[bouzakher]

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
function estnumerique(str)
    str = trim(str)
    if isnull(str) or str = "" then
        estnumerique = false
        exit function
    end if
    dim n
    dim i
    Dim j
    Dim c
    Dim bUnSep
    n = len(str)
    j = 1
    c = mid(str, j, 1)
    if c = "+" or c = "-" then
        j = 2
    end if
    for i = j to n
        c = mid(str, i, 1)
        if c = "." or c = "," then
            if bUnSep then
                estnumerique = false
                exit function
            end if
            bUnSep = true
        else
            if c < "0" or c > "9" then
                estnumerique = false
                exit function
            end if
        end if
    next
    estnumerique = true
 end function

c'est résolu merci ca marche