Double formule

Résolu
Utilisateur anonyme -  
tontong Messages postés 2575 Date d'inscription   Statut Membre Dernière intervention   -
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,



--
Cordialement, Vikitor.

2 réponses

  1.
    tontong Messages postés 2575 Date d'inscription   Statut Membre Dernière intervention   1 064
     
    Bonjour,
    On peut imbriquer des Substitue:
    =SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;".";"");" £";"";1);"Total: ";"";1)*1
    Nota: "*1" transforme le texte en nombre
    1
    1. Utilisateur anonyme
       
      C'est parfait, ça fonctionne !
      Merci Tontong !!
      0
    2. tontong Messages postés 2575 Date d'inscription   Statut Membre Dernière intervention   1 064
       
      Euh,
      La fonction de michel_m fonctionne aussi et présente un champ d'application moins spécifique.
      0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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)
    0