affichage des entiers sans virgule

[Arnaud]

Bonjour,

Une petite question d'affichage toute bête (déjà posée la semaine dernière):

Si dans la cellule le résultat est un entier, afficher le résultat sans virgule
Si dans la cellule le résultat n'est pas un entier afficher sous forme xx,xx

Quelqu'un sait-il si cela est possible?

Je précise que les valeurs des cellules sont susceptibles de changer, donc il faudrait une condition générique. De plus je ne voudras jouer que sur l'affichage, pas sur le contenu de la cellule (pas d'arrondi).

Merci par avance pour votre aide, si cela vous semble impossible, n'hésitez pas à mele dire.

Arnaud

 

[flo2002]

Bonjour,

format cellule nombre personnalisée et c'est le troisieme (0,00).

chez moi ca marche.

 

[Arnaud]

Chez moi cet affichage donne X,00 pour les entiers
Je souhaiterai qu'il soit juste affiché X lorsqu'il s'agit d'entiers

Merci quand même

 

[andré]

Salut,

C'est faisable avec un format texte, mais petite contrainte pour les calculs ultérieurs.

Â+

 

[Arnaud]

Merci André,
Mais effectivement, j'ai besoin de refaire des calculs à partir de ces cellules.

Je pense sincèrment que c'est faisable, j'ai trouvé des formats personnalisés qui s'en approchent (#,??)mais je n'arrive pas à faire disparaître cette virgule inutile pour des entiers!

Merci à ceux qui trouveront, et qui aideront à trouver!

Arnaud

 

[Visiteur]

Bonsoir,

Pourquoi pas le format Standard... ou je n'ai rien compris, ce qui est tout à fait possible ;-)

 

[Visiteur]

[file name=Classeur1_20060613195049.zip size=1807]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060613195049.zip[/file]

 

[Bernard_XLD]

Salut flo, arnaud, andré

pas sur que cela soit possible car il s'agit la d'une analyse de la valeur de la cellule et non d'une comparaison
en attendant voici déja une réponse en vba
à placer dans le module de feuille

Cordialement, A+

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) Then
If Target = Target \\ 1 Then
Target.NumberFormat = '0'
Else
Target.NumberFormat = '0.00'
End If
End If
End Sub

 

[Arnaud]

Ok merci Yeahou

Je pensais que ce serait possible uniquement avec le format de cellule personnalisé.

Merci quand même.

Arnaud

 

[Bernard_XLD]

suis pas catégorique, simplement sceptique

A+