chiffre ou caractère

[julien]

j'ai écrit cette fonction dans le but de savoir si lorsque je rentre un chiffre du format 140.77.112.217 ou 14077112217 je puisse savoir si en position 4 il y a un point ou un chiffre et de ce fait si ma valeur est string ou nombre mais je n'arrive pas à rendre un résultat...

Function isnumberr(no_avs As Variant)
If Application.WorksheetFunction.IsNumber(mid(no_avs, 4, 1)) = False Then
avs_naiss1 = False
ElseIf no_avs - Int(no_avs) = 0 Then
avs_naiss1 = True
Else: avs_naiss1 = False
End If
isnumberr = avs_naiss1

End Function

quelqu'un sait-il pourquoi?

merci à tous

 

[jp]

Salut à toi Julien,

Serait-on encore dans un numéro de Sécu... par hasard ?

en attente...


jp

 

[julien]

oui mais la il s'agit plus de comprendre pourquoi je n'arrive pas à avoir un true losque c'est un chiffre et false lorsque c'est une chaîne de caractères....je dissèque, je dissèque

 

[Minick]

Salut,

essai comme ca

Function isnumberr(no_avs As Variant)
If IsNumeric(mid(no_avs, 4, 1)) = False Then
avs_naiss1 = False
ElseIf no_avs - Int(no_avs) = 0 Then
avs_naiss1 = True
Else: avs_naiss1 = False
End If
isnumberr = avs_naiss1

End Function



@+
Minick

 

[ZON]

Bonsoir à tous,

Julien il faut que ta fonction renvoie un résultat si tu veux t'en servir ailleurs,
on peut écrire le code de la façon suivante, Si le caractere en position 4 isnumber prend true sinon dans les autres cas elle renvoire false

Function isnumberr(no_avs As string) as boolean
isnumber=iif( IsNumeric(mid(no_avs, 4, 1)),True,False)
end function

A+++