AUX FIDÈLES UTILISATEURS DE VB5 -> INSTRREV

Signaler
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
-
Messages postés
2
Date d'inscription
mardi 3 mai 2005
Statut
Membre
Dernière intervention
9 juin 2005
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4744-aux-fideles-utilisateurs-de-vb5-gt-instrrev

Messages postés
2
Date d'inscription
mardi 3 mai 2005
Statut
Membre
Dernière intervention
9 juin 2005

Ya une méthode bcp plus simple et plus rapide :

Public Function InStrRev(MyStr As String, SearchStr As String, Optional MStart As Long, Optional Compare As VbCompareMethod = vbBinaryCompare) As Long
InStrRev = InStr(1, StrReverse(MyStr), SearchStr, Compare)
End Function
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

Scuzez si y a doublon ! Y me fé des erreurs de connection au serveur :(

m'enfin, laissez un msg !