Comment concaténer des cellules lorsqu’une même valeur apparaît dans une autre colonne sous Excel ?
Comme le montre la capture d’écran ci-dessous, si vous souhaitez concaténer les cellules de la deuxième colonne en fonction des valeurs identiques de la première colonne, plusieurs méthodes s’offrent à vous. Dans cet article, découvrez trois façons efficaces de réaliser cette tâche.
Concaténer des cellules en cas de valeurs identiques à l’aide de formules et d’un filtre
Les formules suivantes permettent de concaténer les cellules d’une colonne en fonction des valeurs identiques présentes dans une autre colonne.
1. Sélectionnez une cellule vide à côté de la deuxième colonne (ici, nous choisissons la cellule C2), saisissez la formule =IF(A2<>A1,B2,C1 & "," & B2) dans la barre de formule, puis appuyez sur la touche Entrée.
2. Ensuite, sélectionnez la cellule C2 et faites glisser la poignée de recopie vers les cellules que vous souhaitez fusionner.
3. Saisissez la formule =IF(A2<>A3,CONCATENATE(A2,","«»,C2,«»«»),«») dans la cellule D2, puis faites glisser la poignée de recopie vers les cellules suivantes.
4. Sélectionnez la cellule D1, puis cliquez sur Données > Filtrer. Voir la capture d’écran :
5. Cliquez sur la flèche déroulante située dans la cellule D1, décochez la case (Vides), puis cliquez sur le bouton OK.
Vous remarquerez que les cellules sont concaténées dès que les valeurs de la première colonne sont identiques.
Remarque : pour utiliser correctement les formules ci-dessus, les valeurs identiques de la colonne A doivent être consécutives.
Concaténer facilement des cellules en cas de valeurs identiques avec Kutools pour Excel (en quelques clics seulement)
La méthode décrite ci-dessus nécessite la création de deux colonnes auxiliaires et implique plusieurs étapes, ce qui peut s’avérer peu pratique. Si vous recherchez une solution plus simple, envisagez d’utiliser l’outil Fusion avancée des lignes de Kutools pour Excel. En seulement quelques clics, cet utilitaire vous permet de concaténer des cellules à l’aide d’un délimiteur spécifique, rendant la procédure rapide et sans effort.
1. Cliquez sur Kutools > Fusionner et scinder > Fusion avancée des lignes pour activer cette fonctionnalité.
2. Dans la boîte de dialogue Fusion avancée des lignes, procédez comme suit :
- Sélectionnez la plage que vous souhaitez concaténer ;
- Définissez la colonne contenant les mêmes valeurs comme colonne Clé primaire.
- Séparateur utilisé pour combiner les cellules.
- Cliquez sur OK.
Résultat
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
- Pour en savoir plus sur cette fonctionnalité, consultez cet article :Combiner rapidement les mêmes valeurs ou Ligne en double dans Excel
Concaténer des cellules en cas de valeurs identiques à l’aide d’un code VBA
Vous pouvez également utiliser un code VBA pour concaténer les cellules d’une colonne dès lors que des valeurs identiques apparaissent dans une autre colonne.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Copiez ensuite le code ci-dessous et collez-le dans la fenêtre Module.
Code VBA : concaténer des cellules en cas de valeurs identiques
Sub ConcatenateCellsIfSameValues()
Dim xCol As New Collection
Dim xSrc As Variant
Dim xRes() As Variant
Dim I As Long
Dim J As Long
Dim xRg As Range
xSrc = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
Set xRg = Range("D1")
On Error Resume Next
For I = 2 To UBound(xSrc)
xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Next I
On Error GoTo 0
ReDim xRes(1 To xCol.Count + 1, 1 To 2)
xRes(1, 1) = "No"
xRes(1, 2) = "Combined Color"
For I = 1 To xCol.Count
xRes(I + 1, 1) = xCol(I)
For J = 2 To UBound(xSrc)
If xSrc(J, 1) = xRes(I + 1, 1) Then
xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
End If
Next J
xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
Next I
Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = "@"
xRg = xRes
xRg.EntireColumn.AutoFit
End SubRemarques:
3. Appuyez sur la touche F5 pour exécuter le code, puis vous obtiendrez les résultats concaténés dans la plage limitée.
Démo : Concaténer facilement des cellules en cas de valeurs identiques avec Kutools pour Excel
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