recherche de doublons
#1
Débutant XLPages

Inscription: 18/09/2007

Messages: 14

Posté le : 18-09-2007 11h35
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

Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#2
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 18-09-2007 16h45
Bonjour à tous,
Re JC (arf ça fait drôle)

Si tu joignais ton fichier, il serait plus aisé de tenter de t'aider.

A+


Cordialement
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#3
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 18-09-2007 20h51
Re jc, JCGL,

Comme précisé dans l'autre fil, je viens de regarder ton problème jc.
Effectivement, JCGL a tout à fait raison, sans un exemple détaillé, il va être difficile (voir impossible) de t'aider...

Pour me faire une idée, je viens d'essayer de reproduire sur une feuille Excel les données que tu fournis : je me retrouve avec un tableau de données qui s'étend de A1 à J30 et là, on se rend compte qu'il est difficile de comprendre le sens du code VBA que tu donnes et notamment le pourquoi d'une boucle sur la seule colonne D ?

Dans l'attente d'un peu plus de précisions de ta part...

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#4
Débutant XLPages

Inscription: 18/09/2007

Messages: 14

Posté le : 18-09-2007 21h16
Merci de répondre et je joint un exemple

Bonne soirée

JC
Pièce jointe:
xls ESSAI DOUBLONS.xls   [ Taille: 34.00 Ko - Téléchargements: 654 ]
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#5
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 18-09-2007 22h12
Bonjour à tous,
Salut mDF,

JC :

Doit-on tenter de "résoudre" avec le code donné à l'origine ou celui dans le fichier joint ?

Une Mise en Forme Conditionnelle pourrait-elle convenir ou bien tiens-tu absolument au VBA ?

Puis-je résumer ton souci ainsi : un jouer ne doit pas jouer contre le même joueur dans une des parties ?

Combien de parties possible ?

Quelle est la différence entre Partie et Jeu ?

Pourquoi les Jeux 4 et 8 ont-ils cinq "joueurs" ?

Ne pense surtout pas que ces questions sont là pour t'embarrasser mais tu es dans ton "trip" et nous juste à coté mais un peu éloigné quand même...

On y croit mon homonyme =Gauche("JCGL";2)

Au plaisir de te lire


Cordialement
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#6
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 18-09-2007 22h14
Re jc,

Eh bien, pas très simple à comprendre ton problème...

Les données dans la feuille ressemblent effectivement à ce que j'avais reconstitué tout à l'heure.
Par contre, le code dans le classeur n'a plus rien à voir avec le code que tu fournis dans ton sujet !

En faisant fonctionner ta macro, je pense voir à peu près ce que tu souhaiterais obtenir, mais il est évident qu'il va falloir être un peu plus explicite jc si tu souhaites notre aide...

Ce que j'en dirais pour l'instant, c'est que j'échangerais bien ta ligne de code :
For Each c In Range(Cells(61), Cells(306))

par celle-ci :
For Each c In Range(Cells(62), Cells(3010))

mais vu le peu d'info dont nous disposons, je suis peut-être complètement à côté de la plaque !

Pas trop compris non plus l'utilisation de la propriété MergeArea dans l'exemple notamment (mise à part en colonne A qui n'entre pas en compte dans le traitement, il n'y a pas de cellules fusionnées)...

Dans l'attente...

EDITION : Arf... je ne t'avais pas vu revenir JCGL. On a pour l'instant la même constat : trop peu d'explications...
Pour ce qui est de l'homonyme... pas sûr... moi j'en connais un autre de JC et ce n'est pas... Jean-Claude


Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#7
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 18-09-2007 22h15
Re,

Arf Didier même combat

A+


Edition : Arf, tu veux surement parler de "ce" JC qui marchait sur l'eau et transformait l'eau en vin, ben oui "il" a AUSSI existé...


Cordialement
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#8
Débutant XLPages

Inscription: 18/09/2007

Messages: 14

Posté le : 19-09-2007 08h58
Merci des réponses JC pour "Jean-Charles"

