Identifier debut chaine!

[demax]

Bonjour
je souhaiterai identifier le debut d'une chaine de caractere savoir si C un chiffre ou une lettre pour l'utiliser dans une condition.
merci de m'eclairer

 

[ROGER2327]

Re : Identifier debut chaine!

Bonjour skoobi

Roger, tu ne connaissais pas IsNumeric?

Si. Et qu'en fais-je ?​

ROGER2327

 

[skoobi]

Re : Identifier debut chaine!

Ceci en reprenant ta fonction:

Function chiffreOuiNon(c As String) As Boolean
  chiffreOuiNon = IsNumeric(c)
End Function

😉

 

[ROGER2327]

Re : Identifier debut chaine!

Merci skoobi !

Sauf qu'il s'agit de

(...) savoir si le premier caractere est numerique (...)

Il conviendrait donc que la fonction renvoyât VRAI pour l'argument 8a, ce que ne fait pas la vôtre...​

ROGER2327

 

[skoobi]

Re : Identifier debut chaine!

Ah oui, c'est vrai:

Function chiffreOuiNon(c As String) As Boolean
  chiffreOuiNon = IsNumeric(Left(c, 1))
End Function

Où si on veut faire court:

Function chiffreOuiNon(c As String) As Boolean
  chiffreOuiNon = c Like "#*"
End Function

 

[ROGER2327]

Re : Identifier debut chaine!

Cette fois-ci, OK... ...comme disait pierrejean ce matin

Quelque chose du genre:

If IsNumeric(Left(Range("A1"), 1)) then

Bonne soirée !
ROGER2327