Discussion :

[Yellow-Sky]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eriiic]

Bonjour,

pour boucler sur les cellules :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Juste pour le plaisir, une petite amélioration :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[Yellow-Sky]

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é.

[Yellow-Sky]

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.

[anasecu]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Yellow-Sky]

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...