Supprimer les doublons dans la même cellule

Résolu
Charl13M Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   -  
Charl13M Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Bonjour,

c'est possible avec une fonction personnalisée VBA si tu as quelques notions
0
Charl13M Messages postés 17 Date d'inscription   Statut Membre Dernière intervention  
 
Je suis ouvert au VBA, mais je n'ai malheureusement pas de connaissance.
Auriez-vous un exemple ?
0
Réponse 2 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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   Statut Membre Dernière intervention  
 
Oh super merci, oui toujours des espaces entre chaque valeur
0
Réponse 3 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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   Statut Membre Dernière intervention  
 
C'est parfait, avec les explications en plus, merci beaucoup !
0