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("C856").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
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