Discussion :

[zer0o]

bonjour,

je suis en difficulté pour trouver une formule qui me permette d'extraire les chiffres (tarif) d'une ligne de texte sous excel.

J'ai utilisé plusieurs méthode cependant sans jamais avoir le résultat voulu.

Exemple

prix: 123,52 E
prix: 23,2 E
prix: ,00 E
prix: 654123,56 E


/ 12345 ,45 cette somme repsente le prix...
/ 123 cette somme represente le prix du ...

Résultat attendu

123,52
23,2
0
654123,56


12345,45
123


Merci de votre aide

exemple excel.xls

[pijaku]

Bonjour,

Si tu as toujours ce schéma : "prix:_" nombre "_E" ou les underscores représentent un espace et nombre est ce que tu recherches, alors :

=STXT(A2;7;NBCAR(A2)-8)*1

[Patrice740]

Bonjour,

En attendant de trouver plus simple, uniquement à partir d'Excel 2007 (à cause du nombre d'imbrications) :
=SUPPRESPACE(STXT(STXT(A1;MIN(EQUIV(VRAI;ESTNUM(--STXT(A1;LIGNE($1:$254);2));0));255);1;TROUVE(" ";STXT(STXT(A1;MIN(EQUIV(VRAI;ESTNUM(--STXT(A1;LIGNE($1:$254);2));0));255);2;255))))+0

A valider par Ctrl+Maj+Entrée

Edit : pour xl 2003 :
=STXT(A1;MIN(EQUIV(VRAI;ESTNUM(--STXT(A1;LIGNE($1:$254);2));0));TROUVE(" ";A1;MIN(EQUIV(VRAI;ESTNUM(--STXT(A1;LIGNE($1:$254);2));0))+1)-MIN(EQUIV(VRAI;ESTNUM(--STXT(A1;LIGNE($1:$254);2));0)))+0

[zer0o]

Merci,

Vos formules marche parfaitement.

Pour cette formule-ci dessous, le seul petit défaut vient du fait que si j'étend la formule sur 50000 ligne le temps de calcul deviens considérable.

=STXT(A1;MIN(EQUIV(VRAI;ESTNUM(--STXT(A1;LIGNE($1:$254);2));0));TROUVE(" ";A1;MIN(EQUIV(VRAI;ESTNUM(--STXT(A1;LIGNE($1:$254);2));0))+1)-MIN(EQUIV(VRAI;ESTNUM(--STXT(A1;LIGNE($1:$254);2));0)))+0

[Patrice740]

Bonjour,

Pour être plus rapide, tu peux utiliser une fonction personnalisée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Private Module
Option Explicit
Public Function ExtraireNombre(str As String) As Variant
Dim t As Variant
Dim i As Integer
  t = Split(str, " ")
  For i = LBound(t) To UBound(t)
    ExtraireNombre = Val(Replace(t(i), ",", "."))
    If IsNumeric(t(i)) Then Exit Function
  Next i
  ExtraireNombre = ""
End Function

Patrice