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