Re: recherche de doublons
#11
Débutant XLPages

Inscription: 18/09/2007

Messages: 14

Posté le : 19-09-2007 15h58
bonjour et merci pour ce suivi de doublons

La pétanque s'organise en 5 parties donc fixe, le nombre de jeux est défini par le nombre de joueurs qui s'inscrivent et reste fixe tout au long des 5 parties. il se trouve que seul le nombre de joueurs impair modifie les équipes, composées de 2 fois deux joueurs quand c'est divisible par 4 soit 2 joueurs contre trois joueurs s'il y a nombre impair
Le tirage des triplettes se fait toutes les trois colonnes fixes se qui permet de mieux visualiser les tirages car il faut éviter justement qu'un joueur rejoue en triplette deux fois.
Pour la recherche de doublons sur ces groupes c'est vrai qu'il vaudrait mieux rechercher les couples 29-8, 29-3 et 8-3 pour éviter qu'ils ne rejouent ensemble
Je sais que cela est ardu, et cela remue les neurones

Merci encore de travailler à ce problème

Je mettrais à ta disposition les applications finalisées des jeux de pétanque que j'ai réalisés si cela t'intéresse

Bon courage
JC
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#12
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 21h40
Re jc,

Le problème est effectivement tordu mais le challenge intéressant

Une précision encore toutefois :
Citation :
Le tirage des triplettes se fait toutes les trois colonnes fixes se qui permet de mieux visualiser les tirages car il faut éviter justement qu'un joueur rejoue en triplette deux fois.

Dans l'exemple que tu as joint, ces triplettes apparaissent non pas toutes les 3 mais toutes les 4 colonnes, est-ce une erreur ? J'imagine que oui, car si je prends l'exemple d'un concours avec 39 inscrits, il n'y aurait plus de place pour la 3ème triplette...

Dans l'attente...

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
#13
Débutant XLPages

Inscription: 18/09/2007

Messages: 14

Posté le : 20-09-2007 08h49
Bonjour

je te renvoie un dossier car apparemment il n'est pas parti

Je ne comprends pas hier soir je l'avais charger

Bonne journée

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

Re: recherche de doublons
#14
Débutant XLPages

Inscription: 18/09/2007

Messages: 14

Posté le : 20-09-2007 08h53
Re-Bonjour

Je n'avais pas fait attention le dossier fait plus de 50 ko et donc est bloqué

Pour la position de triplettes elle change suivant le nombre de joueurs engagés soit 1 - 2 3 ou 4 colonnes

Cela n'arrange pas le problème

Bon courage

JC
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#15
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 : 20-09-2007 21h32
Bonjour jc, le Forum,

Je te propose la solution suivante qui devrait, je pense, respecter l'ensemble des contraintes exposées plus haut :
Option Explicit

Sub mDFtraitement
()
'myDearFriend! - www.mdf-xlpages.com
Dim DB As New Collection
Dim Cel As Range
Dim Cle As String, Chaine As String
Dim LigneDuo As Integer
Dim Partie As Byte, NJ As Byte, Jeu As Byte, Duo As Byte
    '
Nombre de jeux par partie
    NJ 
