Discussion :

[Kikou77]

Bonjour,

J'espère que vous allez bien.

Mes données sont en PJ. C'est une liste avec des fournisseurs avec les noms des apporteurs d'affaires. Lorsqu'un fournisseur est amené par plusieurs apporteurs d'affaire, il y a une ligne par fournisseur du type :

001	Fournisseur1	Nicolas
001	Fournisseur1	Jeannot
001	Fournisseur1	Olivia

J'aimerais transformer cette liste pour avoir une ligne par fournisseur et le nom de tous les apporteurs d'affaire dans un même champs (séparé par une virgule et un espace). Par exemple :

001 Fournisseur1 Nicolas, Jeannot, Olivia

Comment puis-je faire svp ?

Pour info, dans le fichier en PJ, j'ai un onglet avec ma liste de départ et un onglet avec le résultat que j'aimerais obtenir.

Bonne journée,

[f-leb]

Bonsoir,

001	Fournisseur1	Nicolas
001	Fournisseur1	Jeannot
001	Fournisseur1	Olivia

J'aimerais transformer cette liste pour avoir une ligne par fournisseur et le nom de tous les apporteurs d'affaire dans un même champs (séparé par une virgule et un espace). Par exemple :

001 Fournisseur1 Nicolas, Jeannot, Olivia

Solution ici Concaténer plusieurs enregistrements dans une seule colonne

[Malick]

Salut,

Je pense que la question est relative à Excel. Non ?

Si oui, une solution avec un TCD, peut-être que cela vous conviendrait.

[ARTURO83]

Bonjour,

Autre proposition:
Pièce jointe 575271

le code

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Repartition()
    Dim DerLig As Long, i As Long, j As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
 
    'Marquage pour modifier l'ordre des données et retrouver dans l'ordre initial à la fin
    Range("D2").Value = "1"
    Range("D2").AutoFill Destination:=Range("D2:D" & DerLig), Type:=xlFillSeries
 
    'Tri par N° fournisseur et par source
    Range("A2:D" & DerLig).Sort [A1], 1
    Range("A2:D" & DerLig).Sort [B1], 1
 
    Lig = 2
    For i = 2 To DerLig
        If Cells(i, "B") <> Cells(i + 1, "B") Then
            Cells(Lig, "E") = Cells(i, "B")
            Cells(Lig, "F") = Cells(i, "C")
            Cells(Lig, "G") = Cells(i, "A")
            Lig = Lig + 1
        Else
            Cells(Lig, "E") = Cells(i, "B")
            Cells(Lig, "F") = Cells(i, "C")
            Cells(Lig, "G") = Cells(i, "A")
            j = i + 1
            Do While Cells(j, "B") = Cells(i, "B")
                If Cells(j, "A") <> Cells(j - 1, "A") Then
                    Cells(Lig, "G") = Cells(Lig, "G") & ", " & Cells(j, "A")
                End If
                j = j + 1
            Loop
            Lig = Lig + 1
            i = i + 1
        End If
    Next i
    Range("E1").Value = Range("B1").Value
    Range("F1").Value = Range("C1").Value
    Range("G1").Value = Range("A1").Value
    'Tri pour retrouver la configuration initiale
    Range("A2:D" & DerLig).Sort [D1], 1
    Columns(4).ClearContents
End Sub

Cdlt

[Malick]

Salut,

@ARTURO83 : Belle démonstration

[Kikou77]

Bonjour,

merci pour vos réponses.
La discussion a été déplacée. Elle était initialement dans Access / Requête et SQL.

Je travaille sous Access et je souhaite mettre en forme une table de manière à passer d'un apporteur d'affaire par ligne et par compagnie à une ligne par compagnie avec tous les apporteur d'affaire sur la même ligne. Est-ce possible de transformer une table pour obtenir ce résultat sous Access 2016 ?

Merci d'avance pour vos retours,

[Malick]

Salut Kikou77,

Dans ta demande initiale, vous n'aviez pas précisé que vous travaillez avec Access, surtout que vous avez mis en pièce jointe un fichier Excel : ce qui porte à confusion.
Également poster un fichier dès le début du fil est contraire aux règles du Club.

Par ailleurs f-leb a fourni un lien vers la FAQ Access qui pourrait répondre à ta problématique. Sinon, je vous invite à créer un nouveau fil dans le forum Access et expliquer, comme vous venez de le faire avec capture d'écran, ce que vous souhaitez.

et bon courage

Malick