Bonjour,

Un truc comme ça ?

#**
#* Permet de tester si une chaine ne contient bien que des chiffres
#* Renvoie 1 si oui et 0 si non
#*
#* @param VALEUR : Chaîne à tester
#*!
Funprog NUMERIQUE(VALEUR)
    Value Char VALEUR

    Local Integer YRETOUR # Permet de stocker le retour d'information
    Local Integer Y       # Pour les boucles
    Local Char YCAR(1)    # Pour les caractères extraits 1 à 1

    [L]YRETOUR = 1 # Par défaut Oui

    If len([L]VALEUR) > 0
        For Y = 1 To len([L]VALEUR)
            [L]YCAR = mid$([L]VALEUR, Y, 1)
            If !find([L]YCAR, '0', '1', '2', '3', '4', '5', '6', '7', '8', '9')
                [L]YRETOUR = 0 # Non
                Break 1 # On arrête si un seul caractère incorrect
            Endif
        Next
    Else
        [L]YRETOUR = 0
    Endif
End [L]YRETOUR

Cordialement,

Laurent

ça marche très bien merci beaucoup

ça marche très bien merci beaucoup