N
Norty7
Guest
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.
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.