Supprimer les doublons dans la même cellule
Résolu
Charl13M
Messages postés
17
Statut
Membre
-
Charl13M Messages postés 17 Statut Membre -
Charl13M Messages postés 17 Statut Membre -
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 !
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 !
3 réponses
-
Bonjour,
c'est possible avec une fonction personnalisée VBA si tu as quelques notions
-
Re,
Ok le temps de l'écrire et je reviens, es ce qu'entre les valeurs il y a toujours un espace
-
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
