Alan71
Messages postés530Date d'inscriptionlundi 3 juin 2002StatutMembreDernière intervention13 juin 2004
-
12 oct. 2002 à 12:34
I_TheDarkness_I
Messages postés2Date d'inscriptionmardi 3 mai 2005StatutMembreDerniè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.
I_TheDarkness_I
Messages postés2Date d'inscriptionmardi 3 mai 2005StatutMembreDerniè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és530Date d'inscriptionlundi 3 juin 2002StatutMembreDernière intervention13 juin 2004 12 oct. 2002 à 12:34
Scuzez si y a doublon ! Y me fé des erreurs de connection au serveur :(
3 mai 2005 à 13:41
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
12 oct. 2002 à 12:34
m'enfin, laissez un msg !