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