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

[Nashou]

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

Bonjour,

Voilà, je souhaite récupérer dans une cellule où il y a écrit XX1234XXX seulement le chiffre 1234 pour le mettre dans une autre cellule.
Je souhaiterai l'avoir sous forme de macro.

mc

Message édité par: Nashou, à: 27/07/2005 10:27

 

[Tenormadness]

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 ! ! !

 

[andré]

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

Salut,

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

Ândré.

 

[2passage]

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+

 

[Nashou]

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