Tirage aléatoire d'un tournoi de Belote (NON RESOLU)

[JAcQUOT]

Bonjour à tous,

J'ai un tirage aléatoire limité à 64 équipes dans un tournoi de belote !

Je voudrais pouvoir aller au-delà de 64 (au moins 84 équipes )!

Pour accéder aux macro cliquer sur le bouton sortir en haut à droite !

la macro :

Sub TirageAleatoire()    'Ti
Const KErr = vbObject + 50
Dim Odd As Boolean, Msg$

  Randomize
  On Error GoTo erreur
  NbJ = F1.Range("NbJoueurs")
  If NbJ < 5 Or NbJ > 64 Then Err.Raise KErr

  Odd = NbJ Mod 2 <> 0: If Odd Then NbJ = NbJ + 1
  ReDim TablPart(1 To NbJ, 1 To KNbPart)

  Do: Loop Until TirageParties

  If Odd Then PlaceBB

  Application.ScreenUpdating = False
  With F2
    '.Unprotect
    With .Range("Séries")
     .ClearContents: .Resize(NbJ, KNbPart).Value = TablPart
    End With
    '.Protect:
    Application.GoTo .Range("A1"), True
  End With
  Beep
  Application.ScreenUpdating = True
  Exit Sub

erreur:
  If Err.Number = KErr Then Msg = ", il faut entre 6 et 64 équipes..." Else Msg = " durant le tirage des parties"
  MsgBox "Erreur" & Msg, vbCritical, "Tirage Belote"
End Sub

Merci beaucoup !

 

[camarchepas]

Re : Tirage aléatoire d'un tournoi de Belote

Bonjour Jacquot ,

Sur combien de series faut-il répartir les joueurs ?

 

[JAcQUOT]

Re : Tirage aléatoire d'un tournoi de Belote

Bonjour camarchepas,

Merci de me répondre !

1) Saisie des Noms au delà de 64 ( macro actuelle jusqu'à 64) >>> bouton inscriptions

2) Tirage des équipes en 4 parties >>> bouton tirage

3) Saisie des points pour chaque équipe et chaque partie >>> bouton points

4) Classement >>> bouton classement

Merci à l'avance!

 

[camarchepas]

Re : Tirage aléatoire d'un tournoi de Belote

Jacquot,

J'ai fait quelques tests , cela à l'air ok jusqu'a 84 maintenant

 

[JAcQUOT]

Re : Tirage aléatoire d'un tournoi de Belote

Jacquot,

J'ai fait quelques tests , cela à l'air ok jusqu'a 84 maintenant

Je n'ai pas eu le temps de tester entièrement mais je te tiens au courant !

A+

 

[JAcQUOT]

Re : Tirage aléatoire d'un tournoi de Belote

Bonjour à tous,

Merci camarchepas c'est OK !

Je voudrais faire une autre demande concernant toujours ce programme de belote :

Lorsque je saisie les points ( voir photo) je voudrais que s'il y a déjà de la saisie pour les points( pour chaque partie des 4 ), ces points s'affichent comme pour le nom de l'adversaire et son N°

En Effet, aprés avoir sélectionné le N° de l'équipe et les points, une boite de dialogue s'affiche lorsque la saisie des points est déjà faire ! Je voudrais que les points s'affichent en remplacement de cette boite de dialogue !

Private Sub Controle_Num_Equipe()
Sheets("Equipes").Select
  Range("B3").Select
  For i = 1 To 200
  If Cells(i + 2, 2).Value = "" Then
  Range("RepereNumeroEquipe").ClearContents
  Exit For
  End If
  If Txtb_Num_Equip_1.Value = i And Txtb_Num_Partie.Value = 1 Then
  If Cells(i + 2, 4).Value <> "" Then
  Range("RepereNumeroEquipe").Value = "X"
  MsgBox "Vous avez déjà saisie" & Chr(13) & "le numéro de la première équipe.", _
  vbOKOnly + vbInformation, "Informations imcomplètes"
  Exit Sub
  End If
  ElseIf Txtb_Num_Equip_1.Value = i And Txtb_Num_Partie.Value = 2 Then
  If Cells(i + 2, 5).Value <> "" Then
  Range("RepereNumeroEquipe").Value = "X"
  MsgBox "Vous avez déjà saisie" & Chr(13) & "le numéro de la première équipe.", _
  vbOKOnly + vbInformation, "Informations imcomplètes"
  Exit Sub
  End If
  ElseIf Txtb_Num_Equip_1.Value = i And Txtb_Num_Partie.Value = 3 Then
  If Cells(i + 2, 6).Value <> "" Then
  Range("RepereNumeroEquipe").Value = "X"
  MsgBox "Vous avez déjà saisie" & Chr(13) & "le numéro de la première équipe.", _
  vbOKOnly + vbInformation, "Informations imcomplètes"
  Exit Sub
  End If
  ElseIf Txtb_Num_Equip_1.Value = i And Txtb_Num_Partie.Value = 4 Then
  If Cells(i + 2, 7).Value <> "" Then
  Range("RepereNumeroEquipe").Value = "X"
  MsgBox "Vous avez déjà saisie" & Chr(13) & "le numéro de la première équipe.", _
  vbOKOnly + vbInformation, "Informations imcomplètes"
  Exit Sub
  End If
  Else
    Cells(i + 3, 2).Select
  End If
  Next i
  
  End Sub

Merci à l'avance !

 

[JAcQUOT]

Re : Tirage aléatoire d'un tournoi de Belote

J'ai résolu le probléme !

Merci camarchepas pour ton dévouement !

Bonne soirée à tous !

 

[JAcQUOT]

Re : Tirage aléatoire d'un tournoi de Belote

Bonjour à tous,

camarchepas ton fichier pose probléme puisqu'il tient compte de 84 équipes si l'inscription est inférieur à 84 !

Exemple dans le fichier et la photo ci-joint !

 

[JAcQUOT]

Re : Tirage aléatoire d'un tournoi de Belote

Bonjour à tous,

Je ne comprends pas que l'on ne puisse pas me venir en aide ( sauf camarchepas qui n'a pas réussi) sur un fichier "belote" qui fonctionne parfaitement avec un maxi de 64 équipes et qui demande une modification macro pour avoir au moins 84 équipes maxi !

Merci à ceux qui voudraient bien me venir en aide !