Equivalent de IsNuméric pour une lettre de l'alphabet ?

ERIC S

XLDnaute Barbatruc

• 20 Juillet 2006

• #2

Re : Equivalent de IsNuméric pour une lettre de l'alphabet ?

Bonjour

possibilités:

rien : If Len(saisie) = x Then...

exclure numérique: If Len(saisie) = x And not IsNumeric(saisie)=true Then...
ou If Len(saisie) = x And IsNumeric(saisie)=false Then...

exclure date: If Len(saisie) = x And not Isdate(saisie)=true Then...
ou If Len(saisie) = x And Isdate(saisie)=false Then...

A+

 

Vote positif 0 Vote négatif

BenHarber

XLDnaute Occasionnel

• 20 Juillet 2006

• #3

Re : Equivalent de IsNuméric pour une lettre de l'alphabet ?

Bonjour Eric et merci pour ta réponse...MAIS je crains que le fait d'exclure les saisies numériques + les saisies de dates autorisent quand même la saisie d'autres caractères (ex. les signes de ponctuation, les caractères spéciaux...) : or, je souhaite ne récupérer QUE les 26 lettres de l'alphabet !

BenHarber

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 20 Juillet 2006

• #4

Re : Equivalent de IsNuméric pour une lettre de l'alphabet ?

re

for I=1 to X
caractere=mid(saisie,I,1)
if asc(caractere)<65 then exit sub
if asc(caractere)>90 and asc(caractere)<97 then exit sub
if asc(caractere)>122 then exit sub
next

 

Vote positif 0 Vote négatif

BenHarber

XLDnaute Occasionnel

• 20 Juillet 2006

• #5

Re : Equivalent de IsNuméric pour une lettre de l'alphabet ?

OK Eric, là ça me va très bien !
(Je suppose que la fourchette 65 à 90 = saisie minuscule et fourchette de 97 à 122 = saisie MAJUSULE, c'est bien ça ?)

Merci encore pour ta réactivité. Sympa.

Cordialement,
BenHarber

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 20 Juillet 2006

• #6

Re : Equivalent de IsNuméric pour une lettre de l'alphabet ?

bonjour,

une autre solution par l'operateur like :

Code:

For i = 1 To Len(saisie)
    cpt = cpt - (UCase(Mid(saisie, i, 1)) Like "[A-Z]")
Next i

MsgBox IIf(cpt = Len(saisie), "bon", "pas bon")

on doit pouvoir éviter la boucle for to, mais j'ai pas trouvé

salut

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 20 Juillet 2006

• #7

Re : Equivalent de IsNuméric pour une lettre de l'alphabet ?

re

perdu
majuscules puis minuscules

voir aide vba "jeu"
et sélectionner jeu de caractères

A+

 

Vote positif 0 Vote négatif

BenHarber

XLDnaute Occasionnel

• 20 Juillet 2006

• #8

Re : Equivalent de IsNuméric pour une lettre de l'alphabet ?

RV,
Merci pour ta collaboration qui, si elle m'est actuellement incompréhensible, a le mérite d'attirer mon attention vers l'opérateur "Like" que je ne connais pas du tout !
'faut que je creuse pour comprendre son utilité et voir dans quel cas je peux l'appliquer !

Merci
BenHarber

 

Vote positif 0 Vote négatif

BenHarber

XLDnaute Occasionnel

• 20 Juillet 2006

• #9

Re : Equivalent de IsNuméric pour une lettre de l'alphabet ?

Ca y est !! J'ai enfin compris le sens de ton raisonnement !! (3 heures de décriptage pour 2 lignes de codes...hem...c'est pas vraiment une haute performance...)
Ton truc m'auras permis de découvrir le "Like" mais aussi la fonction "Lif", ignorée jusque là !

@+

Cordialement,
BeHarber

 

Vote positif 0 Vote négatif