Extraire 2 nombres d'un texte

Tibo

XLDnaute Barbatruc

• 23 Septembre 2010

• #2

Re : Extraire 2 nombres d'un texte

Bonjour Michel,

Une proposition formule :

Code:

=STXT(A1;3;CHERCHE("P";A1)-3)

et

Code:

=STXT(A1;CHERCHE("P";A1)+1;99)

à prévoir peut-être un SUBSTITUE pour remplacer le . par une ,

@+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 23 Septembre 2010

• #3

Re : Extraire 2 nombres d'un texte

Bonjour Michel,

Une fonction possible:

Code:

=SUBSTITUE(DROITE(A1;NBCAR(A1)-TROUVE("P";A1));".";",")*1

Par VBA:

Code:

Valeur=val(Right(Range("A1"), Len(Range("A1")) - InStrRev(Range("A1"), "P")))

A+

[Edit] Hello Tibo🙂

 

Dernière modification par un modérateur: 23 Septembre 2010

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 23 Septembre 2010

• #4

Re : Extraire 2 nombres d'un texte

Bonjour Tibo, Ges

Merci beaucoup pour vos solutions qui vont me faire gagner quelques heures de travail 😉.

Bon, j'avance à petit pas mais pas comme je le voudrais. J'en ai au moins pour 1 semaine à 15 jours 😱.

Bonne soirée 🙂.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Septembre 2010

• #5

Re : Extraire 2 nombres d'un texte

Bonjour MJ13,Tibo, Hasco, le fil, le forum


Une autre possibilité

VB:

Sub a()
Dim s$
's = "km125035P10.25"
s = "km125035P1.25"
MsgBox Val(Split(s, "P")(UBound(Split(s, "P"))))
MsgBox Val(Mid(Split(s, "P")(0), 3, 256))
End Sub

EDITION: 😱 voila le prix du litre est redevenu plus raisonnable

 

Dernière édition: 23 Septembre 2010

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 23 Septembre 2010

• #6

Re : Extraire 2 nombres d'un texte

Re, Bonjour JM

JM: Merci aussi pour ta proposition.

Je les intégrerai dans la prochaine version (come cela, on aura le choix 😉).

Par contre 10 euros 25 litres, non de d..., tu as deviné le prix de l'essence dans 10 ans 😛.

Bonne soirée 🙂.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Septembre 2010

• #7

Re : Extraire 2 nombres d'un texte

Re


En attendant (peut-être le pattern de JNP 😉 ), voici une autre solution, cette fois-ci avec les expressions régulières.

VB:

Sub AvecRegExp()
Dim Rx As Object, Mh As Object, s$, KM, L, C$, m_essage$

s = "km125035P1.25"

Set Rx = CreateObject("vbscript.regexp")
With Rx
    .Global = True: .Pattern = "\d+": Set Mh = .Execute(s)
End With

KM = CLng(Mh(0)): L = Mh(1) & "," & Mh(2): C = Format(KM * L, "#,##0.00 €")

m_essage = "Total KM: " & KM & vbLf
m_essage = m_essage & "Prix du litre de carburant: " & L & " €" & vbLf
m_essage = m_essage & "Coût total: " & C

MsgBox m_essage

Set Rx = Nothing: Set Mh = Nothing
End Sub

 

Dernière édition: 24 Septembre 2010

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 24 Septembre 2010

• #8

Re : Extraire 2 nombres d'un texte

Bonjour à tous

JM: Merci beaucoup pour cette pépite avec les expression régulières si cher à ton coeur 😉.

C'est très intéressant, même si je n'ai pas tout compris 😕.

En plus c'est très intéressant car cela fonctionne si j'ai une virgule ou un point et si j'ai du texte après le prix du litre .

Avec Jean-Noël, vous êtes nos chercheurs fondamentaux en Expression régulières 🙂.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Septembre 2010

• #9

Re : Extraire 2 nombres d'un texte

Re

Je reviendrai avec un autre pattern plus fin que le précédent
(à moins que JNP passe par ici avant 😉 )

 

Vote positif 0 Vote négatif