en ouvrant le fichier "ListeAléat", je n´ai pas accès directement aux macros, que ce soit dans le menu "Macros / View macros" ou en faisant cliquant droit sur le bouton "tirage", alors que la feuille n´est même pas protégée par un mot de passe.
quoiqu´il en soit, j´ai réussi à trouver la fonction Tirage22OK et je dois avouer que je n´y comprend pas grand-chose.
Auriez-vous du temps afin de me l´expliquer? Merci par avance
Function Tirage22OK(ByVal JMax As Long, ByVal Tours As Long, TClub(), TMarg()) As Boolean
Dim X As Long, J As Long, A As Long, M As Long
UFmVisu.DescConfig JMax & " joueurs " & Tours & " tours."
MMax = Tours: LMax = (JMax - 2) \ 4 + 1: NivMax = MMax * LMax - 1
X = XTria(JMax, JMax - 1)
ReDim Tirage(1 To MMax, 1 To LMax, 1 To 4), JoueursManche(1 To MMax), _
DéjàRenc(0 To X), DéjàPart(0 To X), DéjàTêteÀTête(1 To JMax)
If UBound(TClub, 1) >= JMax Then
For J = 2 To JMax: For A = 1 To J - 1
X = XTria(J, A)
If Not IsEmpty(TClub(J, 1)) And Not IsEmpty(TClub(A, 1)) Then
DéjàRenc(X) = TClub(J, 1) = TClub(A, 1): End If
Next A, J: End If
If UBound(TMarg, 1) >= JMax Then
For J = 2 To JMax: For A = 1 To J - 1
X = XTria(J, A)
If Not IsEmpty(TMarg(J, 1)) And Not IsEmpty(TMarg(A, 1)) Then
DéjàPart(X) = TMarg(J, 1) = TMarg(A, 1): End If
Next A, J
For J = 1 To JMax: DéjàTêteÀTête(J) = Not IsEmpty(TMarg(J)): Next J: End If
Randomize
For M = 1 To MMax: Set JoueursManche(M) = New ListeAléat
JoueursManche(M).Init JMax: Next M
If RencTrouvée(0) Then Tirage22OK = True: UFmVisu.Conclure Else UFmVisu.Echec
End Function