Discussion :

[mohamed_75]

Bonjour,
J'ai crée un champ où je voulais empecher la saisie de valeurs non numériques ( c'est-à-dire des lettres ou signes spéciaux comme ? /* & .. ). J'ai utilisé la fonction isNumeric. Le problème est qu'apparemment cette fonction accepte les signes "+" et "-" mais seulement en début ou de fin de chaine.
Par exemple, si j'entre " 45+48 ", ce n'est pas accepté. Mais si j'entre " -45" ou "78+" c'est accepté.
j'ai rajouté une ligne qui est la suivante et qui en gros devait permettre de detecter la présence d'un signe "+" ou "-" en début ou en fin de chaines de caractères.

Code :

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

1
2
3
4
If Br1 Like "?+" Or Br1 Like "+?" Or Br1 Like "?-" Or Br1 Like "-?" Then
         MsgBox "le format du champ doit être du format numérique xxxxxxxxxx,xx "
 
End If

Mais cette ligne n'est pas executée. Je me demande si elle est écrite correctement. Sachant que Br1 est la valeur saisie dans le champ.

Est-ce que vous auriez une idée ?
Je vous remercie par avance

[Arkham46]

bjr,

le ? ne remplace qu'un caractère
utilisez * à la place

[mohamed_75]

Merci
apparement le problème venait de là.

[mohamed_75]

En fait je viens de me rendre compte que le "&" n'est pas non plus pris en compte par la fonction isNumeric. Est ce que vous connaissez une fonction ou une manière de détecter toutes les lettres et caractères spéciaux ( pour qu'à la fin seuls des chiffres soient acceptés dans le champ).
Merci

[Arkham46]

bjr

on peut toujours faire une fonction qui regarde chaque caractère :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Function IsOnlyNumber(pStr As String) As Boolean
Dim lCpt As Long
If Len(pStr) = 0 Then IsOnlyNumber = False: Exit Function
IsOnlyNumber = True
For lCpt = 1 To Len(pStr)
    If Not Mid(pStr, lCpt, 1) Like "[0-9]" Then
        IsOnlyNumber = False
    End If
Next
End Function

pour les opérateurs possibles pour le like c'est ici :
http://loufab.developpez.com/tutorie...operateurlike/