pas mal mais y'a mieux :
Private Function RightOf(Chaine As String, Delim As String) As String
Dim i As Integer
i = Len(Chaine)
While Mid(Chaine, i, 1) <> Delim
RightOf = Right(Chaine, Len(Chaine) - i + 1)
i = i - 1
If i = 0 Then Exit Function 'c juste au cas où delim ne soit pas ds chaine (comme ça, ca plante pas comme ds ta version :-) )
Wend
end function
3 déc. 2001 à 09:25
y chaine de depart
a caractere separateur
x=right(y,instrrv(y,a)+1)
instrrv recherhe de la positon de a dans y à partire de la droite
24 juil. 2001 à 16:59
Private Function RightOf(Chaine As String, Delim As String) As String
Dim i As Integer
i = Len(Chaine)
While Mid(Chaine, i, 1) <> Delim
RightOf = Right(Chaine, Len(Chaine) - i + 1)
i = i - 1
If i = 0 Then Exit Function 'c juste au cas où delim ne soit pas ds chaine (comme ça, ca plante pas comme ds ta version :-) )
Wend
end function