Comment supprimer les doublons tout en conservant la première occurrence dans Excel ?
Imaginez que vous disposiez d’une liste de valeurs dans votre feuille de calcul contenant des doublons. Vous souhaitez maintenant les supprimer tout en conservant la première occurrence de chaque valeur dupliquée. Dans cet article, nous vous présentons deux méthodes efficaces pour éliminer les doublons tout en gardant leur première apparition dans Excel.
Supprimer les doublons, tout en conservant la première occurrence avec du code VBA
Supprimer les doublons, tout en conservant la première occurrence avec Kutools pour Excel
Supprimer les doublons, tout en conservant la première occurrence avec du code VBA
Vous pouvez exécuter le code VBA ci-dessous pour supprimer les doublons tout en conservant la première occurrence dans une colonne.
1. Appuyez sur Alt + F11 pour ouvrir la boîte de dialogue Microsoft Visual Basic pour Applications.
2. Dans la boîte de dialogue Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Copiez ensuite le code ci-dessous et collez-le dans la fenêtre de code.
Code VBA : Supprimer les doublons, tout en conservant la première occurrence
Sub TrimExcessSpaces()
Dim Rng As Range
Dim WorkRng As Range
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
For Each Rng In WorkRng.Cells
dic(Rng.Value) = ""
Next
WorkRng.ClearContents
WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub3. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools for Excel qui s’ouvre, sélectionnez la plage à laquelle vous souhaitez appliquer « Supprimer les doublons », puis cliquez sur le bouton OK. Voir la capture d’écran :
Vous constatez désormais que toutes les occurrences de « Ligne en double » ont été supprimées dans la plage de colonnes sélectionnée, à l’exception des premiers enregistrements. Voir la capture d’écran :
Supprimer les doublons, tout en conservant la première occurrence avec Kutools pour Excel
Outre le code VBA, vous pouvez utiliser l’utilitaire Sélectionner les cellules en double/uniques de l’extension Kutools pour Excel pour supprimer facilement les doublons tout en conservant leurs premières occurrences dans Excel.
1. Sélectionnez la plage à laquelle vous souhaitez appliquer la suppression des doublons tout en conservant les premières occurrences, puis cliquez sur Kutools > Sélectionner > Sélectionner les cellules en double/uniques.
2. Dans la boîte de dialogue Sélectionner les cellules en double/uniques, sélectionnez l’option Valeurs en double (Exclure la première correspondance), puis cliquez sur le bouton OK. Voir la capture d’écran :
3. Dans la boîte de dialogue suivante Sélectionner les cellules en double/uniques, cliquez sur OK.
4. Les doublons sont désormais sélectionnés, à l’exception de leur première occurrence. Appuyez sur la touche Suppr pour supprimer les doublons sélectionnés.
Remarque : Si vous souhaitez supprimer les lignes en double, il vous suffit de cocher l’option Sélectionner la ligne entière dans la boîte de dialogue Sélectionner les cellules en double/uniques, puis d’utiliser la commande Supprimer du menu contextuel pour supprimer entièrement les lignes en double.
Si vous souhaitez profiter d’un essai gratuit de 30 jours de cet utilitaire,cliquez ici pour le télécharger, puis suivez les étapes indiquées ci-dessus.
Supprimer les doublons, tout en conservant la première occurrence 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