Programme de gestion de concours belote avec plus de 100 équipes

[JBARBE]

Bonjour à tous,

Tout d'abord, je remercie camarchepas car je me suis permis d'utiliser sa macro dont je me suis inspiré et ensuite pu la modifier un peu !

Pour les personnes intéressées, ci-joint un programme de gestion de concours de belote de plus de 100 équipes ( exemple ci-joint de 240 équipes) !

Particularité : la moitié des équipes restent sur place ( ne change pas de tables) et les autres sont réparties par tirage au sort vers les différentes équipes restant sur place ( méthode qui existe dans de nombreux concours) !

Enfin, un descriptif de gestion et de fonctionnement sont fournies !

Bonne journée et Bonne Belote !

 

[JBARBE]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Je ne peux rien faire pour l'instant dans la feuille "Tables" tant que la disposition des parties dans les colonnes n'est pas terminée !

Essaie de me mettre à jour définitivement la feuille " Tables " car la disposition des colonnes par rapport aux 4 parties m'est importante !

A+

 

[zeltron24]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Bonjour JBARBE

Hier soir j'ai pu travailler en grandeur réelle sur le programme il y a encore quelques erreurs au niveau du classement (avec ou sans belotes et capots) Heureusement que mon collègue préféré la vielle méthode papier crayon.
Donc je recherche les erreurs et te fait parvenir dés que possible le classeur (ce qui te laissera du temps pour souffler !!!)
A + Guy

 

[JBARBE]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Bonjour,

Justement en parlant du classement (5 feuilles Classements ) il y a un probléme que j'ai pu résoudre !

Bon courage & A+

 

[zeltron24]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Bonsoir JBARBE

J'ai travaillé sur la feuille table mais il persiste un souci au sujet de la partie 2 et autres
Lorsque je sélectionne une table les équipes ne correspondent pas, l'équipe 1 est correcte mais pas la 2

En feuille 4 je t'ai mis le descriptif des TxtBox et autres Combi
Je continuerai demain à regarder
Bonne soirée et A+
Encore merci pour le temps que tu passes sur le sujet

 

[JBARBE]

Re : Programme de gestion de concours belote avec plus de 100 équipes

J'ai réglé le problème des classements !

Ne t'étonne pas de ne pas voir de scores dans le classement général car tout les scores des quatre parties doivent être saisies !

Dans le fichier que je te donne il y a les scores car tout les scores des 4 parties sont mis !

Pour l'erreur que tu me site, j'avais caché les références de chaque équipe sur deux lignes colonne 20 et je crois et qui a été effacé !

Mais de toute façon tes macros que je ne comprend pas (BoutonEncoderPartie1-BoutonEncoderPartie2-BoutonEncoderPartie3-BoutonEncoderPartie4 ET autres) sont différente des miennes !

J'ai hâte de voir ton fichier définitivement terminé !

Bon courage !

A+

 

[JBARBE]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Petite correction concernant la sélection d'une colonne !

Toute mes excuses !

 

[zeltron24]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Bonsoir JBARBE

J'ai travaillé toute la journée sur les tables
J'ai réussi à sélectionner les 2 équipes s'affrontant mais le souci c'est que pour la copie des scores la partie 1 fonctionne à merveille mais pour la partie 2 il n'y a que le score de l'équipe 1 qui est recopié.

J'ai mis le code des deux parties correspondant à la copie des scores (A savoir que ceci sont copié plus loin dans la feuille et que je les récupèrent dans les cellules correspondante à la partie) Pour faire le calcul avec ou sans Belote
voici ci dessous les codes de la partie 1 et 2 avec le fichier joint

Jette y un œil que si tu as le temps car moi à force d’être déçu je ne vois plus rien

' *****************  PARTIE 1  ********************************
'
Valider1:
' Contrôle du total des Scores
  If Txt_Total_Points.Value <> 1944 Then
  Lb_Erreur.Visible = True
  Cmd_Correction.Visible = True
  Cmd_Tb_Suiv.Visible = False
Exit Sub
  Else
  Lb_Erreur.Visible = False
  Cmd_Correction.Visible = False
  Cmd_Tb_Suiv.Visible = True
  End If

