Les limites de IsNumeric

[Magic_Doctor]

Bonsoir,

Pour un contrôle de saisies j'utilise la fonction VBA IsNumeric.

J'ai fait des tests pour voir comment cette fonction réagissait.

IsNumeric(22) ---> VRAI
IsNumeric(3,5) ---> VRAI
IsNumeric(0,02,3) ---> FAUX
IsNumeric(-33,6) ---> VRAI
IsNumeric(zaza) ---> FAUX
.
.
.
mais : IsNumeric(6+) ---> VRAI (????)

IsNumeric(3*) ---> FAUX

mais : IsNumeric(3-) ---> VRAI (????)

Peut-on contourner ces bizarreries ?

Merci d'avance.

 

[Guest]

Re : Les limites de IsNumeric

Bonjour,

Tu peux essayer:

typename(activecell.Value)

Qui te donneras "String" si la cellule contient par exemple 6+

A+

 

[Magic_Doctor]

Re : Les limites de IsNumeric

Muchas gracias Hasco, ça marche !

 

[Magic_Doctor]

Re : Les limites de IsNumeric

Bonjour,

Toujours en quête d'un contrôle de saisies le plus performant possible, j'ai rencontré d'autres failles.

Dans ce contrôle de saisies je n'accepte que les valeurs numériques positives, la cellule vide et, selon le cas, la valeur 0.
Donc, tout ce qui est texte ou qui n'a pas de sens sera exclu.

Public Function ControleSaisie(saisie As Range, dilemme As Byte) As Byte
'Magic_Doctor/Hasco

If saisie = "" Then
ControleSaisie = 0 'la cellule vide est autorisée
ElseIf dilemme = 1 And saisie <= 0 Or Not IsNumeric(saisie) Or TypeName(saisie.Value) = "String" Then
ControleSaisie = 1 'cellule avec contenu non numérique ou <= 0 pas autorisée
ElseIf dilemme = 0 And saisie < 0 Or Not IsNumeric(saisie) Or TypeName(saisie.Value) = "String" Then
ControleSaisie = 1 'cellule avec contenu non numérique ou < 0 pas autorisée
Else
ControleSaisie = 0 'tout le reste est autorisé
End If

End Function

Mais maintenant si, par inadvertance (fatigue, soleil, boisson...) je rentre dans une cellule contrôlée :
--6 ---> le chiffre 6 va apparaître (normal : - X - = +) mais avec un agaçant petit logo d'erreur à gauche de la cellule. Comment faire pour que d'emblée --valeur numérique soit considéré comme une donnée erronée.
Idem pour ++6

Maintenant si je rentre uniquement ++ ou --, apparaît un message d'erreur qui, traduit au français, serait :
"Erreur dans la formule introduite..."
Comment faire pour que dans cette autre situation la saisie soit aussi considérée d'emblée comme une erreur ?