vérifier les doublons et les localiser

[2b7a]

Bonjour à toutes et tous,

J'ai un problème de doublons
Je reçois des factures chaque mois avec des noms de clients.
Il y a des doublons non seulement dans la facture même mais souvent dans les factures précédentes
Il faut donc que je revienne sans arrêt sur les anciennes factures

Quelle formule pourrait m'aider à compter les doublons et à déterminer dans quelle facture ils sont ?

... je vous joins un exemple

D'avance, merci pour votre aide.

 

[BOISGONTIER]

Re : vérifier les doublons et les localiser

Bonjour,

Voir PJ

Objet dictionary

Sub GroupColor()
  Set champ = Range("C6:C" & [C65000].End(xlUp).Row)
  champ.Interior.ColorIndex = xlNone
  Set d = CreateObject("Scripting.Dictionary")
  Set d2 = CreateObject("Scripting.Dictionary")
  For Each c In champ
    d.Item(c.Value) = d.Item(c.Value) + 1
    d2.Item(c.Value) = d2.Item(c.Value) & CStr(c.Row) & "-"
  Next c
  champ.ClearComments
  For Each c In champ
    If d.Item(c.Value) > 1 Then
       c.Interior.ColorIndex = (Application.Match(c.Value, d.keys, 0) + 2) Mod 55
       c.AddComment
       temp = c.Value
       c.Comment.Text Text:=Left(d2.Item(temp), Len(d2.Item(temp)) - 1)
       c.Comment.Shape.Left = c.Offset(, 1).Left + 30
       c.Comment.Shape.Top = c.Offset(, 1).Top + 3
       c.Comment.Shape.TextFrame.AutoSize = True
       c.Comment.Visible = True
     End If
   Next c
End Sub

JB

 

[2b7a]

Re : vérifier les doublons et les localiser

Bonjour,

Voir PJ

Objet dictionary

Sub GroupColor()
  Set champ = Range("C6:C" & [C65000].End(xlUp).Row)
  champ.Interior.ColorIndex = xlNone
  Set d = CreateObject("Scripting.Dictionary")
  Set d2 = CreateObject("Scripting.Dictionary")
  For Each c In champ
    d.Item(c.Value) = d.Item(c.Value) + 1
    d2.Item(c.Value) = d2.Item(c.Value) & CStr(c.Row) & "-"
  Next c
  champ.ClearComments
  For Each c In champ
    If d.Item(c.Value) > 1 Then
       c.Interior.ColorIndex = (Application.Match(c.Value, d.keys, 0) + 2) Mod 55
       c.AddComment
       temp = c.Value
       c.Comment.Text Text:=Left(d2.Item(temp), Len(d2.Item(temp)) - 1)
       c.Comment.Shape.Left = c.Offset(, 1).Left + 30
       c.Comment.Shape.Top = c.Offset(, 1).Top + 3
       c.Comment.Shape.TextFrame.AutoSize = True
       c.Comment.Visible = True
     End If
   Next c
End Sub

JB

Merci pour ta réponse Boigontier
Mais hélas, politique d'entreprise .... pas de macros ; uniquement des formules
tu peux retranscrire en formule ?

 

[BOISGONTIER]

Re : vérifier les doublons et les localiser

>politique d'entreprise .... pas de macros ; uniquement des formules

?????


JB

 

[2b7a]

Re : vérifier les doublons et les localiser

Merci beaucoup Boisgontier,

.... et oui, le "chef" ne veut pas entendre parler de macros !!!!

Très bonne soirée à toi.