extraction d'une valeur

herve62

XLDnaute Barbatruc

Supporter XLD

• 29 Décembre 2018

• #2

Bonjour
Si dans A1 tu as ta chaine en B1 tu peux écrire :
STXT(A1;TROUVE(";";A1;1)+2;5)
Sachant que la longueur cherchée sera toujours de 5 pour ce cas avec espace après ";"

 

Vote positif 0 Vote négatif

D

Denis132

XLDnaute Impliqué

• 30 Décembre 2018

• #3

Bonsoir à vous 2,

Si tu n'as pas toujours le même nombre de chiffres entre les ;

Denis
P.S. Il y a sûrement plus court
@+

 

Pièces jointes

• essai.xlsm

  8.4 KB · Affichages: 19

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Décembre 2018

• #4

Bonjour Akram abdelhalim, herve62, Denis132,

Avec cette fonction VBA, à placer dans un module standard :

Code:

Function Extract(t$, sep$, n%)
Extract = Trim(Split(t, sep)(n - 1))
If IsNumeric(Extract) Then Extract = CDbl(Extract)
End Function

A+

 

Pièces jointes

• Extract(1).xlsm

  19 KB · Affichages: 18

Vote positif 0 Vote négatif