Discussion :

[geeksideofme]

Le principe est de transposer des matrices contenues dans des fichiers
texte.

il s'agit de coder une macro VB permettant:

> de lire ces fichiers et d'en copier le contenu sur la première
feuille du classeur

> d'écrire en dessous de cette première matrice sa transposée
de colorer en rouge les matrices symétriques, en bleu les
antisymétriques

> d'enregistrer cette transposée en dessous de la matrice originale dans le fichier source (les deux matrices sont séparées par une ligne vide)

[ouskel'n'or]

Ces codes ont été données 150535 fois sur le forum VBA, une petite recherche, peut-être
Je regarde de mon côté mais c'est parce que j'ai une nature bien gentille...

Pour écrire dans un fichier Texte, séparateur de données ";"

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
Sub FichierTxtEcrire()
Dim i, j, DernièreLigne, DernièreColonne, f As Worksheet
Set f = ActiveSheet
    DerniereLigne = f.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DerniereColonne = f.Range("A1").SpecialCells(xlCellTypeLastCell).Column
    Open "D:\txt\LeFichier.txt" For Output As #1
    For i = 1 To DerniereLigne
        For j = 1 To DerniereColonne - 1
            Print #1, f.Cells(i, j).Formula + ";";
            'pour séparateur ";" tu remplaces si ton séparateur est une virgule
        Next j
        Print #1, f.Cells(i, j + 1).Formula
    Next i
    Close #1
End Sub

Pour lire

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
Sub FichierTxtLire()
Dim Ligne As String, LeTableau()
Dim i As Long
    i = 0
    Open "D:\txt\LeFichier.txt" For Input As #1
    While Not EOF(1)
        Input #1, Ligne
        i = i + 1
        ReDim Preserve LeTableau(i)
        LeTableau(i) = Split(Ligne, ";")
    Wend
    For j = 1 To i 'Pour chaque ligne
         For NoCol = 0 To 3
              MsgBox LeTableau(j)(NoCol)
              'où j est le No de ligne et NoCol le No -1 du mot dans la ligne
         Next
    Next
    Close #1
End Sub

Si ton séparateur n'est pas un ";", tu le changes.
Maintenant, Excel peut ouvrir un txt et enregistrer un txt sans avoir à écrire de macro, si ton txt est un csv.
Regarde aussi ici

Il y a d'autre manières de créer et d'écrire ou de lire dans un txt mais là, je te laisserai chercher (sur le forum VBA)

PS - Je n'avais pas vu : Bienvenue sur le forum