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

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

Votre réponse

Newsletters