Microsoft 365 Formule extraire

chris

XLDnaute Barbatruc

• 8 Mai 2022

• #2

Bonjour

VB:

=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

 

Dernière édition: 8 Mai 2022

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Mai 2022

• #3

Bonjour jebibo, chris,

Autre formule en A2 :

Code:

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

A+

 

Pièces jointes

• EXTRAIRE_PRIX(1).xlsx

  15.3 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Mai 2022

• #4

Autre solution avec cette fonction VBA très simple :

VB:

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)

 

Pièces jointes

• EXTRAIRE_PRIX VBA(1).xlsm

  23.3 KB · Affichages: 0

Vote positif 0 Vote négatif

C

CHRIS1945

XLDnaute Occasionnel

• 8 Mai 2022

• #5

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

 

Pièces jointes

• EXTRAIRE_PRIX.xlsx

  16.7 KB · Affichages: 0

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 8 Mai 2022

• #6

job75 à dit:

Bonjour jebibo, chris,

Autre formule en A2 :

Code:

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

A+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 8 Mai 2022

• #7

Bonjour à tous

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

VB:

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

 

Vote positif 0 Vote négatif

J

jebibo

XLDnaute Occasionnel

• 8 Mai 2022

• #8

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

 

Vote positif 0 Vote négatif