Extraction d'un chiffre

Staple1600

XLDnaute Barbatruc

• 8 Juillet 2018

• #2

Bonjour le fil, le forum

Utilises Données/Convertir Séparateur :Autre >

Ou alors si tu veux une formule, essaies celle-ci
=SUBSTITUE(STXT(A1;CHERCHE(">";A1)+1;5);".";",")*1

EDITION: Bonjour Victor21

 

Dernière édition: 8 Juillet 2018

Vote positif 0 Vote négatif

B

Bendebs

XLDnaute Nouveau

• 8 Juillet 2018

• #3

La solution était si simple !
Merci beaucoup

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 8 Juillet 2018

• #4

Bonjour, Bendebs, JM

Valeur en A1, essayez et adoptez la formule :
=1*SUBSTITUE(SUBSTITUE(A1;"[Pkg. Profit Price=>";"");" Consumption=>0.00]";"")

 

Vote positif 0 Vote négatif

B

Bendebs

XLDnaute Nouveau

• 8 Juillet 2018

• #5

Cette deuxième formule ne fonctionne pas mais je ne sais pas expliquer pour quelle raison !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Juillet 2018

• #6

Re

Elle fonctionne avec un SUBSTITUE de plus
=1*SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;"[Pkg. Profit Price=>";"");" Consumption=>0.00]";"");".";",")

PS: Me suis permis (sans te demander) ce petit addendum dans ta formule, Victor21

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 8 Juillet 2018

• #7

Re,

Deux raisons possibles :
- Le séparateur décimal n'est point le point (ou pas le pas, ou point le pas ou ...)
- Consumption => n'est pas toujours égal à 0.00 (ce que j'avais zappé

Merci, JM tu as bien fait, mais ça ne gère pas la valeur de consumption. Va falloir sortir un joker

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 8 Juillet 2018

• #8

Re, tous

Avec STXT, comme demandé :
=1*SUBSTITUE(SUBSTITUE(STXT(A1;1;TROUVE(" C";A1));"[Pkg. Profit Price=>";"");".";",")
(Séparateur décimal : la virgule)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Juillet 2018

• #9

Re

Une autre formule pour le fun et pour des nombres "ronds"
=STXT(A1;MIN(SI(ESTNUM(CHERCHE({0;1;2;3;4;5;6;7;8;9};A1));CHERCHE({0;1;2;3;4;5;6;7;8;9};A1);""));3)*1
Et pour les nombres "pas ronds"
=SUBSTITUE(STXT(A1;MIN(SI(ESTNUM(CHERCHE({0;1;2;3;4;5;6;7;8;9};A1));CHERCHE({0;1;2;3;4;5;6;7;8;9};A1);""));6);".";",")*1

PS: Ces deux formules sont sujettes à caution si elles rencontres des nombres qui ne leur plaisent pas

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Juillet 2018

• #10

Bonsoir Bendebs, JM, Patrick,

Fichier joint avec cette fonction VBA pour extraire les nombres d'un texte :

Code:

Function ExtraireNombre(t$, ordre As Byte)
Dim i%, x$, s, n As Byte
t = " " & Replace(t, ",", ".")
For i = 2 To Len(t)
    x = Mid(t, i, 1)
    If Not IsNumeric(x) And x <> "." And x <> " " Or x = "." And Not IsNumeric(Mid(t, i - 1, 1)) _
        Then t = Left(t, i - 1) & " " & Mid(t, i + 1)
Next i
t = Application.Trim(t) 'SUPPRESPACE
s = Split(t)
For i = 0 To UBound(s)
    n = n + 1
    If n = ordre Then ExtraireNombre = Val(s(i)): Exit Function
Next
ExtraireNombre = ""
End Function

Bonne nuit.

 

Pièces jointes

• ExtraireNombre(1).xlsm

  16.3 KB · Affichages: 16

Vote positif 0 Vote négatif