Les 4 dernieres lettres!!!

[demax]

bonjour
j'ai ce petit code

if Not IsNumeric(Right(Target, 4)) then ...

donc pour moi je voudrais reperer les quatre dernieres lettres
mais actuellement meme avec 2 dernieres lettres il rentre dans la condition
ai je oublié quelques chose?🙁
merci

 

[PascalXLD]

Re : Les 4 dernieres lettres!!!

Mais actuellement meme avec 2 dernieres lettres il rentre dans la condition
ai je oublié quelques chose?🙁
merci

Bonjour

Je ne comprends pas la question 😱

 

[jp14]

Re : Les 4 dernieres lettres!!!

Bonjour demax
Bonjour PascalXLD
Une piste
Il faudrait tester le nombre de carractères car 4 indique simplement le maximum et non le nombre.

JP

 

[vbacrumble]

Re : Les 4 dernieres lettres!!!

Bonjour tous

A voir

Sub macro()
Dim l$, c$
l = "abcdefghijklmEFGH"
c = "abcefgh1234"
If Not IsNumeric(Mid(l, (Len(l) - 4) + 1, 4)) Then
MsgBox Mid(l, (Len(l) - 4) + 1, 4)
End If
If IsNumeric(Val(Mid(d, (Len(c) - 4) + 1, 4))) Then
MsgBox Mid(c, (Len(c) - 4) + 1, 4)
End If
End Sub

A+

 

[demax]

Re : Les 4 dernieres lettres!!!

re
jp14 a compris ce que je voulais et j'ai pioché dans le code de vbacrumble
mais ca coince je me suis fais ca

Not IsNumeric(Len(Right(Target, 4)))

mais marcha pas🙁
je vais modifier ma recherche peux etre en recuperant 4 lettres dans ma chaine et non pas les 4 dernieres ce qui m'arrrangerais aussi
si vous avez un truc n'hesite pas
merci😀

 

[jp14]

Re : Les 4 dernieres lettres!!!

Bonjour

Avec deux tests
If len(Target) > 4 then
if Not IsNumeric(Right(Target, 4)) then ...
end if
JP

 

[demax]

Re : Les 4 dernieres lettres!!!

re
je suis deja dans un elseif

ElseIf Not IsNumeric(Len(Right(Target, 4))) Then
MsgBox "ok"
Else

++