|
|
|
|
Bonjour,
je voudrais savoir si il était possible en VBA de trouver la nieme occurence d'un cartere dans une chaine.
exemple
tata-titi-toto-tutu_oupa_ousi_ounon
trouver la position de la 3eme occurence du caractere - renvoie 15
trouver la position de la 2ème occurence du caractere _ renvoie 25
merci beaucoup de vos lumières.
La vie c'est comme une boite de chocolat, on ne sait jamais sur quoi on va tomber.Configuration: Windows XP
Internet Explorer 6.0
Bonjour,
Dim Caractere As String 'le caractère recherché Dim Chaine As String 'la chaîne dans laquelle on cherche Dim N As Integer ' la Nième occurence Dim LaPosition As Integer ' la position du Nième Caractere dans Chaine La boucle serait la suivante : Do
LaPosition = InStr(LaPosition + 1, Chaine, Caractere)
If LaPosition = 0 Then Exit Do
i = i + 1
Loop Until i = N
Elle renvoie 0 s'il n'y a pas de résultat. Selon l'usage que tu veux en faire, tu peux mettre ce code dans une procédure (Sub) ou dans une fonction (Function) I. |
Additem vba Code bouton radio vba Copier coller references relatives vba Cours vba Excel vba image internet Fmliststyleoption listbox vba Inserer ligne vba Langage vba Ou déclarer fonctions procedures vba Tutorial word vba Vba excel Vba excel 2003 et vba excel 2000 Vba excel 2007 Vba fonction si Vba msgbox variable Vba sql Vba temporisation Word vba signet userform