' Copie de la saisie dans la feuille Table
    Range("vValeur1") = Frm_Partie_1.Txt_Numero_Equipe_1.Value
    Range("vValeur11") = Frm_Partie_1.Txt_Numero_Equipe_2.Value

Sheets(3).Select

' Boucle sur la ligne équipe 1
For i = 3 To 400
 If Cells(i, 2) = Range("vValeur1") Then
    Cells(i, 24).Value = Frm_Partie_1.Txt_Score_1.Value
    Cells(i, 25).Value = Frm_Partie_1.Txt_Belote_1.Value
    Cells(i, 26).Value = Frm_Partie_1.Txt_Capot_1.Value
    Range("Total_Points_1") = Frm_Partie_1.Txt_Score_1.Value
    Range("vNum_Equ_1") = Frm_Partie_1.Txt_Numero_Equipe_1.Value

' Boucle sur la ligne équipe 2
 If Cells(i + 1, 2) = Range("vValeur11") Then
    Cells(i + 1, 24).Value = Frm_Partie_1.Txt_Score_2.Value
    Cells(i + 1, 25).Value = Frm_Partie_1.Txt_Belote_2.Value
    Cells(i + 1, 26).Value = Frm_Partie_1.Txt_Capot_2.Value
    Range("Total_Points_2") = Frm_Partie_1.Txt_Score_2.Value
    Range("vNum_Equ_2") = Frm_Partie_1.Txt_Numero_Equipe_2.Value
    
    Cmd_Tb_Suiv.Visible = True
    
Exit For
End If
End If

Next i

' Contrôle total score partie
Frm_Partie_1.Show
Frm_Partie_1.Txt_Score_Valid.Value = Txt_Score_Valid.Value + 1

Exit Sub

' *****************  PARTIE 2  ********************************
'
Valider2:
' Contrôle du total des Scores
  If Txt_Total_Points.Value <> 1944 Then
  Lb_Erreur.Visible = True
  Cmd_Correction.Visible = True
  Cmd_Tb_Suiv.Visible = False
Exit Sub
  Else
  Lb_Erreur.Visible = False
  Cmd_Correction.Visible = False
  Cmd_Tb_Suiv.Visible = True
  End If

' Copie de la saisie dans la feuille Table
    Range("vValeur2") = Frm_Partie_1.Txt_Numero_Equipe_1.Value
    Range("vValeur22") = Frm_Partie_1.Txt_Numero_Equipe_2.Value

Sheets(3).Select

' Boucle sur la ligne équipe 1
For a = 3 To 400
 If Cells(a, 2) = Range("vValeur2") Then
    Cells(a, 32).Value = Frm_Partie_1.Txt_Score_1.Value
    Cells(a, 33).Value = Frm_Partie_1.Txt_Belote_1.Value
    Cells(a, 34).Value = Frm_Partie_1.Txt_Capot_1.Value
    Range("Total_Points_1") = Frm_Partie_1.Txt_Score_1.Value
    Range("vNum_Equ_1") = Frm_Partie_1.Txt_Numero_Equipe_1.Value

' Boucle sur la ligne équipe 2
 If Cells(a + 1, 2) = Range("vValeur22") Then
    Cells(a + 1, 32).Value = Frm_Partie_1.Txt_Score_2.Value
    Cells(a + 1, 33).Value = Frm_Partie_1.Txt_Belote_2.Value
    Cells(a + 1, 34).Value = Frm_Partie_1.Txt_Capot_2.Value
    Range("Total_Points_2") = Frm_Partie_1.Txt_Score_2.Value
    Range("vNum_Equ_2") = Frm_Partie_1.Txt_Numero_Equipe_2.Value
    
    Cmd_Tb_Suiv.Visible = True
    
Exit For
End If
End If
Next a

' Contrôle total score partie
Frm_Partie_1.Show
Frm_Partie_1.Txt_Score_Valid.Value = Txt_Score_Valid.Value + 1

Exit Sub

 

[JBARBE]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Si tu as fait un copier coller de la macro partie 1 pour la partie 2 et que tu as bien respecté l'attribution des colonnes et des lignes ( à vérifier), il n'y a pas de raison que ta partie 2 ne fonctionne pas correctement !

