Microsoft 365 Macro ou autre pour préparer fichier publipostage

[mozza]

Bonjour à tous,

Afin de préparer un fichier publipostage à destination d'un client, je dois mettre en forme celui-ci à la main. Je m'explique :
Ma feuille Excel regroupe des siret, des n°de magasins et des salariés, il y a une ligne par salarié. Pour le publipostage le fichier ne doit plus comporter qu'une ligne par magasin et siret. Ce qui veut dire que dans la colonne des noms, ils sont regroupés dans 1 seule cellule pour 1 mag et siret (voir Fichier en PJ). Aujourd'hui je fais ça à la main mais j'imagine qu'il y a moyen d'automatiser cela par une macro ou autre chose ?

Merci de votre aide

 

[chris]

Bonjour
Assez simple à faire avec PowerQuery, intégré à Excel
Quand la source évolue, actualiser le résultat par un clic droit dans le tableau

 

[sylvanu]

Bonjour Mozza, Chris,
Et pour ceux qui n'ont pas PQ, et comme c'est fait, une solution VBA.
Il suffit de sélectionner la feuille "résultat souhaité" la macro s'exécute automatiquement :

Sub Worksheet_Activate()
Dim DL%, L%, i%, Chaine$, Numéro
[A:C].Clear                                                                     ' suppression colonnes A:C
Application.ScreenUpdating = False                                              ' figeage écran
DL = Sheets("Source").Cells(Cells.Rows.Count, "A").End(xlUp).Row                ' dernière ligne de la source
tablo = Sheets("Source").Range("A1:C" & DL).Value                               ' données source dans tableau
Range("A1:C" & DL) = Sheets("Source").Range("A1:C" & DL).Value                  ' copie données source dans feuille
[A:C].Resize(DL).Sort key1:=[B1], order1:=xlAscending, Header:=xlYes            ' tri sur N°
[A:C].RemoveDuplicates Columns:=2, Header:=xlYes                                ' suppression doublons
[A:A].NumberFormat = "0"                                                        ' format correct pour Siret
DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row                                 ' dernière ligne de feuille
Range("A1:C" & DL).Borders.Weight = xlThin                                      ' quadrillage
For L = 2 To DL                                                                 ' pour toutes les lignes
    Numéro = Cells(L, "B"): Cells(L, "C") = "": Chaine = ""                     ' mémorisation N°, et init variables
    For i = 2 To UBound(tablo)                                                  ' pour toutes données de source
        If tablo(i, 2) = Numéro Then Chaine = Chaine & tablo(i, 3) & Chr(10)    ' si même N° on l'ajoute
    Next i
    Cells(L, "C").FormulaR1C1 = Mid(Chaine, 1, Len(Chaine) - 1)                 ' à la fin on range le résultat
Next L
[A:C].VerticalAlignment = xlCenter                                              ' mise en forme vertical
[B:B].HorizontalAlignment = xlCenter                                            ' et horizontal
End Sub

 

[mozza]

Merci à vous 2,
PQ je ne connais pas et ne vois pas du tout comment ça marche

 

[chris]

Merci à vous 2,
PQ je ne connais pas et ne vois pas du tout comment ça marche

PQ existe depuis 2010...

Il suffit de le lancer (Données, Obtenir des données, Lancer PQ) pour voir les étapes de la requête à droite : quelques clics et c'est fait...

le B A BA ici http://www.excel-formations.fr/Trucs_astuces/PQ00.php

 

[mozza]

Ok merci