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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Norty7

XLDnaute Nouveau
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.
 
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....
 
Re : chercher la position d'un caractère dans une cellule

Bonjour Norty7, salut pierrejean 🙂

Comprends pas trop, au lieu de :

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

pourquoi pas :

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

Edit : heureux de te croiser bhbh 🙂

A+
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
233
Réponses
4
Affichages
177
Réponses
2
Affichages
123
Réponses
5
Affichages
235
Réponses
3
Affichages
193
Réponses
3
Affichages
582
Retour