chercher la position d'un caractère dans une cellule

[Norty7]

Hello tous,

J'ai trouvé ce bout de code qui permet de chercher la position du 2eme, 4eme, 7eme.... espace dans une cellule.

Function posesp(ici As Range, ParamArray ch() As Variant)
Dim p()
texte = ici.Value
L = Len(texte)
ReDim p(1 To L)
For i = 1 To L
If Asc(Mid(texte, i, 1)) = 32 Then
j = j + 1
p(j) = i
End If
Next i
For j = 0 To UBound(ch)
posesp = posesp & p(ch(j)) & "-"
Next j
End Function

comment faire pour chercher le "-" au lieu de chercher l'espace???

D'avance merci de votre aide.

 

[pierrejean]

Re : chercher la position d'un caractère dans une cellule

Bonjour norty

Remplacer

If Asc(Mid(texte, i, 1)) = 32 Then

par

If Asc(Mid(texte, i, 1)) = [COLOR=blue]45[/COLOR] Then

 

[Cousinhub]

Re : chercher la position d'un caractère dans une cellule

Bonjour,

La fonction "Asc" en VBA correspond à la formule "CODE" sur une feuille Excel

Sachant que le code d'un espace est 32, et que le code d'un tiret est 45....

Bonne journée

Hi, Salut PierreJean, ça faisait un moment que nos chemins ne s'étaient croisés....

 

[job75]

Re : chercher la position d'un caractère dans une cellule

Bonjour Norty7, salut pierrejean

Comprends pas trop, au lieu de :

If Asc(Mid(texte, i, 1)) = 32 Then

pourquoi pas :

If Mid(texte, i, 1) = " " Then

Edit : heureux de te croiser bhbh

A+

 

[pierrejean]

Re : chercher la position d'un caractère dans une cellule

Re

@ bhbh Salut
@ Job75
Bonne question a poser a l'auteur de la fonction originale

 

[Cousinhub]

Re : chercher la position d'un caractère dans une cellule

Re-,

Tout pareil, Job

Et effectivement, le nez dans le guidon, pas fait gaffe à ce "détail"...

Toujours l'œil exercé...

 

[Norty7]

Re : chercher la position d'un caractère dans une cellule

Chapeau bien bas PierreJean...thanks a lot

 

[Cousinhub]

Re : chercher la position d'un caractère dans une cellule

Re-,

De rien.....Toujours un plaisir....

 

[job75]

Re : chercher la position d'un caractère dans une cellule

Re,

Plaisir partagé

A une autre fois pitêtre.

 

[Norty7]

Re : chercher la position d'un caractère dans une cellule

Merci les ga...vous êtes plus réactifs que le help desk de la boite ou je bosse.