Programme pour ce Algorithme

Bonjour

j'ai cette logique et je vous savoir le programe VB associé

Je suis dans une nouvelle Feuil =False

Lire ligne

Si la ligne ne commence pas par « ! » ou « % »

Si Je suis dans une nouvelle Feuil =False

Add Feuil

Je suis dans une nouvelle Feuil = True

Splite la ligne « : »

Feuil courante.addligne.colonne « i » =table « i »

Fin de boucle

Sinon

Je suis dans un nouvelle feuil = False

merci d'avance

Bonjour,

Au lieu de ton pseudo algorithme (qui n'en est vraiment un), on aurait préféré que tu nous dise ce que tu veux obtenir sous quelles conditions et si possible avec un fichier en support.

Raja a écrit :

Bonjour,

Au lieu de ton pseudo algorithme (qui n'en est vraiment un), on aurait préféré que tu nous dise ce que tu veux obtenir sous quelles conditions et si possible avec un fichier en support.

merci pour l'info

1- je veux transferer un fichier txt en exel mais chaque partie dans une feuil

2- les lignes qui commance par ! ou % sont exclus càd il faut pas l'integrer dans les feuils

3- séparer les colonnes par " : " entre colonnes

https://www.excel-pratique.com/~files/doc/D0013188.zip

Salut le forum

Drissic, un début de solution, je te laisse t'amuser pour le reste.

Sub Read_Text_File()
Dim Tablo() As String
Dim TextLine As String
Dim Ligne As Integer
Dim I As Byte

Ligne = 1
Cells.Delete
'Lecture des données contenues dans un fichier texte
    Open "c:\excel\D0013188.txt" For Input As #1
    Do While Not EOF(1) ' Loop until end of file.
        Line Input #1, TextLine
        If Left(TextLine, 1) <> "!" And Left(TextLine, 1) <> "%" Then
        Tablo = Split(TextLine, ":")
        For I = 0 To UBound(Tablo)
        Cells(Ligne, I + 1) = Tablo(I)
        Next I
        Ligne = Ligne + 1
        End If
    Loop
    Close #1
Cells.Columns.AutoFit
End Sub

Mytå

Mytå a écrit :

Salut le forum

Drissic, un début de solution, je te laisse t'amuser pour le reste.

Sub Read_Text_File()
Dim Tablo() As String
Dim TextLine As String
Dim Ligne As Integer
Dim I As Byte

Ligne = 1
Cells.Delete
'Lecture des données contenues dans un fichier texte
    Open "c:\excel\D0013188.txt" For Input As #1
    Do While Not EOF(1) ' Loop until end of file.
        Line Input #1, TextLine
        If Left(TextLine, 1) <> "!" And Left(TextLine, 1) <> "%" Then
        Tablo = Split(TextLine, ":")
        For I = 0 To UBound(Tablo)
        Cells(Ligne, I + 1) = Tablo(I)
        Next I
        Ligne = Ligne + 1
        End If
    Loop
    Close #1
Cells.Columns.AutoFit
End Sub

Mytå

merci BP

ça marche comme ça

et pour copier chaque partie dans une nouvelle feuil comment faire ?