Double formule Résolu/Fermé

Question

Bonjour, 

Je souhaite passer de « Total: 200.000.000 £ » à « 200000000 », comment dois-je procéder ?
Avec plusieurs formules SUBSTITUE j'y arrive, mais comment faire pour n'avoir qu'une seule formule ?

Merci,



Configuration: Windows 7  
Kaspersky

michel_m · Answer

bonjour,
Avec une fonction personnalisée

Function extrait_chiffres(ByRef texto As String) As Long
    Dim reg As Object
    Dim extraction As Object
    
    Set reg = CreateObject("vbscript.regexp")
     reg.Global = True
     reg.Pattern = "(\d?\d?\d)"
   
    Set extraction = reg.Execute(texto)
    For Each digit In extraction
           extrait_chiffres = extrait_chiffres & (digit.Value)
    Next digit
    Set extraction = Nothing
    Set reg = Nothing
End Function 

si total; 2...ect est dans B2
=extrait_chiffres(B2)

tontong · Answer

Bonjour, 
On peut imbriquer des Substitue:
=SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;".";"");" £";"";1);"Total: ";"";1)*1
Nota: "*1" transforme le texte en nombre

Double formule

2 réponses

Discussions similaires