Transposition

Bonjour je ne sais pas trop comment nommé le sujet je crois que c'est qu'il s'approche le plus

mais venant on a m on problème

voila je récupère des informations sur une page internet et dans chaque cellule j' ai un chiffre mis sous cette forme:

155.000 Md je voudrais pouvoir le transformer en chiffre réel soit pour cette exemple 115000000000

et j'ai suivant les quantité:

mil. = mille 10^3

Mil = 1 million 10^6

Md = 1 milliard 10^9

bl = 1 billion 10^12

Bd = 1 billiard 10^15

tl = 1 trillion 10^18

Td = 1 trilliard 10^21

ql = 1 quadrillion 10^24

Qd = 1 quadrilliard 10^27

qil = 1 quintillion 10^30

Qid = 1 quitilliard 10^33

sl = 1 sextillion 10^36

Sd = 1 sextilliard 10^39

spl = 1 septillion 10^42

Spd = 1 septilliard 10^45

ol = 1 octillion 10^48

Od = 1 octilliard 10^51

nl = 1 nonillion 10^54

Nd = 1 nonilliard 10^57

dl = 1 decillion 10^60

Dd = 1 decilliard 10^63

vl = 1 vingtillion 10^66

vd = 1 vingtilliard 10^69

ttl = 1 trintillion 10^72

Ttd = 1 trintilliard 10^75

qdl = 1 quadrintillion 10^78

Qdd = 1 quadrintilliard 10^81

Donc si quelqu'un a une solution ça m’intéresse car je cale

*merci beaucoup

Bonjour,

Tout d’abord, je ne comprends pas comment vous êtes arrivé à 155.000 Md = 115000000000.

J’aurais cru plutôt : 155.000 Md = 155000000000000.

Voir ci-joint. J’espère que cela vous aide.

Cordialement

Bonjour à tous,

Une proposition en vba.

Configurer la feuille param.

A tester en réel, on a parfois des surprises sur un copier-coller du web. Joindre un fichier si pb.

eric

Bonjour,

Bonjour Eriiic

Sur base du fichier d'Eriiic avec le choix du séparateur décimal

Option Explicit
Public Sub convertir()
'Menu Outils ---> Références : cocher Microsoft Scripting Runtime
    Dim Dict As Dictionary
    Dim tmp
    Dim c As Range
    Dim derlig As Long, lig As Long
    Application.ScreenUpdating = False
    ' paramètres en mémoire
    Set Dict = CreateObject("Scripting.Dictionary")
    With Worksheets("Param")
        derlig = .Cells(Rows.Count, "A").End(xlUp).Row
        For Each c In .[A2].Resize(derlig)
            Dict(c.Value) = c.Offset(, 1)
        Next c
    End With
    ' traitement colonne A, résultat colonne B
    With Worksheets("Feuil2")
        derlig = .Cells(Rows.Count, "A").End(xlUp).Row
        For lig = 2 To derlig
           ' le point représente la virgule
            tmp = Replace(.Cells(lig, 1), ".", ",")
            ' le point représente le séparateur de milliers
            'tmp = Replace(.cells(lig, 1), ".", "")
            tmp = Split(tmp, " ")
            .Cells(lig, 2) = tmp(0) * Dict(tmp(1))
        Next lig
    End With

    Set Dict = Nothing
End Sub

Merci pour vos réponse rapide

je vais finaliser ca dans mon classeur