Merci de répondre et je joint un exemple

Bonne soirée

JC

Oui c'est vrai il faut respecter le travail des personnes qui connaissent bien excel, mais j'ai justement dans un de mes messages une macro qui ne fonctionne pas entièrement sur la recherche de doublons et je voulais voir si cela pouvait m'aider.

Merci quand même

JC

Bonjour

Encore moi et mes doublons

J'ai téléchargé une macro sur votre site mais je ne peux l'ouvrir l'on me demande un mot de passe

Comment faire pour la lire

Merci d'avance

JC

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