Fonction instrc

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 828 fois - Téléchargée 68 fois

Commenter

Contenu du snippet

Code à insérer dans un module

Source / Exemple : 


'La fonction InStr utilise le paramètre optionnel "Compare" : 0 Comparaison binaire,
'1 : Comparaison de texte sans différentiation de majuscules et minuscules. Cette option
'retourne une erreur si l'une des chaines contient un caractère non alphabétique 
'(par exemple "/"). La fonction ci après permet de resoudre cette difficulté

Public Function InStrC(ByVal ChaineContenante As String, ChaineContenue As _
                String, Optional ByVal Origine As Integer) As Integer
     If ChaineContenante = "" Then InStrC = 0: Exit Function
     If Origine < 0 Then Origine = 1
     ChaineContenante = LCase(ChaineContenante)
     ChaineContenue = LCase(ChaineContenue)
     InStrC = InStr(Origine, ChaineContenante, ChaineContenue)
End Function

A voir également

Ajouter un commentaire

Commentaire

Signaler
-
Astucieux. Bon travail mec ;-)
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_GMI)