Discussion :

[osito57]

Bonsoir tout le monde
je voudrais écrire des données dans un fichier texte : l'écriture en elle même ne pose pas de problème.
LEs données sont en colonne, avec un titre à correspondant à chacune d'entre elles; voila ce que ca donne.
Titre1 Titre2 Titre3
x x x
x x x
x x x
x x x

Je voudrais décaler les données (x) en dessous de chaque titre, est-ce qu'il existe une fonction le permettant ?

Merci d'avance

[SfJ5Rpw8]

bien si utilise la fonction excel enregistrer sous .. format texte séparer par tabulation ...
cela ne te convient pas ?

[osito57]

En fait j'ai pas essayé ca parce que je voudrais que ca se fasse automatiquement, que tout s'écrive avec des espaces, et tout et tout
C'est possible de la faire automatiquement ou pas??

[SfJ5Rpw8]

regarde déjà si cela te va ... puis utilise l'enregistreur de macro pour trouver le code qui va avec !

[osito57]

ok, je tente ca de suite
merci bien

[osito57]

mais il y a un petit probleme non??
Ca peut marcher avec un fichier texte?? : c'est pas excel donc on ne peut pas enregistrer de macro si?

[SfJ5Rpw8]

ben tu n'as pas dis sous quoi tu coder ... et moi envoyant un tableau j'ai pensé à Excel... alors dis nous quoi VBA-Excel...VBA-Word... VB6...?

[osito57]

Pardon,
C'est du VBA Excel, mais une partie du programme concerne la lecture de données contenues dans un fichier texte, et l'écriture des resultats dans ce meme type de fichier.

[SfJ5Rpw8]

d'onc tu peu enregistrer une macro excel qui manipule un fichier texte... !

[Megaxel]

Commence par déterminer le nombre de caractères de chacune de tes colonnes, dans ton fichier texte, pour que ça soit bien en dessous des titres.
Ensuite, tu devras te faire une fonction qui formatte tes chaines de caractères pour leur donner la bonne longueur, en rajoutant des espaces à la fin.
Tu n'auras alors plus qu'à écrire ces chaines dans ton fichier texte.

non?

[SfJ5Rpw8]

Commence par déterminer le nombre de caractères de chacune de tes colonnes, dans ton fichier texte, pour que ça soit bien en dessous des titres.
Ensuite, tu devras te faire une fonction qui formatte tes chaines de caractères pour leur donner la bonne longueur, en rajoutant des espaces à la fin.
Tu n'auras alors plus qu'à écrire ces chaines dans ton fichier texte.

non?

ben non ... tu n'est pas obligé .. de rajouter des espaces... si tu utilise des tabulations comme séparateurs les textes s'alignent d'eux même lors de la consultation dans la pluspart des éditeurs...

sinon si tu tiens à rajouter des espaces... voila une fonction ...:
http://www.developpez.net/forums/vie...ht=len&start=3

[Megaxel]

Je dirais "bof".
S'il y a de trop grandes différences de longueur entre 2 éléments d'une même colonne, la tabulation est souvent insuffisante, et tu te retrouves avec des données décalées. Enfin, ça m'est arrivé plusieurs fois, alors quand le but est de formater un fichier visuellement, je fixe la longueur des colonnes.
Si c'est pour un traitement informatique, je me jette sur un vrai bon séparateur (tabulation, ou autre), c'est vraiment plus simple.

[Dorbuntu]

Bonjour,
J'ai le même problème .je n'arrive pas à écrire dans un fichier texte.j'ai essayé plusieurs code mais ça ne marche pas.lorsque je compile le fichier en question n’apparaît pas.besoin de votre aide.je compte sur vous.merci!

[patricktoulon]

Bonjour
si le but rechercher ressemble a ce qui suit alors voila


un exemple simple

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
Sub ecriture()
    Dim fichier, rng, char
    char = " "
    Set rng = Range("A1:C4")
    tablo = rng.Value
    ReDim Tmatstring(rng.Columns.Count + 1)
    For i = 1 To UBound(Tmatstring)
        titre = titre & Cells(1, i).Text & "  "
        Tmatstring(i) = Application.Rept(" ", Len(Cells(1, i).Value) + 2)
    Next
    For lig = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        For col = 1 To 3
            texte = texte & Mid(Cells(lig, col).Value & Tmatstring(col), 1, Len(Tmatstring(col)))
        Next
        texte = texte & vbCrLf
    Next
    ' Debug.Print titre & vbCrLf & texte
    fichier = "C:\Users\polux\Desktop\ttt.txt"
    x = FreeFile
    Open fichier For Output As #x
    Print #x, titre & vbCrLf & texte
    Close #x
End Sub

[Dorbuntu]

Merci beaucoup.ca marche.Maintenant je me demandais comment faire pour récuperer le contenu d'un textbox ou listbox

[Marc-L]

Bonjour,

en plus simple (B-A-BA du VBA) c'est l'utilisation de variables de type texte de longueur fixe …

___________________________________________________________________________________________________________

Je suis Paris, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …