Connaître l'emplacement d'un xième caractère dans une chaîne

[Magic_Doctor]

Bonjours à tout le forum,

Quelqu'un ou quelqu'une d'entre-vous pourrait me dire comment savoir, par le biais d'une macro ou une fonction, quelle est la position dans une chaîne du, par exemple, 3ème espace.
Ex : chaîne = "rien ne sert de courir, il faut partir à point"
je désire : 3ème " " = 13

Merci pour toute réponse qui pourra m'aider.

 

[matthieu33]

Re : Connaître l'emplacement d'un xième caractère dans une chaîne

Bonjour Magic_Doctor,

Voici une solution avec une fonction :
En A1 : "rien ne sert de courir, il faut partir à point"
En B1 : =CHERCHE(" ";A1;CHERCHE(" ";A1;CHERCHE(" ";A1;1)+1)+1)

@+

 

[matthieu33]

Re : Connaître l'emplacement d'un xième caractère dans une chaîne

re,

Une autre solution en VBA

@+

 

[Tibo]

Re : Connaître l'emplacement d'un xième caractère dans une chaîne

Bonjour,

Une formule pour trouver le nième caractère x :

=CHERCHE("µ";SUBSTITUE(A1;"[COLOR=red]x[/COLOR]";"µ";[COLOR=red]3[/COLOR]))

Dans le cas présent, il s'agit de rechercher le 3ème "x"

@+

 

[Magic_Doctor]

Re : Connaître l'emplacement d'un xième caractère dans une chaîne

Merci pour vos réponses.

J'ai bien regardé celle que matthieu33 a joint, et m'inspirant de sa macro je l'ai modifiée en fonction. J'apprécie tout particulièrement les fonctions qui, polyvalentes, peuvent être utilisées depuis la feuille ou directement dans une macro.
Avec cette fonction on peut trouver n'importe quel caractère dans n'importe quelle chaîne à n'importe quelle position.

Public Function PosCarDansChaine(chaine$, car$, pos%)
Dim intPos%, i%

intPos% = 0

For i% = 1 To pos%
If InStr(intPos% + 1, chaine$, car$) <> 0 Then
intPos% = InStr(intPos + 1, chaine$, car$)
Else
intPos = 0
Exit Function
End If
Next i%
PosCarDansChaine = intPos
End Function


Matthieu 33 encore merci !

 

[Gengiskhan]

Liste dynamique Re : Connaître l'emplacement d'un xième caractère dans une chaîne

Bonjour le Forum,
Dans le cadre de mon travail, je cherche à créer une liste dynamique en fonction de critères.
Dans cette quête j'ai trouvé la fonction élaboré au dessus par Magic_Doctor et matthieu33, celle-ci s'avère bien pratique pour ce que je souhaite faire, mais peut-être incomplète, dans la mesure où elle ne permet d'effectuer la recherche d'un caractère "que" dans une seule cellule, et non une plage. (autant pour moi si je me trompe).

Je vous joins un fichier avec un exemple.

merci beaucoup