Tri_base de données

j'ai une base de données et je veux trouver les répétition de noms a condition d'avoir le même prénom et le même nom du père , j'ai déjà une procédure qui calcule seulement la répétition d'une colonne B et Je veux inclure la colonne C et D pour que le compteur incrémente seulement si B,C et D sont identiques , voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test() tablo = Range("B11:B" & Range("B" & Rows.Count).End(xlUp).Row) Set dico = CreateObject("Scripting.dictionary") Set dico1 = CreateObject("Scripting.dictionary") For n = LBound(tablo, 1) To UBound(tablo, 1) x = tablo(n, 1) dico(x) = dico(x) + 1 If dico(x) > 1 Then dico1(x) = dico(x) End If Next If dico1.Count = 0 Then MsgBox ("Pas de Nom répété") Else a = dico1.keys b = dico1.items End If Range("K11").Resize(dico1.Count) = Application.Transpose(dico1.keys) Range("L11").Resize(dico1.Count) = Application.Transpose(dico1.items) End Sub

---

Citation:

---

Envoyé par Mostefa_brains

---

Une solution consisterait à créer une colonne concaténant les cellules des colonnes B,C,D et d'appliquer votre macro test sur celle-ci.

tu as essayé avec une formule sommeprod pour une plage de b1 a d30

Code:

---

=SOMMEPROD(((B1:B30)=(C1:C30))*((C1:C30)=(D1:D30)))

---

pour des plages plus grandes utilises des plages dynamiques