Message d'alerte pour chaque doublon

Bonjour,

Je joint un fichier simplifié pour que vous puissiez m'aider. Ma colonne A contient des données récupérées d'une extraction d'un logiciel. Dans cette colonne peut se trouver des doubles (ou triples, quadruples, ça dépend), et j'aurais besoin qu'un msgbox m'affiche toutes les données qui sont en doubles ou plus pour m'alerter et faire mon traitement derrière.

Merci d'avance,

Eloïse

Bonjour;

Est ce qu'on peut trier les données ?

Dans ce cas une simple mise en forme conditionnelle devrait suffire :

A+

Non je peux pas trier les données car je les ai déjà triées au préalable

Bonjour,

Ou alors avec formule

Slts

Comment je peux transposer ça en VBA ?

Re bonjour,

J'ai réussi à transposer la formule sous VBA, mais j'ai un dernière problème : du coup dès qu'une valeur est trouvée en double j'affiche un msg box, mais je voudrais que les valeurs déjà affichées par le msg box ne soit pas affichées une deuxième fois. Pour être plus claire, dans mon fichier, le msg box va s'ouvrir plusieurs fois pour afficher la même valeur telle que CDF_11878 par exemple

Si quelqu'un peut m'aider ça serait super

Merci

Eloïse

avec le bon fichier c'est mieux

Une 'tite macro qui fera l'affaire :

Sub Galopin()
Dim Arr, Dico, DD, k&, msg$, c
Arr = Range("A1").CurrentRegion.Value
  Set Dico = CreateObject("Scripting.Dictionary")
  Set DD = CreateObject("Scripting.Dictionary")
For k = 2 To UBound(Arr)
   If Not Dico.Exists(Arr(k, 1)) Then
      Dico(Arr(k, 1)) = ""
   Else
      DD(Arr(k, 1)) = ""
   End If
Next
  For Each c In DD.keys
   msg = msg & c & " , "
  Next c
   MsgBox msg
End Sub

J'ai changé la macro pour correspondre à ton nouveau besoin.

Salut !

Merci beaucoup ça marche à la perfection !!

Eloïse