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

Etoto · 7 Octobre 2021

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.

job75 · 7 Octobre 2021

Lolote83 à dit:
Ça dirait quoi en VBA ?

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

VB:

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

Lolote83 · 7 Octobre 2021

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 · 7 Octobre 2021

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 · 7 Octobre 2021

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

Etoto · 7 Octobre 2021

Lolote83 à dit:
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 · 7 Octobre 2021

Bonjour Etoto, Lolote83,

Voyez le fichier joint et la formule en E1 :

Code:

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

A+

Etoto · 7 Octobre 2021

job75 à dit:
Bonjour Etoto, Lolote83,

Voyez le fichier joint et la formule en E1 :

Code:

=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 · 7 Octobre 2021

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 · 7 Octobre 2021

Lolote83 à dit:
Ça dirait quoi en VBA ?

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

VB:

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 · 7 Octobre 2021

job75 à dit:

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

VB:

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 · 7 Octobre 2021

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 · 7 Octobre 2021

Lolote83 à dit:
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.

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

Etoto

XLDnaute Barbatruc

job75

Lolote83

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

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

Lolote83

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Etoto

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Etoto

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Discussions similaires