Discussion :

[Nonno 94]

Bonjour le forum,

je viens demander votre aide pour résoudre le problème suivant : établir grâce à une macro la liste des doublons figurant dans un tableau après les avoir identifiés.

Pour illustrer ma demande, je vous joins un fichier exemple.

Je vous remercie pour vos réponses.
Cordialement.

Nonno 94.

[grisan29]

bonjour nonno94
je ne sais pas si c'est ce que tu cherche mais voici une macro qui repère les doublons et les coloris sans les supprimés, la recherche se fait en col A mais facile changer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub ColoriageDoublons()
  [A:A].Interior.ColorIndex = xlNone
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("A1", [A65000].End(xlUp))
    If c <> "" Then mondico.Item(c.Value) = mondico.Item(c.Value) + 1
  Next c
  For Each c In Range("A1", [A65000].End(xlUp))
    If mondico.Item(c.Value) > 1 Then c.Interior.ColorIndex = 4
  Next c
End Sub

Pascal

[Nonno 94]

Bonjour Pascal et merci pour la réponse;

malheureusement, elle ne répond pas à ma demande qui est : dresser à partir de la cellule [I13] la liste alphabétique des doublons contenus dans le tableau "D4:H8" et repérés dans le tableau "I4:M8".

Bon après-midi.

Nonno 94.

[boisgontierjacques]

Bonjour,

Liste des doublons en colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Set MonDico = CreateObject("Scripting.Dictionary")
Set MonDico2 = CreateObject("Scripting.Dictionary")
For Each c In Range([a2], [a65000].End(xlUp))
  If MonDico.exists(c.Value) Then MonDico2.Item(c.Value) = ""
  MonDico.Item(c.Value) = ""
Next c
If MonDico2.Count > 0 Then [E2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys)

Jacques Boisgontier

[Nonno 94]

Bonjour et merci d'avoir pris la peine de répondre,

mais malheureusement, votre réponse ne correspond pas à ma demande qui est :

dresser à partir de la cellule [I13] la liste alphabétique des doublons contenus dans le tableau "D4:H8" et repérés dans le tableau "I4:M8"

comme dans le fichier joint.
Peut-être est-ce impossible ?

Désolé.
Cordialement.

Nonno 94.

[ted1057]

bonjour,

j'ai fait quelque chose, je ne sais pas si cela pourra t'aider.
je l'ai incorporer dans module 3