Rapport de message :*
 

recherche de doublons

Titre du sujet : recherche de doublons
par jc le 18/09/2007 11:35:47

Bonjour à tous,

Nouveau sur ce site j'ai une macro de recherche de doublons, malheuresement celle-ci de trouve pas tous les doublons
Quelqu'un peut-il m'aider?
voici la macro et le tableau il faut rechercher si les joueurs 26 et 31 ne rejouent pas ensemble dans les autres parties

Sub Sup_Doublon()

Dim cell As Range
Dim Doublon As Collection
Dim tablo()
Dim x As Long, derlign As Long

Set Doublon = New Collection

For Each cell In Range("D2:D" & Range("D65536").End(xlUp).Row)
On Error Resume Next
Doublon.Add cell, CStr(cell)
If Err.Number <> 0 Then
x = x + 1
ReDim Preserve tablo(x)
tablo(x) = cell.Row
End If
Next cell

If x = 0 Then Exit Sub

Application.ScreenUpdating = False
derlign = Sheets("Feuil2").Range("A65536").End(xlUp).Row

For x = UBound(tablo) To LBound(tablo) Step -1
Range("A" & tablo(x) & ":" & "Q" & tablo(x)).Copy Sheets("Feuil2").Range("A" & derlign + 1)
Rows(tablo(x)).EntireRow.Delete
derlign = derlign + 1
Next x

Application.ScreenUpdating = True
On Error GoTo 0
Set Doublon = Nothing

End Sub

1 ere PARTIE JEU 1 JEU 2 JEU 3 JEU 4 JEU 5 JEU 6 JEU 7 JEU 8 JEU 9
26 20 21 4 7 27 14 34 36
31 5 25 37 32 9 33 17 12
22 2 6 29 18 15 24 35 19
28 23 11 8 16 1 30 10 38
0 0 0 3 0 0 0 13 0
2 ème PARTIE JEU 1 JEU 2 JEU 3 JEU 4 JEU 5 JEU 6 JEU 7 JEU 8 JEU 9
24 5 21 13 25 14 17 1 12
32 23 26 30 19 37 9 4 34
27 10 28 15 6 31 7 22 8
2 18 35 16 38 11 3 29 20
0 0 0 36 0 0 0 33 0
3 ème PARTIE JEU 1 JEU 2 JEU 3 JEU 4 JEU 5 JEU 6 JEU 7 JEU 8 JEU 9
21 25 34 13 17 36 10 9 3
26 24 27 1 14 4 20 33 22
31 29 7 28 35 18 2 16 38
15 32 19 5 11 23 30 12 8
0 0 0 37 0 0 0 6 0
4 ème PARTIE JEU 1 JEU 2 JEU 3 JEU 4 JEU 5 JEU 6 JEU 7 JEU 8 JEU 9
30 15 31 10 7 36 32 24 17
6 22 12 2 25 33 18 26 8
1 38 29 34 20 35 23 19 37
4 9 28 14 11 3 21 5 27
0 0 0 13 0 0 0 16 0
5 ème PARTIE JEU 1 JEU 2 JEU 3 JEU 4 JEU 5 JEU 6 JEU 7 JEU 8 JEU 9
10 22 9 37 23 32 6 29 2
1 27 15 20 3 19 16 4 12
8 13 7 18 5 24 33 35 14
26 28 31 30 38 34 25 17 21
0 0 0 11 0 0 0 36 0