Tri aleatoire avec condition

[vincent115]

Bonjour,
Dans un tableau je désirerais copier les données sur d'autres colonnes pour un tri aléatoire :
- seulement, le code que j'ai fait ne permet ce tri qu'une fois, alors que je le voudrais permanent ;
- comme c'est pour des rencontres sportives, je voudrais que les équipes ne se rencontrent pas entre eux, et cela autant que possible (le nbre de clubs est variable !)

Code :
Sub tirage()
'
Sélection Inscription et Clubs pour copie dans Partie 1 et Clubs
Range("C8😀56").Select
Selection.Copy
Range("F8").Select
ActiveSheet.Paste
Tri aléatoire
For i = 8 To 97
If Range("F" & i) <> "" Then Range("H" & i) = Rnd
Next i

Range("F8:G97").Sort Key1:=Range("F8"), Order1:=xlAscending, Header:=xlNo
Range("H8:H97").ClearContents
Range("A1").Select
ActiveWorkbook.Save
End Sub

 

[vincent115]

Re : Tri aleatoire avec condition

Bonjour

J'ai oublié de préciser que les équipes du même club ne doivent pas se rencontrer sauf si elle sont plus nombreuses

 

[pierrejean]

Re : Tri aleatoire avec condition

Bonjour Vincent

Vois si cela te convient
NB: Vu le nb de VALREAS il semble obligatoire que certains soient obligés de jouer les uns contre les autres

 

[vincent115]

Re : Tri aleatoire avec condition

Bonjour Pierrejean
Bravo, c'est exactement ce dont j'ai besoin.
C'est volontaire que j'ai mis plus de noms du même club car cela peut arriver en concours, la macro est superbe bien que je ne saisis pas tout.
Un grand merci à toi et au forum.
Vincent🙂