Discussion :

[julio44]

Bonjour,

J'ai réalisé une macro qui traite un fichier (onglet 1) et copie ses valeurs dans un deuxième onglet. (onglet 2)

Ensuite, je fais une extraction de l'onglet 2 en fichier texte, sans délimiteur avec un nombre de caractères alloué pour chacune des cellules.

Cependant, je voudrais aligner les colonnes avec des chiffres sur la droite et non la gauche :

En effet j'ai :

0,00
0,00
363,23

et je voudrais :

...0,00
...0,00
363,23

Merci de m'éclairer !

Voici le code de mon exportation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub xlsTOtxt()
 
Dim i As Long
 
FichierCible = Application.GetSaveAsFilename("monfichiertexte", "Fichier texte (*.txt), (*.txt)")
 
If FichierCible = False Then Exit Sub
 
Open FichierCible For Output As #1
 
If FichierCible <> False Then
 
Sheets("MonSheet").Select
For i = 2 To Range("A:A").End(xlDown).Row
 
                Print #1, Left(Range("A" & i).Value, 10) & Space(10 - Len(Left(Range("A" & i).Value, 10))) & Left(Range("B" & i).Value, 14) & Space(14 - Len(Left(Range("B" & i).Value, 14))) & Left(Range("C" & i).Value, 13) & Space(13 - Len(Left(Range("C" & i).Value, 13))) & _
                    Left(Range("D" & i).Value, 9)
 
Next i
 
Close #1
 
Msgbox "Exportation réussie !"
End If
End Sub

[jfontaine]

bonjour,

Essaie comme cela (Ici on prend la colonne A

Code :

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

Space(20 - Len(Format(Range("A" & i).Value, "# ###.00"))) & Format(Range("A" & i).Value, "# ###.00")

[julio44]

Rebonjour =) et bon anniversaire !http://www.google.fr/

Il ne veut pas de Format(...)

Nombre d'arguments incorrects ou affectation de propriété incorrecte.

Je bidouille et je te tiens au courant

[jfontaine]

fait voir la ligne de ton code qui génère une erreur

[julio44]

Code :

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

Print #1, Space(13 - Len(Format(Range("X" & i).Value, "# ###.00"))) & Format(Range("X" & i).Value, "# ###.00") & Space(10 - Len(Format(Range("Y" & i).Value, "# ###.00"))) & Format(Range("Y" & i).Value, "# ###.00")

Plante sur Format (pour colonne X)

[jfontaine]

es tu sur que ta colonne X n'a pas de valeurs, qui au format spécifié, dépassent 13 caractères ?

[julio44]

Oui sur l'exemple que je traite, le maxi est de 7 caractères sur la colonne X.

[jfontaine]

Je ne vois pas d'erreur dans ton code (fonctionne bien sur mon poste si je remplace les références des cellules
Quel message as tu?

[julio44]

http://www.casimages.com/img.php?i=1...1205503657.png

[jfontaine]

tu es sur quelle version d'excel?

[aalex_38]

Bonjour,

Et en remplacant par vba.Format ?

[julio44]

Edit : Je suis sur Excel 2010.

oui en appelant VBA ca fonctionne.

Cependant, j'ai modifié le format en :

Code :

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

Print #1, Space(13 - Len(VBA.Format(Range("X" & i).Value, "0.00"))) & VBA.Format(Range("X" & i).Value, "0.00")

Car j'obtenais ,00 dans le cas précédent.

Je vais maintenant étendre ceci sur mes 55 colonnes, et mettrais le tag résolu si ca fonctionne :

Un grand merci à vous 2 !

Edit 2 : Ajout tag Résolu ! Merci à vous !