XL 2016 Créer format personnalisé pour milliers, millions, milliards

[Etoto]

Bonjour,

Pour un fichier j'essaie de trouver comment faire un format personnalisé qui ferait cela :

1000 = 1 K
1500 = 1.5 K
1050 = 1.05 K
265000 = 2.65 M
999951 = 999.951 M
1000000000 = 1 B
etc.

Je sais que c'est possible mais je n'ai pas réussi à trouver ma solution sur le Web.

 

[Lolote83]

Bonjour ETOTO,
J'ai trouvé ceci mais cela ne correspond pas à 100% à ta demande. Je continue à chercher
http://monsieur-excel.blogspot.com/2006/01/formatage-direct-en-k-ou-en-m.html
ou
https://xlbusinesstools.com/convert...ec-excel-sans-formule-une-facon-intelligente/
A voir
@+ Lolote83

 

[Etoto]

Merci de ton aide, le problème à l'air peu facile, j'ai déjà été voir ces sites mais comme tu dis, c'est pas les meilleurs. J'avais essayé d'écouter ce que disais ce site mais le format à l'air d'avoir un problème, tu sais pourquoi ?

Comment mettre en forme des nombres en milliers, en millions ou en milliards dans Excel?

fr.extendoffice.com

 

[Lolote83]

Re bonjour,
Je n'arrive pas à appliquer ce qu'ils disent.
Je cherche encore.
Bon courage
@+ Lolote83

 

[Etoto]

Re bonjour,
Je n'arrive pas à appliquer ce qu'ils disent.
Je cherche encore.
Bon courage
@+ Lolote83

Oui normalement, les nombres doivent êtres divisés mais ils ne le sont pas.

 

[job75]

Bonjour Etoto, Lolote83,

Voyez le fichier joint et la formule en E1 :

=D1/RECHERCHE(D1;A$1:A$5)&RECHERCHEV(D1;A$1:B$5;2)

A+

 

[Etoto]

Bonjour Etoto, Lolote83,

Voyez le fichier joint et la formule en E1 :

=D1/RECHERCHE(D1;A$1:A$5)&RECHERCHEV(D1;A$1:B$5;2)

A+

Bonjour @job75,

Cela me paraît super ! Je vais pouvoir l'utiliser merci. Merci aussi à @Lolote83 qui a essayé de faire des recherches pour le format. Merci à vous deux !

 

[Lolote83]

Re bonjour,
Bravo Job75. Le maestro a encore frappé.
J'ai même essayé de faire une fonction personnalisée, mais cela n'a rien donné. Je crois qu'il faut encore que je prenne des cours moi !!!!
Ça dirait quoi en VBA ?
@+ Lolote83

 

[job75]

Ça dirait quoi en VBA ?

Cette fonction qui fait exactement la même chose que la formule précédente :

Function Milliers(x As Double) As String
Dim tablo(1 To 5, 1 To 2)
tablo(1, 1) = 1
tablo(2, 1) = 1000: tablo(2, 2) = "K"
tablo(3, 1) = 1000000: tablo(3, 2) = "M"
tablo(4, 1) = 1000000000: tablo(4, 2) = "B"
tablo(5, 1) = 1000000000000#: tablo(5, 2) = "T"
With Application
    Milliers = x / .Lookup(x, .Index(tablo, , 1)) & .VLookup(x, tablo, 2)
End With
End Function

 

[Etoto]

Cette fonction qui fait exactement la même chose que la formule précédente :

Function Milliers(x As Double) As String
Dim tablo(1 To 5, 1 To 2)
tablo(1, 1) = 1
tablo(2, 1) = 1000: tablo(2, 2) = "K"
tablo(3, 1) = 1000000: tablo(3, 2) = "M"
tablo(4, 1) = 1000000000: tablo(4, 2) = "B"
tablo(5, 1) = 1000000000000#: tablo(5, 2) = "T"
With Application
    Milliers = x / .Lookup(x, .Index(tablo, , 1)) & .VLookup(x, tablo, 2)
End With
End Function

Wawwwww ! C''est encore mieux vu qu'il y a lus besoin d'avoir une plage de référence au RECHERCHEV. Parfait !

 

[Lolote83]

Bonjour,
Je dirais même plus. Wawwwwww ! avec un w de plus
Merci Job75 pour ce code d'une simplicité et d'une efficacité sans pareille.
Cordialement
@+ Lolote83

 

[Etoto]

Bonjour,
Je dirais même plus. Wawwwwww ! avec un w de plus
Merci Job75 pour ce code d'une simplicité et d'une efficacité sans pareille.
Cordialement
@+ Lolote83

Merci aussi à toi @Lolote83, je pense que je n'arriverais plus à compter le nombre de fois où tu apparais dans les fils que je crée. Merci beaucoup à toi aussi.