AUX FIDÈLES UTILISATEURS DE VB5 -> INSTRREV

Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004 - 12 oct. 2002 à 12:34
I_TheDarkness_I Messages postés 2 Date d'inscription mardi 3 mai 2005 Statut Membre Dernière intervention 9 juin 2005 - 3 mai 2005 à 13:41
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

I_TheDarkness_I Messages postés 2 Date d'inscription mardi 3 mai 2005 Statut Membre Dernière intervention 9 juin 2005
3 mai 2005 à 13:41
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
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
12 oct. 2002 à 12:34
Scuzez si y a doublon ! Y me fé des erreurs de connection au serveur :(

m'enfin, laissez un msg !
Rejoignez-nous