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

 

[abcd]

Re : Identifier debut chaine!

Bonjour,

=ESTNUM(GAUCHE(A1)*1)
renvoie VRAI si le premier caractère de la valeur en A1 est un chiffre (et FAUX pour tout autre caractère).

abcd

 

[demax]

Re : Identifier debut chaine!

merci abcd
mais je souhaiterai l'avoir en code VBA😱

 

[abcd]

Re : Identifier debut chaine!

Re,

Il fallait le préciser dans ta question !

As-tu déjà entendu parler de l'enregistreur de macro ?

abcd

 

[demax]

Re : Identifier debut chaine!

oui effectivement je ne l'ai pas precisé!
enregistrement macro oui j'en ai entendu parler.
et alors tu peux m'en dire plus?
++

 

[pierrejean]

Re : Identifier debut chaine!

bonjour a tous

Quelque chose du genre:

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

 

[ROGER2327]

Re : Identifier debut chaine!

Bonjour à tous !

Function chiffreOuiNon(c As String) As Boolean
    chiffreOuiNon = Len(c) And (Asc(c & Space(1)) > 47) And (Asc(c & Space(1)) < 58)
End Function

Bonne journée !
ROGER2327

 

[demax]

Re : Identifier debut chaine!

If IsNumeric(Left(Range("A1"), 1)) then
ca C pour savoir si le premier caractere est numerique mais pour dire le contraire comment l'exprimer
en PHP on utilise le point d'exclamation mais VBA?
pour la fonction je sais pas comment l'utiliser🙁
merci

 

[pierrejean]

Re : Identifier debut chaine!

Re

pour le contraire c'est

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

 

[demax]

Re : Identifier debut chaine!

ouha et ben cool C pas trop compliqué mais il fallait le savoir
merci pierrejean de delivrer ton savoir!😉
Bon W.E

 

[pierrejean]

Re : Identifier debut chaine!

@ ROGER2327

Peux-tu m'expliquer ta fonction ?
(mes neurones courent tout affolés dans tous les sens !!)

 

[ROGER2327]

Re : Identifier debut chaine!

Pour demax :

#3 :

(...) mais je souhaiterai l'avoir en code VBA (...)

#8

(...) pour la fonction je sais pas comment l'utiliser (...)

Que voulez-vous exactement ?​

ROGER2327

 

[ROGER2327]

Re : Identifier debut chaine!

Bonjour pierrejean,

Je réponds bien volontiers à votre demande.

Problème :
Le contenu d'une cellule commence-t-il par un chiffre ? Répondre par VRAI ou FAUX.
Solution :
Première observation : il faut rendre un résultat booléen. On commence donc par :

Function chiffreOuiNon(c) [COLOR="Red"]As Boolean[/COLOR]

Envisageons les cas possibles :
La cellule est vide ; elle ne commence donc pas par un chiffre. Réponse : FAUX.
La cellule n'est pas vide ; elle contient un nombre ou une chaîne de caractères.
Pour unifier les possibilités, on considérera les nombres comme chaîne de caractères.
Pour ce faire on commence par :

Function chiffreOuiNon(c [COLOR="Red"]As String[/COLOR]) As Boolean

Cette chaîne peut être de longueur nulle. Réponse : FAUX. D'où :

	chiffreOuiNon = Len(c)

qui renvoie FAUX si c est de longueur nulle, VRAI sinon.
c étant supposé de longueur non nulle, si elle commence par un chiffre alors le code ASCII de son premier caractère est strictement supérieur à 47 et strictement inférieur à 58. Par conséquent :

	chiffreOuiNon = (Asc(c) > 47) And (Asc(c) < 58)

renvoie VRAI si la chaîne c commence par un chiffre, FAUX dans tous les autres cas.
Malheureusement, Asc(c) renvoie une erreur si c est de longueur nulle. On remédie à cet inconvénient en écrivant :

	chiffreOuiNon = (Asc(c & Space(1)) > 47) And (Asc(c & Space(1)) < 58)

La fonction Asc(c) ne prenant en compte que le premier caractère de son argument, Asc(c & Space(1)) renverra 32 (code ASCII de l'espace) si c est de longueur nulle.
En regroupant toutes les conditions, on obtient finalement :

	chiffreOuiNon = Len(c) And (Asc(c & Space(1)) > 47) And (Asc(c & Space(1)) < 58)

J'espère être assez clair.​

Cordialement,
ROGER2327

 

[pierrejean]

Re : Identifier debut chaine!

Re

Mes neurones vous remercient
Etant un peu primaire je ne voyais guere que: len(c) est un chiffre
Il me faut donc bien voir que traduit en booléen tout chiffre hormis 1 est traduit comme Faux
Par ailleurs je n'imaginais pas ce que pouvait donner Asc sur plus d'un caractere
Je viens donc d'apprendre qu'Asc s'interesse exclusivement au premier caractere d'un string
Merci encore

 

[skoobi]

Re : Identifier debut chaine!

Bonjour tout le monde,

Roger, tu ne connaissais pas IsNumeric?