Je ne suis pas assez doué pour l'anglais et à 69 ans les neurones manquent parfois pour un problème

Je m'explique pour ce problème.

J'ai mis en place plusieurs types de tris aléatoires et classement pour des jeux de pétanque, cela marche très bien je n'ai aucun soucis quand les équipes sont constituées d'avance.
Par contre le problème se pose lors de concours où la convivialité est demandée, et là, je dois mélanger les joueurs à chaque parties (5), ils ne doivent donc pas jouer ensemble deux fois et si possible ne pas rejouer contre la même équipe. C'est cornélien, et le dernier concours sur 36 joueurs je me suis retrouvé avec deux fois deux joueurs ayant déjà joués ensemble.

Si quelqu'un peut me dépanner en résolvant ce problème je l'en remercierait vivement.

Merci encore

JC
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#9
Débutant XLPages

Inscription: 18/09/2007

Messages: 14

Posté le : 19-09-2007 09h09
merci de répondre à mon problème

je suis novice dans excel, mais pour les besoins de la cause l'année dernière j'ai créé plusieurs applications pour les jeux de pétanque. Cela marche très bien dèlors où les joueurs sont en nombres pairs et les équipes formées au départ.

Par contre mon souci vient de la mise en place de jeux à la mêlée, où l'on doit changer de joueurs à chaque parties et je me retrouve donc avec des doublons malgré les tris aléatoire sur cinq parties

Il me faut donc trouver le code pour chercher les doublons sur "X" équipes et sur 5 parties. Il faut également que chaque joueur formant une équipe ne se retrouve en face d'une équipe ayant déjà jouée contre elle (ce qui ne doit pas arriver) puisque le mélange des joueurs se fait sur la totalité.

Merci encore de vos efforts

Bonne journée

JC
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#10
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 19-09-2007 09h36
Bonjour JC, JCGL,

OK, cela éclaircit déjà un peu le problème.
Cela dit, as-tu essayé la modification de ligne comme je l'ai indiqué plus haut ?

Il reste encore des "inconnues" à expliquer :
  • Si j'ai bien compris, un JEU se joue donc avec 4 joueurs, soit 2 équipes de 2. Le nombre de JEUX par partie découle du total des joueurs divisé par 4. Seul le nombre de partie est fixe (5). Peux-tu confirmer ?
  • Qu'en est-il des "triplés" comme par exemple 29-8-3 qu'on retrouve en E4:E6 ? Je suppose que le 3ème représente le reliquat du total de joueur divisé par 4. Ce reliquat est ensuite réparti "en plus". Mais cette répartition se fait-elle au hasard aussi ? La question est d'importance puisqu'on recontre cette situation uniquement sur les JEUX 4 et 8 de chaque partie dans l'exemple... Comment se décide quel JEU sera impacté par cette répartition là ? Par ailleurs, le numéro 36 ressort 2 fois comme 3ème élément. Est-ce voulu ?
  • Le traitement doit-il considéré ces "triplés" comme plusieurs groupes de 2, soit les couples 29-8, 29-3 et 8-3 pour la recherche des doublons ?

  • Tu vois, la chose n'est pas très simple vue de l'extérieur et des éclaircicements sont nécessaires...

    Cordialement,

    Didier_mDF
    Image redimensionnée
    Le Webmaster

    La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
    Hors Ligne
    Rapport   Haut 


    Vous pouvez voir les sujets.
    Vous ne pouvez pas débuter de nouveaux sujets.
    Vous ne pouvez pas répondre aux contributions.
    Vous ne pouvez pas éditer vos contributions.
    Vous ne pouvez pas effacez vos contributions.
    Vous ne pouvez pas ajouter de nouveaux sondages.
    Vous ne pouvez pas voter en sondage.
    Vous ne pouvez pas attacher des fichiers à vos contributions.
    Vous ne pouvez pas poster sans approbation.

    [Recherche avancée]


    Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes