Supprimer des doublons se trouvant dans la même cellule! Fermé

Question

Bonjour, 
Svp je voudrais supprimer des doublons se trouvant dans la même cellule de mon fichier excel (2013) et qui sont séparés par des points-virgules.
si je peux avoir un code vba.
Par exemple:
casablanca;rabat;casablanca;casablanca
Agadir;paris;paris;new york
casablanca;agadir;agadir;casablanca
...
..
.
je voudrais avoir:
casablanca;rabat
Agadir;paris;new york
casablanca;agadir

Merci d'apporter votre aide



Configuration: Windows 7 / Chrome 41.0.2272.118

cousinhub29 · Answer

Bonjour,

Avec une macro, cela est possible..

Regarde le fichier joint, et clique sur l'image

https://www.cjoint.com/c/EDlrdLMRvrK

Bon W-E

via55 · Answer

Bonjour

Une possibilité avec une fonction personnalisée :
https://www.cjoint.com/?0DlrpppoSLz

Cdlmnt
Via

Boisgontierjacques · Answer

Bonsoir,

Fonction perso

=SansDoublon(A1;";")

Function SansDoublon(c, sep)
a = Split(Application.Trim(c), sep)
Set mondico = CreateObject("Scripting.Dictionary")
For i = 0 To UBound(a): mondico(a(i)) ="": Next i
SansDoublon = Join(mondico.keys, sep)
End Function 

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/MFCDoublonCellule2.xls

Jacques Boisgontier

Supprimer des doublons se trouvant dans la même cellule!

3 réponses

Discussions similaires