Re,
Salut JCGL visiblement Cronos6 n'est pas maître du temps et s'en est allé...
Pour la case A1 sans colonne supplémentaire
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Target.NumberFormat = IIf(Target.Value = Int(Target.Value), "# ##0", "# ##0.00")
End Sub
Essaie celle-ci :
=SI(MOD(A1;1);TEXTE(A1;"0.00");TEXTE(A1;"0"))*1
Elle renvoie le nombre en format nombre, mais je ne suis pas parvenu à y ajouter le séparateur de milliers.
Si tu as une idée ?
Aucune des conditions ne fonctionne, dès que l'on met un nombre avec décimale, pour la première, on obtient des "0" devant et pour la seconde, la formule ne fonctionne pas.
Une petite fusion des deux devrait fonctionner, je vais regarder