Position inversé

Position "inverse" d'un caractère dans une chaîne

Alternative à la fonction apparue avec Access 2000

Donne la position en partant de la gauche, du premier caractère trouvé en partant de la droite !!
 

Public Function fInStrRev(ByVal sIn As String, sFind As String, _
                          Optional nStart As Long = 1, _
                          Optional bCompare As Long = vbBinaryCompare) _
                          As Long
    Dim nPos As Long

    sIn = fStrReverse(sIn)
    sFind = fStrReverse(sFind)
    nPos = InStr(nStart, sIn, sFind, bCompare)

    If nPos = 0 Then
        fInStrRev = 0
    Else
        fInStrRev = Len(sIn) - nPos - Len(sFind) + 2
    End If

End Function