J'ai réalisé ce que je disais dans cette version: on peut indiquer le nombre d'occurrences permises de chaque rencontre dans la feuille "Equipe". Toutefois il prend 0 si ce n'est pas numérique et assume 1 si c'est omis, comme ça on garde aussi la notation précédente.
Je pourrais, si vous voulez, équiper le dispositif de tirage d'un système de visualisation de son processus, avec possibilité de l'interrompre. Ce ne serait pas du luxe si de nombreuses situations peuvent être demandées avec beaucoup de rencontres interdites.
oui mais la cela devient complique, , parcontre je ne comprends rien a la macro trouve
pourriez vous mettre des commentaires
il y a des variables incomprehensibles pourriez vous mettre des traduction Lol
Private Function Trouvé(ByVal Niv As Long) As Boolean
Dim M As Long, LAtJ As ListeAléat, PJ As Long, J As Long, _
L As Long, LAtG As ListeAléat, PG As Long, G As Long
' LAtJ =???
' _= ???
'PJ =???
M = Niv \ NbEQu + 1: If M > 4 Then Trouvé = True: Exit Function
L = Niv Mod NbEQu + 1: Set LAtJ = TAléa(M): Set LAtG = TLAtG1(L)
'TAléa(M)=???
'TLAtG1(L)=??
Do: PJ = PJ + 1: J = LAtJ.Aléat(PJ): If J = 0 Then Exit Function
'(PJ) = ???
If TNbRenc(L, J) Then
'TNbRenc ??
PG = 0: Do: PG = PG + 1: G = LAtG.Aléat(PG): If G = 0 Then Exit Function
'PG = ???
Loop While TGag2(J, G)
LAtJ.Supprimer J: TNbRenc(L, J) = TNbRenc(L, J) - 1: LAtG.Supprimer G: TGag2(J, G) = True
' la c'est chaud LOL
Trouvé = Trouvé(Niv + 1)
If Trouvé Then TTir(M, L, 1) = J: TTir(M, L, 2) = G: Exit Function
LAtJ.Remettre J, PJ: TNbRenc(L, J) = TNbRenc(L, J) + 1: LAtG.Remettre G, PG: TGag2(J, G) = False: End If
Loop
End Function
