Pour concours de boules Macro tri aleatoire 3 joueurs par 3 joueurs
B
Bonjour
J'ai une macro qui fonctionne pour le tri 3 joueurs par 3 joueurs pour 96 inscrits
le défaut est que si je n'ai que EX 60 joueurs j'ai des cases vides dans le tirage
que faudrait il rajouter a la macro pour ne trier que les inscrits
ci joint modèle
Merci
-------------------------------------
Sub DéclasserGroupesDe3(ByVal Rng As Range)
Dim TEntrée(), TSortie(), N As Long, LE As Long, LS As Long, dL As Long, C As Long
TEntrée = Rng.Value
ReDim TSortie(1 To UBound(TEntrée, 1), 1 To 1)
With New ListeAléat
Randomize
.Init UBound(TEntrée, 1) \ 3
For N = 1 To .Count
LE = 3 * (N - 1): LS = 3 * (.Aléat(N) - 1)
For dL = 1 To 3: TSortie(LS + dL, 1) = TEntrée(LE + dL, 1): Next dL
Next N
End With
Rng.Value = TSortie
End Sub