classement

[cheechwizard]

J'ai un fichier en préparation dont les informations proviennent d'un fichier .txt

Il s'agit d'une liste d'environ 30 000 lignes.
Je voudrai mettre cette liste en tableau, chaque case dans le texte .txt est délimité par des virgules

Comment puis-je faire une mise en forme de ce texte ?

Je vous envoi un exemple de ligne comme elles apparaissent dans excel.

Merci

cheechwizard

 

[cheechwizard]

Re : classement

voilà le fichier

 

[ya_v_ka]

Re : classement

Salut

Utilise "données" "convertir", choisis la virgule comme délimiteur, formate tes colonnes et le tour est joué !

Ya'v

 

[Celeda]

Re : classement

Bonsoir,

et une autre manière en vba ==>
Lien supprimé
(je place la ref du fil pour mémo, mais on n'a plus d'accés)

extraction de tous les mots dans chaque cellule comme la soluce de ya_v_ka,
à placer dans un module, avec extraction dans la feuille2

voici la macro

Sub TrierMots()
Dim cell As Range
Dim compteur As Integer
Dim val As String
Dim b As Byte

Sheets(2).Cells.Clear

For Each cell In Range("a1", Range("a65536").End(xlUp))
    b = 1
    For compteur = 1 To Len(cell)
        val = Mid(cell, compteur, 1)
        
        If val = "," Then val = " "
        If val = "." Then val = " "
        If val = ";" Then val = " "  ' **** liste ponctuation à compléter ou supprimer selon les projets *****
        
        If val <> " " Then
        Sheets("feuil2").Cells(cell.Row, b).Value = Sheets("feuil2").Cells(cell.Row, b).Value & val
        Else
                If Sheets("feuil2").Cells(cell.Row, b) <> "" Then
                b = b + 1
                End If
                End If
       Next
Next

Sheets("feuil2").Cells.HorizontalAlignment = xlLeft
Sheets("feuil2").Activate

End Sub

de mimi, si je ne m'abuse.😛

 

[Celeda]

Re : classement

Bonsoir,

et bien tiens, comme tu as été sage cette semaine avec nous,

en oilà une autre, mais cette fois-ci, les mots les uns en dessous des autres,
et toujours dans la feuille 2, mais je ne sais plus qui est l'auteur, alors merci à lui de toute façon!!😛

Lien supprimé

Sub transfert()
Dim cel As Range
Dim derlgn As Integer, derlgn2 As Integer, L As Integer
Dim Tabtemp
derlgn = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
For Each cel In Worksheets("Feuil1").Range("A2:A" & derlgn)
Tabtemp = Split(cel.Value, "-")

For L = 0 To UBound(Tabtemp, 1)
derlgn2 = Worksheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Worksheets("Feuil2").Cells(derlgn2, 1) = Tabtemp(L)
Next
Next
End Sub

et après on dira qu'on est pas dans un forum convivial ??? hein!!!😛 😀

 

[cheechwizard]

Merci Ya_v_ka, merci Celeda,

Je vais tester cela demain matin, il est un peu trop tard pour se prendre la tête maintenant.

Bonne soirée et bonne nuit

Pascal

 

[ChTi160]

Re : classement

Salut cheechwizard
je profite de ce fil pour passer un petit Bonjour à mon amie Marie
cela étant fait, il faut si le texte est délimité par une virgule changer

Tabtemp = Split(cel.Value, "-")

en

Tabtemp = Split(cel.Value, ",")

c'est juste pour ne pas passer, Juste pour Marie 😀

Bonne journée

 

[cheechwizard]

Merci chti'160

je teste encore et toujours et tout est évolutif

pascal

 

[Celeda]

Re : classement

Bonsoir,

oh Jean-Marie je sens que je te manque!! on s'est pas vu cette année
alors on n'a pas pu se biser!!!😀

lol!!

bon c'est pas grave je t'embrasse très fort vituellement!!

et j'espère que tu ne seras pas d'astreinte pendant les fêtes!!!

et merci pour l'info rectificative; tout détail qui peut faciliter le travail
est bon à prendre.

 

[ChTi160]

Re : classement

Salut Marie
bonjour le Fil Lol
arff Salut Marie Pleine de Grâce Lol ( et tu n'en manques pas pour qui te connais)

comme je t'ai sous la main lol ,je te fais moi aussi la Bise
pour ce qui est du boulot ,je suis de congé à noêl ,boulot le 30/31/12 et 1/2/01/ 2007

bonne fêtes à toi
et à tous d'ailleurs
Bonne journée

 

[Hervé]

Re : classement

bonjour à tous

à peine plus court :

Dim cell As Range
Dim tablo
Dim x As Integer

Sheets(2).Cells.Clear

For Each cell In Range("a1", Range("a65536").End(xlUp))
    If cell <> "" Then
        x = x + 1
        With Sheets(2)
            .Range(.Cells(x, 1), .Cells(x, UBound(Split(cell, ",")) + 1)) = Split(cell, ",")
        End With
    End If
Next cell

salut

 

[patrick7676]

Re : classement

bonjour lorsque je te tape l'adresse http que tu donnes , je n'arrrive pas avoir le fichier nommée

merci pour les renseignements que tu pourrasme donner
au revoir
Patrick

Lien supprimé

 

[Celeda]

Re : classement

Bonjour,

non cela ne marche pas et malgré toutes les astuces qui ont été données sur ce forum; les liens n'ont pas suivis. C'est pour cela que j'avais recopié la macro; désolée 🙁

mais tu ne t'en sors pas avec la macro en question ?

Merci Hervé pour une autre variante!!! et une de plus.🙂