Supprimer doublon entre plusieurs colonnes

Résolu
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -  
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,

Comment supprimer les doublons entre plusieurs colonnes en ne gardant que la donnée dans la 1ère colonne ?

Exemple: (garder données en colonne B mais effacer les données des autres colonnes si doublon)

Merci d'avance,

EXCEL 2010>2016

Cdlt
Windows / Firefox 91.0

A voir également:

1 réponse

Réponse 1 / 1
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 

Bonjour

Une possibilité par macro :

Sub SuppressDoublons()
Dim cell As Range, plage As Range
   Set plage = ActiveSheet.Range("C2:D20") ' MODIFIER ici la plage à traiter
   'Annulation rafraichissement écran le temps du traitement
 Application.ScreenUpdating = False
    'Boucle sur la plage de cellules
    For Each cell In plage
    
        'Pour ne pas prendre en compte les cellules vides
        If cell <> "" Then
        
         ' si la valeur de la cellule existe déjà dans la colonne B elle est effacée
        If WorksheetFunction.CountIf(Range("B:B"), cell) > 0 Then Range(cell.Address) = ""
        
        End If
    Next cell

 ' Remise rafraichissement écran
  Application.ScreenUpdating = True
End Sub

Cilc droit sur le nom de l'onglet en bas et Visualiser le code pour ouvrir l'éditeur VBA

Dans le Menu : Insertion puis Module

Copier-coller la macro dans la page blanche

Modifier selon ton fichier la plage à traiter dans 2eme ligne de la macro

Fermer l'éditeur VBA

lancer la macro depuis le ruban - Développeur - Macros

Cdlmnt

Via
1
PYGOS69 Messages postés 452 Date d'inscription   Statut Membre Dernière intervention   21
 

Bonjour via55,

Merci, c'est parfait ! :)

Cdlt

0