Discussion :

[les4c77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pc75]

Bonjour,

Regarde la fonction String().

[Gorfael]

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+

[les4c77]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Didier Gonard]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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