Demande d'aide

[atoss77]

Bonjour

j'ai effectué une mission qui consiste à relever les 5 caractères d'une plaque d'immatriculation.

Ensuite elles ont été saisie sous Excel en colonne.

Je voudrais comment je peux faire pour vérifier la saisie
sachant que une plaque peut s'écrire (X = un chiffre et L= une lettre sans espace) :
xxlll
xxxll
xxxxl
llxxx


merci pour votre aide

 

[Pierrot93]

Re : Demande d'aide

Bonjour,

alors toi, on peut dire que tu as de la chance... dans les discussions similaires, en bas de celui-ci il y a 4 fils sur le même sujet.....

bon après midi
@+

 

[atoss77]

Re : Demande d'aide

merci mais je ne vois pas.

 

[JCGL]

Re : Demande d'aide

Bonjour à tous,
Salut Pierrot... Le Taquin ;-)

Bienvenue à Atoss sur XLD

Atoss : Pour vérifier la présence de 5 caractères :

=SI(NBCAR(A2)<>5,"Oups","OK")

Ensuite je n'ai pas tout compris...

A+ à tous

 

[Pierrot93]

Re : Demande d'aide

Re,

https://www.excel-downloads.com/threads/demande-daide.144035/

https://www.excel-downloads.com/threads/demande-daide.120704/

titre de la discussion pas très explicite... voir la charte :
Lien supprimé

Edition : bonjour Jean-Claude🙂

 

[atoss77]

Re : Demande d'aide

Re

Voici une exemple de tableau de plaques immatriculation saisie

 

[natorp]

Re : Demande d'aide

Bjr Atoss

Et que souhaites-tu ???

Cordialement, Gérard

 

[JCGL]

Re : Demande d'aide

Bonjour à tous,
Salut Gérard,

Atoss : tu souhaites mettre en évidence les immatriculations que ne correspondent pas à tes critères cités dans ton message d'origine ?

A+ à tous

 

[david84]

Re : Demande d'aide

Bonjour tout le monde, Jean-Claude🙂
@Pierrot🙂 j'adore ton humour...
peut-être avec une fonction personnalisée en utilisant RegExp (pensée pour JNP🙂):

Function Teste(ATester As String) As Boolean
Dim Match, Matches
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "^(\d{2}[a-zA-Z]{3}|\d{3}[a-zA-Z]{2}|\d{4}[a-zA-Z]{1}|[a-zA-Z]{2}\d{3})$"
    Set Matches = .Execute(ATester)
    If Matches.Count = 1 Then Teste = True Else Teste = False
End With
End Function

Testé rapidement donc à vérifier les différents cas de figure.
Pattern à enrichir selon les cas non prévus actuellement.
A+
EDit : le pattern actuel accepte les lettres minuscules : est-ce ce que tu veux ? Sinon le remplacer par

.Pattern = "^(\d{2}[A-Z]{3}|\d{3}[A-Z]{2}|\d{4}[A-Z]{1}|[A-Z]{2}\d{3})$"

 

[TempusFugit]

Re : Demande d'aide

Bonjour

david84: tu me permets d'employer mon premier IIF de ce début d'aprés-midi
Quoi que finalement on peut même s'en affranchir.

Function Teste(ATester As String) As Boolean
Dim Match, Matches
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "^(\d{2}[a-zA-Z]{3}|\d{3}[a-zA-Z]{2}|\d{4}[a-zA-Z]{1}|[a-zA-Z]{2}\d{3})$"
    Set Matches = .Execute(ATester)
    Teste= (Matches.Count = 1) 
End With
End Function

 

[tototiti2008]

Re : Demande d'aide

Bonjour à tous,

peut-être en formule, sinon
en B2 le numéro de plaque, renverra VRAI si valide

=ESTNUM(EQUIV((SI(ET(CODE(STXT(B2;1;1))>47;CODE(STXT(B2;1;1))<58);"x";"l")&SI(ET(CODE(STXT(B2;2;1))>47;CODE(STXT(B2;2;1))<58);"x";"l")&SI(ET(CODE(STXT(B2;3;1))>47;CODE(STXT(B2;3;1))<58);"x";"l")&SI(ET(CODE(STXT(B2;4;1))>47;CODE(STXT(B2;4;1))<58);"x";"l")&SI(ET(CODE(STXT(B2;5;1))>47;CODE(STXT(B2;5;1))<58);"x";"l"));{"xxlll";"xxxll";"xxxxl";"llxxx"};0))

 

[JBOBO]

Re : Demande d'aide

Bonjour,

Une autre solution mais le resultat reste le meme :

=OU(SI(ESTNUM(CNUM(STXT(B2;1;1)))=VRAI;"x";"l")&SI(ESTNUM(CNUM(STXT(B2;2;1)))=VRAI;"x";"l")&SI(ESTNUM(CNUM(STXT(B2;3;1)))=VRAI;"x";"l")&SI(ESTNUM(CNUM(STXT(B2;4;1)))=VRAI;"x";"l")&SI(ESTNUM(CNUM(STXT(B2;5;1)))=VRAI;"x";"l")={"xxlll";"xxxll";"xxxxl";"llxxx"})