Tri dans le désordre

natorp à dit:

J'ai cette macro qui fait un tri dans l'ordre croissant :

Code:

Sub Macro4()
    Rows("9:9").Select
    Range("C9").Activate
    Selection.Sort Key1:=Range("A9"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
    Range("C9").Select
End Sub

Est-il possible de la modifier pour qu'elle fasse un tri dans le désordre, qu'il n'y est plus d'ordre du tout, au hasard ?

Cliquez pour agrandir...

 Sub Chaos() '
 Dim N As Integer, temp As Variant, i As Integer, x As Integer, y As Integer
 '********************************
 ' à -------adapter selon ligne concernée
 Dim ligne As Double
 ligne = 9
'********************************
 N = Cells(ligne, Cells.Columns.Count).End(xlToLeft).Column
 For i = 1 To N
      x = 1 + Int(Rnd() * N)
      y = 1 + Int(Rnd() * N)
      temp = Cells(ligne, x).Formula
      Cells(ligne, x).Formula = Cells(ligne, y).Formula
      Cells(ligne, y).Formula = temp
 Next
 
 End Sub

natorp à dit:

Laurent,

tu es tout proche, sauf que le nombre de cellule concerné en ligne 9 peut varier et s'il y a des blancs, ils se mélangent avec le reste,
du coup il faudrait pouvoir dire à la macro :
"je sélectionne les cellules de la ligne 8 à 9 jusqu'à la dernière cellule "9" trouvée" et non pas Rows("8:9").Select

est-ce possible ?

Merci, Gérard

merci également à Danreb

Cliquez pour agrandir...

natorp à dit:

voilà j'espère avoir été clair ???

Merci beaucoup de votre aide, Gérard

Cliquez pour agrandir...

natorp à dit:

Ouah, ça à l'air d'être ça...

est-ce que vous pouvez m'assurer avec ce code qu'une valeur ne peut pas se retrouver à la même place lorsque l'on active la macro ?

Cliquez pour agrandir...

natorp à dit:

A partir de l'onglet partie1 j'ai besoin de générer 2 autres onglets pour lesquels les joueurs en "nord" ne bougent pas
faire un roulement des joueurs "ouest", faire un roulement des joueurs "sud", faire un roulement des joueurs "est"
chaque joueur ne devant pas se rencontrer plus d'une fois
mais comme les tables dépendent du nombre d'inscrit, le nombre de cellules dans chaque ligne peut varier

Cliquez pour agrandir...

• nbr de tours= nombre de joueurs ==> probleme de carré latin (sudoku par exemple)
• elimination directe ==> rencontres de tennis
• rencontres pondérées ==> tournoi d'échecs
• sinon probleme de combinaisons ==> loto, tierce
  =COMBIN(N,4) pour 8 joueurs => 70 tables différentes

natorp à dit:

Nb de parties : 3, avec le "nord" qui ne bouge plus après la 1ère partie
il faut faire tourner "ouest", "sud" et "est" de façon à ce que personne ne se rencontre plus d'une fois

Cliquez pour agrandir...