Discussion :

[Antoine S.]

Bonjour,

j'ai un fichier excel contenant des infos de dossiers de clients identifiés à l'aide d'un ID se trouvant dans la 1ère colonne. Le problème c'est qu'il y a plusieurs fois les mêmes ID sur différentes lignes. J'aimerais réduire le nombre de ligne de façon à ce qu'il n'y ait plus qu'une seule ligne par ID. Les données se trouvant dans les autres colonnes pouvant être fusionnées ou mieux, additionnées (car ce sont des chiffres).

Merci de votre aide car je ne sais plus quoi faire

[Philippe Tulliez]

Bonjour,
Si vous avez une version 2010 ou supérieure, j'utiliserais Power Query au lieu du VBA
Intégré à Excel dans l'onglet Donnée depuis la version 2016 (pour 2010 et 2013, il faut ajouter le complément COM Power Query depuis la commande éponyme se trouvant dans le groupe Compléments de l'onglet [Developpeur]

Si j'ai bien compris votre demande, voici un exemple avec une colonne contenant sur plusieurs lignes des références (5 au total) sur plusieurs lignes avec cinq colonnes contenant des valeurs. Ce qui donne au final, les références regroupées sur une ligne avec la somme des valeurs des cinq colonnes
Les étapes par rapport à la table "source" visible dans l'illustration
Dans Excel

• Sélectionner une cellule de la table à regrouper
• Cliquer sur la commande A partir de Tableau ou d'une plage de l'onglet [Données]

Dans l'éditeur Power Query

• Sélectionner la colonne Ref
• Cliquer sur la commande Regrouper par
• Dans la boîte de dialogue "Regrouper par", cocher l'option Avancé et remplir comme illustré plus bas
• Trier la colonne Ref (optionnel)
• Cliquer sur la commande Fermer et charger dans l'onglet [Accueil]

Code de la requête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"Ref", type text}, {"Mont 1", Int64.Type}, {"Mont 2", Int64.Type}, {"Mont 3", Int64.Type}, {"Mont 4", Int64.Type}, {"Mont 5", Int64.Type}}),
    #"Lignes groupées" = Table.Group(#"Type modifié", {"Ref"}, {{"Mont 1", each List.Sum([Mont 1]), type nullable number}, {"Mont 2", each List.Sum([Mont 2]), type nullable number}, {"Mont 3", each List.Sum([Mont 3]), type nullable number}, {"Mont 4", each List.Sum([Mont 4]), type nullable number}, {"Mont 5", each List.Sum([Mont 5]), type nullable number}}),
    #"Lignes triées" = Table.Sort(#"Lignes groupées",{{"Ref", Order.Ascending}})
in
    #"Lignes triées"

Illustration

[Antoine S.]

Ca marche parfaitement bien. Merci beaucoup de votre aide et bonne continuation !

Antoine