Appliquer un format de cellule en fonction de la valeur [VBA]

Bonjour à tous,
j'essaye de pouvoir appliquer un format de cellule (affiche ou non la décimale du nombre) en fonction de sa valeur à l'aide d'un bouton.
Voici mon code en VBA lié au bouton:

Code:

---

1 2 3 4 5 6 7

Sub Dedicated_format() If (Round(Selection.Value, 1) = Round(Selection.Value, 0)) Then Selection.NumberFormat = "0" Else Selection.NumberFormat = "0.#" End If End Sub

---

Cela fonctionne très bien si j'applique cette macro à une cellule mais le problème se pose lorsque je sélectionne plusieurs cellules à modifier.
Pourriez vous m'aider?
Merci

Bonjour,

pour boucler sur les cellules :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Dedicated_format() Dim c As Range For Each c In Selection If (Round(c.Value, 1) = Round(c.Value, 0)) Then c.NumberFormat = "0" Else c.NumberFormat = "0.#" End If Next c End Sub

---

eric

Bonjour,

Citation:

---

Envoyé par Yellow-Sky

Cela fonctionne très bien si j'applique cette macro à une cellule mais le problème se pose lorsque je sélectionne plusieurs cellules à modifier.

---

Il suffit de l'appliquer à toutes les cellules de la sélection :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Dedicated_format() Dim cel As Range For Each cel In Selection If (Round(cel.Value, 1) = Round(cel.Value, 0)) Then cel.NumberFormat = "0" Else cel.NumberFormat = "0.#" End If Next cel End Sub

---

Cependant je n'en vois guère l'intérêt car excel fait cela tout seul:)

edit: salut eriiic je suis un peu en retard :(

Comme Excel fait-il cela tout seul?

L'idée ici est de ne pas afficher la décimale 0.
Exemple 17.0 => 17
12.1 => 12.1

S'il y a une solution plus simple, je suis preneur...

Juste pour le plaisir, une petite amélioration :

Code:

---

1 2 3 4 5 6

Sub Dedicated_format() Dim c As Range For Each c In Selection c.NumberFormat = "0" & IIf(Round(c.Value, 1) = Round(c.Value, 0), "", ".#") Next c End Sub

---

Citation:

---

Envoyé par Yellow-Sky

Comme Excel fait-il cela tout seul?
L'idée ici est de ne pas afficher la décimale 0.

---

Normalement, le # dans le format devrait empêcher l'affichage d'un éventuel 0.
Mais ça n'empêchera pas l'affichage du point décimal.

En effet dans le format personnalisé le . décimal reste là mais avec le code VBA, le point décimal n'apparait plus... vu que j'applique le format approprié.

Résolu... je me suis fait avoir car
Round utilise le "bankers rounding" alors que WorksheetFunction.Round utilise l'arrondi que je considérais comme "normal"
ENcore merci à tous.