Discussion :

[Thomas88-67]

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,

[EricDgn]

Bonjour,

Une façon de faire, en considérant que le : constitue le marqueur de début:

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
23
Sub Doublon()
   Dim Dico, Doublon As Range, k As Long, debut As String
   Set Dico = CreateObject("Scripting.Dictionary")
   On Error Resume Next
   For Each Doublon In Range("A1", Range("A65536").End(xlUp))
      k = InStr(Doublon, ":")             '<---
      debut = Left(Doublon, k)            '<---
      Doublon = Mid(Doublon, k + 1)       '<---
      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 = debut & Mid(Doublon, 2)   '<---
      For Each duble In Dico.keys
         Dico.Remove duble
      Next
   Next Doublon
End Sub

Bonne continuation.

[Thomas88-67]

Bonjour Eric,

Merci beaucoup pour ta réponse.

C'est parfait.