Application.Max(Range("A1:IV6").Value\ 4
    On Error 
GoTo Doublon
    
For Partie 1 To 5
        
For Jeu 1 To NJ
            
For Duo 1 To 4
                Set Cel 
Cells(Choose(Duo0244) + (Partie 1) * 6Jeu 1)
                If 
Val(Cel.Value) <> 0 Then
                    LigneDuo 
Choose(Duo11, -2, -1)
                    
Cle Format(Application.Min(Cel.ValueCel.Offset(LigneDuo0).Value), "00") & Format(Application.Max(Cel.ValueCel.Offset(LigneDuo0).Value), "00")
                    
DB.Add CStr(Partie) & CStr(Jeu), Cle
                End 
If
            
Next Duo
        Next Jeu
    Next Partie
    On Error 
GoTo 0
    
Exit Sub
Doublon
:
    If 
Err.Number 457 Then
        Chaine 
"Le 'Duo'  " Left(Cle2) & " - " Right(Cle2) & "  est en doublon :" _
                vbLf 
"Partie " Left(DB(Cle), 1) & " - Jeu " Mid(DB(Cle), 2) & _
                vbLf 
"Partie " CStr(Partie) & " - Jeu " CStr(Jeu)
        
MsgBox Chaine
        Err
.Clear
    End 
If
    
Resume Next
End Sub

Tu trouveras ci-joint le classeur mettant en oeuvre cette procédure.

J'espère avoir pu t'aider...

Cordialement,
Pièce jointe:
zip ESSAI DOUBLONS.zip   [ Taille: 11.57 Ko - Téléchargements: 729 ]

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
#16
Débutant XLPages

Inscription: 18/09/2007

Messages: 14

Posté le : 21-09-2007 09h21
Bonjour

Je viens d'essayer succintement ton travail et cela marche,
Je vais faire un test en plusieurs parties et joueurs différents et je te recontacterais

Est-ce que tu veux le travail que j'ai fait? si tu est un amateur de pétanque, mais cela peut servir à autres jeux il suffit de l'adapter

Merci encore, travail formidable

A bientôt

JC
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#17
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 : 22-09-2007 00h12
Bonjour jc, le Forum,

Merci de ton retour. Je me permets de préfixer ce fil à "Résolu".

Je te remercie également de ta proposition concernant tes applications de jeux de pétanque. J'ai un ami qui organise de temps en temps des concours de pétanque pour le comité d'entreprise de sa boite, peut-être que ça pourrait l'intéresser (si tu le permets).
Je te laisse mon adresse mail par messagerie privée.

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
#18
Débutant XLPages

Inscription: 26/10/2010

Messages: 2

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 26-02-2012 22h31
 Bonjour,
J'organise souvent des tournois de pétanque mêlée / démêlée en doublette et j'utilise mDF ESSAI DOUBLONS pour réaliser des tirages sans doublon. Toutefois je suis démuni lorsque nous faisons plus de 5 parties (souvent 7 sur la journée) et je me demandai si votre logiciel pourrait être aménagé pour aller jusqu'à 10 parties ? (évidemment si le nombre de joueurs est assez important pour permettre le tirage).
Merci par avance de votre réponse.
Cordialement.
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#19
Débutant XLPages

Inscription: 26/10/2010

Messages: 2

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 17-03-2012 13h22
Bonjour,
Ma question ne semble pas intéresser, c'est du moins ce que je ressens ... ce qui somme toute est admissible. Toutefois si c'est bien le cas n'hésitez pas à m'envoyer paître pour que je sache à quoi m'en tenir et que je recherche d'éventuelles autres solutions.
Merci.
Cordialement.
Hors Ligne
Rapport   Haut 

Re: recherche de doublons
#20
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 : 17-03-2012 14h48
Bonjour lehcim, bienvenue sur XLpages.com

Reprendre un fil de discussions, son fichier et, je dois le dire, des explications d'une clarté relative, ce n'est pas franchement simple, ni motivant. Compte tenu de l'ensemble des contraintes du fichier et lorsqu'on n'est pas dans le « trip » (comme le dit si bien l'ami JCGL plus haut), s'imprégner de ta question dans ces conditions est une véritable torture, en tout cas pour moi.

J'imagine que ceux qui sont passés par là, on eu la même réaction que moi et ont continué leur chemin.

Le mieux serait que :
  • tu crées d'abord ton propre sujet (en y faisant apparaitre un lien sur celui-ci au besoin)
  • tu joignes un fichier exemple de ce que tu souhaites obtenir
  • tu réexpliques clairement le problème, les données de départ, les contraintes et le fonctionnement attendu.

Maintenant, que chacun vienne ici « t'envoyer paître », je n'en vois pas trop l'intérêt, ni pour toi, ni pour le forum : si je viens ici pour dire que ça n'intéresse personne, je ne pense pas que ça va en motiver d'autres qui, eux seraient peut-être intéressés par ton sujet et à même d'y répondre.

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