Récupérer une partie d\'un mot dans une cellule

Re:Récupérer une partie d'un mot dans une cellule

bonjour

Voici la macro tant attendue :

Function ExtractionChaine(pstrOrigine As String) As Long
Dim lintLen As Integer, lIdx As Integer, lstrFinal

lstrFinal = ''
For lIdx = 1 To Len(pstrOrigine)
Select Case Mid(pstrOrigine, lIdx, 1)
Case '0' To '9'
lstrFinal = lstrFinal & Mid(pstrOrigine, lIdx, 1)
Case Else
End Select
Next lIdx
ExtractionChaine = CLng(lstrFinal)
End Function

Bonne continuation ! ! !

Re:Récupérer une partie d'un mot dans une cellule

Salut,

Par formule : =SUBSTITUE(A1;'X';'')

Ândré.

Re:Récupérer une partie d'un mot dans une cellule

Bonjour,

=CNUM(SUBSTITUE(A1;'X';'') ) , pour violenter les fondements de drosophilia melanogaster...
A+

Re:Récupérer une partie d'un mot dans une cellule

En fait, j'ai trouvé une alternative.
J'utilise les fonctions GAUCHE et DROITE et je peux récupérer une partie du nom que je souhaite.

Mc quand meme