comment aligner des valeurs de longueurs inégales

[sylv900]

salut à tous
voici un exemple de valeurs contenu dans une feuille excel:
0 230 230 3.458 100 0.001 0.001

je voudrais écrire ces valeurs alignées (à gauche ou à droite peu importe)dans un fichier texte avec séparateur espace.
pour l'instant voila mon code :

Open resultat For Output As #1
'mise en page des donnée pour l'exportation texte(résulyay est le fichier texte)
nbligne = ActiveSheet.UsedRange.Rows.Count
For i = 1 To nbligne
ligne = Range('A' & i) & Rept(' ', 10 - Len(Range('A' & i))) & Range('B' & i) & Rept(' ', 10 - Len(Range('B' & i))) & Range('C' & i) & Rept(' ', 10 - Len(Range('C' & i))) & Range('D' & i) & Rept(' ', 10 - Len(Range('D' & i))) & Range('E' & i) & Rept(' ', 10 - Len(Range('E' & i))) & Range('F' & i) & Rept(' ', 10 - Len(Range('F' & i))) & Range('G' & i)
Print #1, ligne
Next
Close #1

le problème est que rept ne fonctionne pas, est-ce que quelqu'un possède la solution???
merci

 

[bertrand]

bonjour,

pour insérer des espaces dans une chaine de caractères utilise la fonction space(nombre d'espaces)

Ta fonction devient :

ligne = Range('A' & i).value & space( 10 - Len(Range('A' & i).value))& ...

ça devrait fonctionner

Bonne journée

 

[sylv900]

merci beaucoup
je désespérait de résoudre ce machin
à +