Comment fusionner rapidement des lignes selon la valeur d’une colonne, puis effectuer des calculs dans Excel ?
Par exemple, vous disposez d’une plage de données comportant des doublons dans l’une de ses colonnes. Vous souhaitez désormais fusionner les lignes en vous appuyant sur la colonne A (qui contient ces doublons), puis réaliser des calculs sur une autre colonne à partir des lignes ainsi fusionnées, comme le montre la capture d’écran suivante :
Dans Excel, il n’existe pas de méthode rapide pour fusionner des lignes selon la valeur d’une colonne, mais voici quelques astuces vous permettant de regrouper les lignes en double, puis d’additionner ou d’effectuer d’autres calculs sur une autre colonne.
| Données d’origine | Fusionner et additionner |
 |  |
Fusionner des lignes en fonction d’une colonne, puis additionner les valeurs avec Advanced Combine
Fusionner des lignes en fonction d’une colonne, puis appliquer différentes opérations à d’autres colonnes avec
Fusion avancée des lignes
Fusionner des lignes en fonction d’une colonne, puis additionner les valeurs à l’aide de VBA
Un code VBA peut vous aider à fusionner les lignes en double et à additionner les valeurs d’une autre colonne.
1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications, puis cliquez sur Insertion > Module et copiez-collez le code VBA ci-dessous dans le nouveau Module.
VBA : Fusionner des lignes en fonction de la valeur d’une colonne
Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
If Not .Exists(Rng.Value) Then
.Add Rng.Value, Rng.Offset(, 1)
Else
.Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
If nRng Is Nothing Then
Set nRng = Rng
Else
Set nRng = Union(nRng, Rng)
End If
End If
Next
If Not nRng Is Nothing Then
nRng.EntireRow.Delete
End If
End With
End Sub2. Appuyez sur F5 ou cliquez sur le bouton Exécuter pour lancer le code VBA. Une boîte de dialogue s’ouvre alors afin que vous sélectionniez une plage de données à traiter. Voir la capture d’écran :
3. Après avoir sélectionné la plage à traiter, cliquez sur OK. Les données sont désormais fusionnées selon la première colonne, et les valeurs de la deuxième colonne ont été additionnées.
Remarque : Ce code VBA fonctionne uniquement lorsqu’il fusionne les données en se basant sur la première colonne et additionne les valeurs de la deuxième colonne.
Fusionner des lignes en fonction d’une colonne, puis additionner les valeurs avec Fusion avancée des lignes
Si vous n’êtes pas à l’aise avec le code VBA, utilisez la fonctionnalité Fusion avancée des lignes de l’outil tiers – Kutools pour Excel – pour fusionner facilement et rapidement les lignes en double, puis additionner les valeurs d’une autre colonne.
1. Sélectionnez les données à traiter, puis cliquez sur Kutools > Fusionner et scinder > Fusion avancée des lignes. Voir la capture d’écran :
2. Dans la boîte de dialogue qui s’ouvre, sélectionnez la colonne selon laquelle vous souhaitez fusionner les autres colonnes, cliquez sur Clé primaire, choisissez une autre colonne, cliquez sur Calculer, puis sélectionnez Somme.
Conseil : Si votre plage sélectionnée comporte des en-têtes, cochez Inclure les titres, et cochez également Utiliser les valeurs formatées pour conserver la mise en forme après la fusion.
3. Cliquez ensuite sur OK. Les données ont désormais été fusionnées selon la colonne principale, et les valeurs de l’autre colonne ont été additionnées. Voir la capture d’écran :
Fusionnez des lignes selon une colonne, puis appliquez différentes opérations à d’autres colonnes grâce à la Fusion avancée des lignes.
Fusion avancée des lignes est puissante, car elle permet non seulement de fusionner les lignes en double dans une colonne tout en additionnant une autre colonne, mais aussi de fusionner les lignes en double dans une colonne tout en appliquant différentes opérations à d’autres colonnes.
Supposons que j’aie une plage de données comme illustré dans la capture d’écran ci-dessous, et que je souhaite à la fois combiner les valeurs de la colonne B et additionner celles de la colonne C en fonction de la colonne A.
Kutools pour Excel – Doté de plus de 300 outils essentiels pour Excel, il rend vos tâches plus rapides, plus simples et plus efficaces.Téléchargez dès maintenant !
1. Sélectionnez la plage Kutools > Fusionner et scinder > Fusion avancée des lignes. Voir la capture d’écran :
2. Dans la boîte de dialogue Combinez les lignes basées sur la colonne, procédez comme suit :
(1) Cliquez sur la colonne selon laquelle vous souhaitez effectuer la combinaison, puis cliquez sur Clé primaire;
(2) Cliquez sur la colonne dont vous souhaitez combiner les données, puis cliquez sur Combiner, et choisissez un séparateur dans la liste ;
(3) Cliquez sur la colonne dont vous souhaitez additionner les valeurs, puis cliquez sur Calculer et sélectionnez Somme.
3. Cliquez sur OK. Vous obtenez alors le résultat suivant :
Grâce à la fonctionnalité Fusion avancée des lignes, vous pouvez fusionner des lignes en fonction d’une colonne, puis compter, calculer une moyenne ou conserver la première ou la dernière valeur dans les autres colonnes.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels