Bonjour,

J'utilise une macro pour supprimer des référence en doublons dans une même cellule.
Voici la macro:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Doublon()
 
Dim Dico, Doublon As Range
 Set Dico = CreateObject("Scripting.Dictionary")
 On Error Resume Next
 For Each Doublon In Range("A1", Range("A65536").End(xlUp))
 tablo = Split(Doublon, ",")
 For Each Item In tablo
 Item = Application.Trim(Item)
Dico.Add Item, ""
 Next Item
 Doublon = ""
 For Each duble In Dico.keys
 Doublon = Doublon & ", " & duble
 Next
 Doublon = Left(Right(Doublon, Len(Doublon) - 2), Len(Doublon) - 2)
 For Each duble In Dico.keys
 Dico.Remove duble
 Next
 Next Doublon
 
End Sub
Le but c'est que dans un texte exemple :

Liste1 : A1, A2, A1, Liste2 : A40, A42, A42

Cela supprime les doublons. Cela fonctionne en partie car le résultat est:

Liste1 : A1, A2, A1, Liste2 : A40, A42

Mais le deuxième A1 ne se supprime pas car le premier n'est pas précédé d'une "," mais de ":".

Pouvez vous m'aider à modifier la macro pour que les deux conditions fonctionnent.

En vous remerciant bien par avance,