Zero avant la virgule

Fermé
xantuc Messages postés 1 Date d'inscription samedi 28 novembre 2009 Statut Membre Dernière intervention 9 novembre 2010 - 9 nov. 2010 à 14:06
iBobos Messages postés 35 Date d'inscription vendredi 12 novembre 2010 Statut Membre Dernière intervention 13 novembre 2010 - 12 nov. 2010 à 14:36
Bonjour,
j'ai des donnees qui arrive sous forme 8.4 et
je dois les transformer en 08
sous macro excel

merci

4 réponses

ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
9 nov. 2010 à 14:23
quelques precisions me semblent necessaires
1. le resultat est il obligatoirement entier?
2. si oui sous quel format 08 - 008 - 0008 ?
si non preciser le format desiré 08.xxx , .
a bientot.
0
j'ai plusieurs nombre 7,4 et 3,8 et 9,6 ........ et je dois
obtenir 07 et 03 et 09
merci
0
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
12 nov. 2010 à 11:06
Bon, le cahier des charges est encore un brin imprécis mais
une solution correspondant aux hypothèses suivantes (les tiennes)
- x est un nombre décimal avec un seul chiffre avant la virgule
- le resultat est sous la forme 0 suivi de la partie entiere de x
- c'est une macro VBA qui doit realiser la conversion

deux solutions qui doivent etre placée dans un module
(Alt-F11 pour accéder à l'editeur VBA)

1. le resultat est un nombre

 Private Function ConvertirEnNombre(x) As Long
  ConvertirEnNombre = Int(x)
End Function

la cellule qui reçoit le résultat doit etre formatée selon le format 00

2. le resultat est une chaine de caractere

Private Function ConvertirEnChaine(x) As String
  ConvertirEnChaine = "0" & Int(x)
End Function


Exemple
A1 = 3.8

A2 = ConvertirEnNombre(A1)
A3 = ConvertirEnChaine(A1)

RQ. Excel sait faire en mode normal
A4 = ENT(A1) suffit pourvu que A4 soit formatée au format 00

bonne suite
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 248
12 nov. 2010 à 13:54
Bonjour,

Que c'est bien compliqué comme réponse.... :-)

Retenir :
A4 = ENT(A1) suffit pourvu que A4 soit formatée au format 00

eric
0
ccm81 Messages postés 10903 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 19 novembre 2024 2 428
12 nov. 2010 à 14:27
eriic,
oui, mais il y avait écrit "sous macro excel" d'où l'abracadabrantesquerie qui a precedé j'en conviens ...
ccm81
0
iBobos Messages postés 35 Date d'inscription vendredi 12 novembre 2010 Statut Membre Dernière intervention 13 novembre 2010 6
12 nov. 2010 à 14:36
Bonjour,

La fonction à utiliser est ENT

ex: =ent(17.25) renverra 17
0