recherche de doublons | ||
---|---|---|
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 |
|
|
Re: recherche de doublons | ||
---|---|---|
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 |
|
|
Re: recherche de doublons | ||
---|---|---|
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
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: recherche de doublons | ||
---|---|---|
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 |
|
|
Re: recherche de doublons | ||
---|---|---|
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 |
|
|
Re: recherche de doublons | ||
---|---|---|
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(i + 6, 1), Cells(30, 6))
par celle-ci :
For Each c In Range(Cells(i + 6, 2), Cells(30, 10))
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
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: recherche de doublons | ||
---|---|---|
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 |
|
|
Re: recherche de doublons | ||
---|---|---|
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 |
|
|
Re: recherche de doublons | ||
---|---|---|
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 |
|
|
Re: recherche de doublons | ||
---|---|---|
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 : Tu vois, la chose n'est pas très simple vue de l'extérieur et des éclaircicements sont nécessaires... Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
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.
Qui consulte actuellement ce sujet ?
1 Utilisateur(s) anonymes