XL 2010 À propos du formatage d'un nombre

[Magic_Doctor]

Bonjour,

Je veux formater un nombre de bananes.
J'ai écrit ceci :

Dim nombreBananes%
[A1].NumberFormat = IIf(nombreBananes = 1, "#,##0 ""banane""", "#,##0 ""bananes""")

Pas de problème, ça marche.
Je me demandais s'il serait possible d'écrire le formatage autrement. J'ai tenté ceci :

Dim nombreBananes%, pluriel$
pluriel = IIf(nombreBananes > 1, "s", "")
[A1].NumberFormat = "#,##0 ""banane""" & pluriel

Évidemment, plantage complet. Serait-il possible de caser quelque part la variable "pluriel" dans le NumberFormat ?

 

[Staple1600]

Bonsoir

Pourquoi passer par VBA quand un simple format personnalisé fait l'affaire?
Format personnalisé: [<=1]0" banane";[>1]0" bananes"

 

[Magic_Doctor]

Bonsoir,

Parce que je voulais voir si, dans cette deuxième tentative (puisque la 1ère fonctionne très bien), c'était possible en VBA.

 

[Staple1600]

Re

Je ne vois toujours pas l'intérêt de se compliquer la vie.
Donc la même en VBA

Sub Macro1()
[A1].NumberFormat = "[<=1]0"" banane"";[>1]0"" bananes"""
End Sub

 

[Magic_Doctor]

Re,

Pourquoi en VBA ? Tout simplement parce que, suivant la valeur d'un compteur, la cellule peut afficher 2 résultats différents avec des formatages tout à fait différents.
Votre solution ne répond pas au problème. Relisez mon 1er post. J'avais trouvé une solution qui marche bien en VBA, je voulais tout simplement savoir s'il était possible d'obtenir le même résultat par un moyen différent en intriquant dans la chaîne qui gère le formatage une variable.
Jusqu'à présent cela ne me paraît pas possible.

 

[Staple1600]

Re

Relisez ma réponse et tester la
Si on saisit 1, on obtient 1 banane
Si on saisit 2, on obtient 2 bananes

Que ce soit avec ma solution du message#2 ou celle du message#4

EDITION: Bonsoir job75

 

[job75]

Bonsoir Magic_Doctor, JM,

Dim nombreBananes%, pluriel$
nombreBananes = [A1]
pluriel = IIf(nombreBananes > 1, """s""", "")
[A1].NumberFormat = "#,##0 ""banane""" & pluriel

A+

 

[Staple1600]

Re, Bonsoir job75

Que ce soit avec le code de job75 ou cette variante inspirée du code de job75,
si après exécution du code, on saisit manuellement une nouvelle valeur dans A1, le format ne sera pas actualisé. Il faudra relancer la macro
Alors qu'avec le format personnalisé, cela s'actualise

Sub Variante()
Dim nombreBananes%, pluriel$
nombreBananes = [A1]
pluriel = Switch(nombreBananes <= 1, """e""", nombreBananes > 1, """es""")
[A1].NumberFormat = "#,##0 ""banan""" & pluriel
End Sub

J'ai toujours du mal à comprendre en quoi le format personnalisé (cf message#2 ou #4) ne convient pas ?

 

[Magic_Doctor]

Bonsoir job75,

Merci, ça marche.
À 2 guillemets près j'y étais. Je reconnais que la syntaxe des formats n'est pas toujours très claire.

Staple1600. On ne rentre jamais rien manuellement dans cette cellule. Elle ne fait qu'afficher un résultat.