Les 4 dernieres lettres!!!

PascalXLD

XLDnaute Barbatruc

• 19 Février 2009

• #2

Re : Les 4 dernieres lettres!!!

demax à dit:

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

Cliquez pour agrandir...

Bonjour

Je ne comprends pas la question 😱

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 19 Février 2009

• #3

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

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 19 Février 2009

• #4

Re : Les 4 dernieres lettres!!!

Bonjour tous

A voir

Code:

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+

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 19 Février 2009

• #5

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)))

Cliquez pour agrandir...

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😀

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 19 Février 2009

• #6

Re : Les 4 dernieres lettres!!!

Bonjour

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

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 19 Février 2009

• #7

Re : Les 4 dernieres lettres!!!

re
je suis deja dans un elseif

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

Cliquez pour agrandir...

++

 

Vote positif 0 Vote négatif