vincent115
XLDnaute Nouveau
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
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