Supprimer les doublons dans la même cellule

Résolu/Fermé
Charl13M Messages postés 17 Date d'inscription mercredi 7 novembre 2018 Statut Membre Dernière intervention 28 novembre 2022 - 6 août 2021 à 11:07
Charl13M Messages postés 17 Date d'inscription mercredi 7 novembre 2018 Statut Membre Dernière intervention 28 novembre 2022 - 6 août 2021 à 11:48
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 !
A voir également:

3 réponses

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
6 août 2021 à 11:23
Bonjour,

c'est possible avec une fonction personnalisée VBA si tu as quelques notions
0
Charl13M Messages postés 17 Date d'inscription mercredi 7 novembre 2018 Statut Membre Dernière intervention 28 novembre 2022
6 août 2021 à 11:26
Je suis ouvert au VBA, mais je n'ai malheureusement pas de connaissance.
Auriez-vous un exemple ?
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
Modifié le 6 août 2021 à 11:28
Re,

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

0
Charl13M Messages postés 17 Date d'inscription mercredi 7 novembre 2018 Statut Membre Dernière intervention 28 novembre 2022
6 août 2021 à 11:29
Oh super merci, oui toujours des espaces entre chaque valeur
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
6 août 2021 à 11:39
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
0
Charl13M Messages postés 17 Date d'inscription mercredi 7 novembre 2018 Statut Membre Dernière intervention 28 novembre 2022
6 août 2021 à 11:48
C'est parfait, avec les explications en plus, merci beaucoup !
0