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 :
Merci beaucoup !
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 :
Code:
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 !
Pièces jointes
Dernière édition: