Supprimer les doublons dans la même cellule Résolu/Fermé

Question

Bonjour,

J'ai un fichier avec un très grand nombre de lignes, et dans certaines cellules j'ai des doublons.
Je cherche une solution pour supprimer les doublons mais à l'intérieur d'une même cellule.

Je vous joins le fichier d'exemple : https://www.cjoint.com/c/KHgjfc6XC0C

Merci par avance pour vos réponse !

Mike-31 · Answer

Bonjour,

c'est possible avec une fonction personnalisée VBA si tu as quelques notions

Mike-31 · Answer

Re,

Ok le temps de l'écrire et je reviens, es ce qu'entre les valeurs il y a toujours un espace

Mike-31 · Answer

Re,

ouvre le Visual (clic droit sur un onglet/Visualiser le Code) ou Alt et touche F11 
Insertion/Module/colle ce code

Function Sup_Doublon(Cell)
a = Split(Application.Trim(Cell), " ")
Set mondico = CreateObject("Scripting.Dictionary")
For i = 0 To UBound(a): mondico.Item(a(i)) = 1: Next i
Sup_Doublon = Join(mondico.keys, " ")
End Function 

Active ta cellule B2/Insertion Fonction/dans sélectionner une catégorie, sélectionne Personnalisées
Sélectionne  Sup_Doublon
quand l'assistant s'ouvre dans Cell pointe sur ta première cellule à traiter A1

Entrée et incrémente vers le bas

Supprimer les doublons dans la même cellule

3 réponses

Newsletters