Comment fusionner deux listes sans inclure de doublons dans Excel ?
Il y a deux listes dans votre feuille de calcul, certaines valeurs sont en double, et vous souhaitez les fusionner tout en ne conservant que les valeurs uniques, comme illustré dans les captures d’écran ci-dessous. Comment procéder ?
 |  |  |
Fusionner des listes sans doublons avec Supprimer les doublons dans Excel
Fusionner des listes sans doublons avec VBA
Fusionner des listes sans doublons avec Kutools pour Excel
Fusionner des listes sans doublons avec Supprimer les doublons dans Excel
Pour fusionner deux listes et supprimer Valeurs en double dans Excel, procédez comme suit :
1. Copiez l’une des deux listes et collez-la sous l’autre, comme illustré dans la capture d’écran :
| |  |
2. Sélectionnez la liste, puis cliquez sur Données > Supprimer les doublons. Voir la capture d’écran :
3. Dans la boîte de dialogue Supprimer les doublons, si votre colonne ne comporte pas d’en-tête, décochez l’option Inclure les titres, puis cliquez sur OK. Voir la capture d’écran :
4. Une boîte de dialogue s’affiche alors à l’écran pour vous informer que les doublons ont été supprimés ; cliquez sur OK. Voir la capture d’écran :
Vous pouvez voir le résultat :
Fusionner des listes sans doublons avec VBA
Dans Excel, une macro VBA peut également vous aider à fusionner deux listes sans inclure de doublons.
1. Maintenez la touche ALT enfoncée et appuyez sur F11 pour ouvrir une fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis copiez la macro VBA dans le module.
VBA : Fusionner des listes sans doublons
Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
For i = 1 To InputRng.Rows.Count
xValue = InputRng.Cells(i, j).Value
If xValue <> "" And Not dic.Exists(xValue) Then
OutRng.Value = xValue
dic(xValue) = ""
Set OutRng = OutRng.Offset(1, 0)
End If
Next
Next
End Sub
3. Cliquez sur le bouton Exécuter ou appuyez sur F5 pour exécuter la macro VBA.
4. Une boîte de dialogue s’affiche à l’écran, vous permettant de sélectionner la plage à fusionner. Voir la capture d’écran :
5. Cliquez sur OK, puis une autre boîte de dialogue s’ouvre pour vous permettre de choisir la cellule dans laquelle afficher le résultat combiné. Voir la capture d’écran :
6. Cliquez sur OK. Vous constaterez que les listes ont été fusionnées.
Astuce : Le résultat ne conserve pas la mise en forme des cellules après l’exécution de la macro VBA ci-dessus.
Fusionner des listes sans doublons avec Kutools pour Excel
Une fois Kutools pour Excel installé, vous pouvez utiliser la fonction Sélectionner les cellules en double/uniques pour fusionner deux listes sans doublons.
Kutools pour Excel inclut plus de 300 outils pratiques pour Excel. Essayez-le gratuitement et sans limitation pendant 30 jours.Téléchargez-le dès maintenant
1. Copiez l’une des deux listes et collez-la sous l’autre, sélectionnez la liste ainsi obtenue, puis cliquez sur Kutools > Sélectionner > Sélectionner les cellules en double/uniques. Voir la capture d’écran :
2. Dans la boîte de dialogue Sélectionner les cellules en double/uniques, cochez l’option Toutes les valeurs uniques (y compris les premiers doublons), puis cliquez sur OK.
3. Une boîte de dialogue s’affiche alors pour vous indiquer combien de valeurs uniques ont été sélectionnées ; cliquez sur OK et Annuler pour fermer les deux boîtes de dialogue. Voir la capture d’écran :
4. Copiez ensuite les valeurs uniques sélectionnées et collez-les dans une nouvelle colonne. Voir la capture d’écran :
Cliquez ici pour en savoir plus sur la sélection des cellules en double ou uniques.
Articles associés :
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