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 : 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
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