Mettre en forme un fichier qui est sur une seule colonne

Bonjour à tous,

Je souhaite trier un fichier qui est enregistrer sur une seule colonne,

je voudrais pouvoir mettre se fichier en ligne avec plusieurs colonnes d'une façon simple et rapide car il y a beaucoup de ligne,

il m'est impossible de faire "collage spéciale-transposer" pour toutes les lignes.

je vous joins un fichier afin d'éclairer mes dires.

j'ai tenté plusieurs formules mais je n'y arrive vraiment pas.

je n'ai pas trouvé la réponse dans le forum.

je vous remercie par avance pour votre aide,

bonne soirée à tous

Bonjour,

je débroussaille pour mes petits camarades... (moi je serai absent bientôt)

toutes les sociétés ont elles le même nombre de lignes ? ici 7 pour le premier et 5 pour le second...

et si tu mettais 15-20 vraies lignes de ton fichier de base ? quitte à changer 2 ou 3 données confidentielles

P.

Bonsoir Patrick,

Merci pour ce premier retour

Il y a effectivement toujours le même nombre de critères pour chaque société soit 5 colonnes.

Les données sont toujours rangées de la même façon :

• nom de la société
• adresse
• code postal
• tel
• fax

Tifenn

Ok mais ...

5 données sur 5 lignes ou sur 7 lignes ou plus ou moins ?

Je demandais un petit fichier de qq lignes...

Je vous joins un extrait du fichier,

il y a beaucoup de lignes sinon

merci

Bonjour,

Un essai sans macro, pour le plaisir.....

Je rajoute 3 colonnes A B et C

J'obtiens les résultat par un RECHERCHEV

j'attends les propositions macro.

@+

c'est exactement cela si une macro est possible ça serait top,

merci pour ce débroussaillage Patrick

re,

vite fait avant la nuit (il faut que les données commencent à la ligne 1 et que ça soit un groupe de 4 lignes par société)

Option Explicit

Sub Macro1()
Dim Li, I, Nlig
Application.ScreenUpdating = False
Nlig = Range("C" & Rows.Count).End(xlUp).Row
I = 1
   For Li = 1 To Nlig Step 4 ' ici pour 4 lignes (changer en 5 si les data sont  TOUJOURS sur 5 lignes)
      Range("C" & Li & ":C" & Li + 3).Copy
      Cells(I, 5).PasteSpecial Paste:=xlPasteAll, Transpose:=True
      I = I + 1
   Next
Application.CutCopyMode = False
End Sub

Bonsoir,

Une proposition :

Sub ReorgTablo()
    Dim Tbl(), n%, i%, j%, k%
    With ActiveSheet
        n = .Range("C" & .Rows.Count).End(xlUp).Row
        For i = 2 To n
            j = j + 1: ReDim Preserve Tbl(4, j)
            For k = 0 To 2
                Tbl(k, j) = .Cells(i + k, 3)
            Next k
            If .Cells(i + 3, 3) Like "Tél*" Then
                Tbl(3, j) = .Cells(i + 3, 3)
                If .Cells(i + 4, 3) Like "Fax*" Then
                    Tbl(4, j) = .Cells(i + 4, 3): k = k + 1
                End If
            ElseIf .Cells(i + 3, j) Like "Fax*" Then
                Tbl(4, j) = .Cells(i + 3, 3)
            End If
            i = i + k: k = 0
        Next i
    End With
    Tbl(0, 0) = "Nom": Tbl(1, 0) = "Adresse": Tbl(2, 0) = "Ville"
    Tbl(3, 0) = "Tél": Tbl(4, 0) = "Fax"
    With Worksheets.Add(after:=ActiveSheet).Range("A1").Resize(j + 1, 5)
        .Value = WorksheetFunction.Transpose(Tbl)
        With .Rows(1)
            .Font.Italic = True: .Font.Bold = True
            .HorizontalAlignment = xlCenter
        End With
        .Columns.AutoFit
    End With
End Sub

Cordialement.

Bonjour

Merci beaucoup pour ce coup de main,

c'est exactement ce que j'avais tenté de faire de façon manuelle.

Je remercie Patrick et MFerrand pour m'avoir débrouillé de ce problème.

Bonne journée et bonnes vacances