Access 97

Salut Raymond,

oups, tiens, je ne me souvenais pas que fInstrrev dépendait de cette fonction....
juste au dessus ;-)

Public Function fStrReverse(ByVal sIn As String) As String
Dim nC As Integer, sOut As String
For nC = Len(sIn) To 1 Step -1
sOut = sOut & Mid(sIn, nC, 1)
Next nC
fStrReverse = sOut
End Function

à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

Raymond [mvp] wrote:
| bonsoir Arnaud.
|
| d'où vient fStrReverse ?
|
|
| "Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le
| message de news:uoz%23T9UVEHA.1652@TK2MSFTNGP09.phx.gbl...
|| Salut Jessy
|| Voici la mienne ... efin celle de snack de mémoire, je crois ;-))
|| 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

ça va mieux là.

ça fait plus compliqué que celle que j'avais fait et surtout que celle de
Jessy. J'ai adopté celle de jessy.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:%23X$dK4VVEHA.2408@tk2msftngp13.phx.gbl...

Salut Raymond,

oups, tiens, je ne me souvenais pas que fInstrrev dépendait de cette
fonction....

juste au dessus ;-)