Mais pour moi, il faut refaire un Frm_Equipe_1 pour chaque partie soit > Frm_Equipe_2 - Frm_Equipe_3 - Frm_Equipe_4 avec les références des colonnes correspondantes !

 

[zeltron24]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Bonsoir JBARBE
Je vais donc faire 4 formulaire comme tu le conçoit.

 

[JBARBE]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Bonsoir JBARBE
Je vais donc faire 4 formulaire comme tu le conçoit.

Fait un copier coller et change les références pour aller plus vite !

D'autre part, j'ai observé un travail inutile de ta part pour le concours !

En effet, il n'y a pas à demander si l'on veut faire les parties sans annonce ( 1944 points) ou avec annonces ( belote-rebelote) puisque celle-ci et seulement celle-ci sont présentes dans le concours !

Bon courage !

 

[JBARBE]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Bonjour à tous,


Après beaucoup de soucis, et après quelques modifs d'apparence ( merci zeltron) et de macros, je pense être arrivé à un résultat positif (voir l'exemple dans le fichier ci-joint) !


Bonne journée !

 

[zeltron24]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Bonsoir JBARBE

Après bien des heures à peaufiner le fichier je suis arrivé au résultat ci joint.
Pour répondre à ton incertitude

D'autre part, j'ai observé un travail inutile de ta part pour le concours !

En effet, il n'y a pas à demander si l'on veut faire les parties sans annonce ( 1944 points) ou avec annonces ( belote-rebelote) puisque celle-ci et seulement celle-ci sont présentes dans le concours !

En Belgique, il existe des concours avec ou sans Belote donc voici "le pourquoi du comment" au sujet du choix.
Ton travail est superbe et je constate que tu reste sur des InputBox pour le choix des équipes.

Le souci que j'avais pour la recopie des scores de la 2ème équipe été du au fait que je prenais toujours comme référence la 2ème rangée (B) pour les parties 2 3 et 4 Cells(i + 1 , 2) le 2 devant être remplacé par 7 12 et 17 pour les autres parties.
Voila il me reste à revoir les classements car j'ai un Bug
Bonne soirée Guy

 

[JBARBE]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Bonsoir à tous,

Tu viens de nous donner ton travail, voici le mien entièrement refondu !

Certes, je suis resté aux InputBox comme tu dis pour le choix de la table et de la partie(avantage : utilisation de seulement 2 userForm et de 3 boutons pour accéder à n'importe qu'elle partie), pour la saisie des scores des 4 parties !

Pour ces scores, il y a dorénavant la possibilité de saisir les 2 équipes de la même table ou une équipe seulement !

Toujours est-il que lorsque les deux équipes sont inscrites le contrôle des points se fait automatiquement après leur saisie !

En ce qui concerne les classements, cela reste un peu long mais je n'ai pas trouvé d'autres solutions compte tenu qu'à chaque fois que l'on supprimait la saisie, les formules présentes étaient désorganisées !

D'autre part, j'ai modifié beaucoup de choses dont l'attribution des belotes et capots dont je n'avais pas vu le bug !

Bravo, pour ton travail et bon concours !

 

[JBARBE]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Pour faire plaisir à zeltron24, j'ai supprimé un Inputbox (N° de Partie) en ne laissant qu'un seul ( Selection du N° de la Table ) mais en mettant 4 boutons attribués à chacune des 4 parties !

Une modif pouvant faciliter la saisie des scores de chaque partie !

Bonne journée !

 

[zeltron24]

Re : Programme de gestion de concours belote avec plus de 100 équipes

Bonsoir JBARBE

Au jeu de la "petite gueguerre" tu trouveras ci joint le classeur avec seulement 2 formulaires (Frm_Equipe_1 et Frm_Partie_1)

J'ai effectué pas à pas le concours sur 4 parties c'est OK il peut au choix se faire sur 3 parties
Les Belotes et Capots sont comptés séparément.
Un message s'affiche dans les formulaires en cas :
1 - Si dépassement du nombre de tables engagées
2 - Si résultat différent de 1944
3 - Signale la fin d'une partie
4 - Signale la fin du concours

Encore quelques petites modifs que je souhaite apporter et surtout un GRAND MERCI à toi pour ta contribution
et tout le temps que tu as mis
Cordialement
Zeltron24