convertir le contenu d'une cellule automatiquement sous excelRésolu

Question

bonjour, 

je souhaite entre un nombre entier dans une cellule et que cette meme cellule le convertise et l'affiche en decimale.
je rentre 530 en A1 et il m'affiche 5,30 en A1 .
j'aimerais que quelque soit le chiffre taper, il mette 2 decimale.
si je rentre 1000 j'aimerais qu'il m'affiche 10,00.

merci de votre aide

boboz2

drikce06 · Accepted Answer

Salut, divisé par cent ça marche pas je pense,  mais comme j'aime bien le compliqué :

a = "120668"
i = Len(a)
b = Right(a, 2)
c = Left(a, i - 2)
a = c & "," & b
MsgBox a

Et format :
a = "120668"
a = Format(a, "###0.00")
a="120668,00"

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jmfmarques · Answer

divise par 100, pardi !

jmfmarques · Answer

Et utilise format

cs_boboz2 · Answer

tu veut diviser par 100 ou , car j'ai chercher en faisant format cellule mais je n'arrive a aucun resultat.


et je ne vois pas trop ce que tu veut dire , si tu peut etre plus explicite stp .


merci

cs_boboz2 · Answer

excuse moi Drikce06 mais etant donne que je suis un novice je ne sais pas du tout ou il faut que j'entre les informations que tu ma donne.

cs_boboz2 · Answer

c'est bon j'ai trouver une solution


en fait je vais dans outil , modification , decimale fixe et je choisi 2.


merci a tous de votre aide

jmfmarques · Answer

Private Sub Command5_Click()
  toto = 125
  MsgBox Format(toto / 100, ".00")
End Sub

drikce06 · Answer

et si toto 12500?

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Ha non exacte jmfmarques !

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jmfmarques · Answer

mortalino · Answer

Salut, si ça peut vous faire sourire, je viens de me faire avoir avec une boucle infinie... Private Sub Worksheet_Change(ByVal Target As Range) MsgBox Target.Value If IsNumeric(Target.Value) Then Target.Value = Format(Target.Value / 100, "#.00") End Sub ~ [code.aspx?ID=39466 Mortalino] ~ En fait, dès que la valeur change, je divise par 100, mais la simple division reprovoque l'évènement Change, qui est donc recalculé, et qui refait la division, etc... Conclusion : n'utilisez pas cet évènement ! (et merci Ctrl pause) @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

jmfmarques · Answer

Je souris d'autant plus volontiers et avec d'autant plus de compréhension que je me rappelle avoir, à l'époque, mis une bonne année avant de découvrir Monsieur Contrôle/pause .... (même mon chien, qui pourtant avait bon caractère, se moquait de moi en tournant en rond et en se mordrant la queur... probablement parce qu'il avait compris, lui...)
Amitiés à toi, Mortalino . Tu es fort sympathique.

jmfmarques · Answer

C'est gentil,  719823  boboz2, de mettre là-bas :
=1582750#post1582750 http://www.developpez.net/forums/showthread.php?p=1582750#post1582750
le résolu que tu as obtenu ici et a laissé sans suite ici

REPARE VITE

cs_boboz2 · Answer

jmfmarques, j'ai mis la solution sur la premiere page que l'on ma donnez sur un autre forum

Convertir le contenu d'une cellule automatiquement sous excel

14 réponses

Votre réponse

Discussions similaires