ajouter des zéro devant un nombre décimal

Bonsoir,

Je dois convertir un fichier excel en txt, dans une colonne j'ai une chaine numérique qui doit être décimale avec 3,2 et si le nombre décimal et inférieur
(ex: 10,25 ou 2,98) il faut rajouter des zero devant.

voilà le code ci-dessous:

Code:

---

1 2 3 4

If Len(sTempo) = 5 Then sTempo = Left(sTempo, 0) & "0" & sTempo   If Len(sTempo) = 4 Then sTempo = Left(sTempo, 0) & "00" & sTempo

---

Cela fonctionne mais j'ai aussi une colonne avec décimale 12,2

et je voudrais trouver plus simple que de répéter pour chaque chiffre manquant une ligne.

En espérant d'avoir été clair.

Merci pour vos réponse.

Bonjour,

Regarde la fonction String().

Salut les4c77 et le forum
pas sûr de comprendre
Un format de type 00,00 donnera 03,20 - 12,20 - 02,98

en VBA, Format(sTempo,"00.00"), transformera le nombre de la variable sTempo en un nombre de 4 digits
A+

Bonjour,

Je me suis surement mal exprimé, j'arrive à ajouter des zéro que le nombre n'a pas de décimal avec le code suivant :

Code:

---

1 2	sTempo = Format(sTempo, String(5, "0"))

---

exemple: 882 on obtient 00882
2 on obtient 00002
mais dés lors que j'ai un nombre décimal, cetteformule ne fonctionne plus et je voudrais obtenir

exemple : 8,82 obtenir 008,82
25,12 obtenir 025,12

Dans cette exemple la chaine ne fait que 6 caracteres (3 , 2) mais chane une chaine de 14 caracteres( 12,2).

Merci d'avance pour vos réponses.

Bonjour,

ce n'est pas un truc du genre que tu cherches tout simplement ?

Code:

---

1 2 3

Cells(3, 3).NumberFormat = "0,000.00" Cells(3, 4).NumberFormat = " 00,000,000,000.00"

---

PS : attention au fait que sur un Excel de base français, l'éditeur vba étant US, les . et les , sont inversés, le code ci dessus donnera des séparateurs de milliers blancs chez moi selon mon paramétrage...

cordialement,

Didier