Microsoft 365 Formule extraire

[jebibo]

Bonjour Forum

Je cherche la formule pour extraire le prix de la colonne B, Cette colonne est issue d'une extraction sur le Web et le prix peux être variable dans la cellule. Je sollicite votre aide svp, j'ai joint un fichier Merci pour votre aide. Au plaisir

 

[chris]

Bonjour

=SIERREUR(SUBSTITUE(SUBSTITUE(SUBSTITUE(GAUCHE(B2;MAX(SI(STXT(B2;LIGNE(INDIRECT("1:"&NBCAR(B2)));1)=CAR(9);LIGNE(INDIRECT("1:"&NBCAR(B2)))))-1);CAR(10);"");CAR(9);"");"$";"")*1;"")

Mais on peut le faire avec PowerQuery qui peut sans doute accéder à la page web

 

[job75]

Bonjour jebibo, chris,

Autre formule en A2 :

=SIERREUR(--GAUCHE(SUBSTITUE(EPURAGE(B2);"$";",00");TROUVE(",";SUBSTITUE(EPURAGE(B2);"$";",00"))+2);""&B2)

A+

 

[job75]

Autre solution avec cette fonction VBA très simple :

Function Extract(t$)
Dim i%, x$
For i = 1 To Len(t)
    x = Mid(t, i, 1)
    If IsNumeric(x) Or x = "," Then Extract = Extract & x
Next
If Extract = "" Then Extract = t Else Extract = CDbl(Extract)
End Function

Le code doit être placé impérativement dans un module standard.

Formule en A2 =Extract(B2)

 

[CHRIS1945]

Bonjour,
Encore une autre...
=SIERREUR(CNUM(SUBSTITUE(GAUCHE(EPURAGE(B3);NBCAR(EPURAGE(B3))-NBCAR(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(EPURAGE(B3);9;"");8;"");7;"");6;"");5;"");4;"");3;"");2;"");1;"");1;"");0;"");",";"")));",";"."));"")
A toi de choisir
Bonne continuation
Chris

 

[chris]

Bonjour jebibo, chris,

Autre formule en A2 :

=SIERREUR(--GAUCHE(SUBSTITUE(EPURAGE(B2);"$";",00");TROUVE(",";SUBSTITUE(EPURAGE(B2);"$";",00"))+2);""&B2)

A+

🙂
Bon dieu mais c'est bien sûr, la virgule !
Merci pour EPURAGE totalement oublié 😱

 

[chris]

Bonjour à tous

Pour info la formule POwerQuery, qui va sûrement inspirer les nouvelles fonctions texte de 365, est

=Number.From(Text.Select([prix],{"0".."9",","}))

 

[jebibo]

Bon matin Chris,Job75 et Chris1945

Les formule que vous m'avez fait parvenir fonctionne très bien, le code VBA est parfait.
Merci pour votre aide et votre temps vraiment apprécier.
Passez une belle journée à vous tous.
Au plaisir