Tri dans le désordre

[natorp]

Bjr à toutes et tous

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

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 ?

Merci de votre attention, cordialement,

Gérard

 

[Dranreb]

Re : Tri dans le désordre

Bonjour.
Mettez la Formula = "=RAND()" sur la colonne qui suit la dernière de UsedRange, triez dessus puis supprimez la.

Non ça ne va pas. Je n'avais pas vu que vous ne classez qu'une ligne horizontalement.
Si possible, insérez une ligne devant, mettez y "=RAND()", triez les 2 ligne sur la 1ère puis supprimez celle ci.
Cordialement.

 

[phlaurent55]

Re : Tri dans le désordre

Bonjour Gérard,

voir fichier joint

à+
Philippe

Édit, Bonjour Dranreb

 

[natorp]

Re : Tri dans le désordre

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

 

[Modeste geedee]

Re : Tri dans le désordre

Bonsour®

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

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 ?

sans autre info que le code ci-dessus ...???
Orientation:=xlLeftToRight
sourire
vite fait alors...

 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]

Re : Tri dans le désordre

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

Modeste : 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 ?

Merci beaucoup... Gérard

 

[phlaurent55]

Re : Tri dans le désordre

Re,

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

comme le dit modeste geedee: sans autre info que le code ci-dessus ...???
que l'on peut interpréter comme ceci:
sans fichier joint ... ???

Beaucoup de choses sont possibles en utilisant les macros .......... mais un problème correctement expliqué, c'est déjà les 3/4 de la solution

à+
Philippe

 

[natorp]

Re : Tri dans le désordre

Merci Laurent et tu as raison, ainsi que modeste

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

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

Merci beaucoup de votre aide, Gérard

 

[phlaurent55]

Re : Tri dans le désordre

Re,

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

Merci beaucoup de votre aide, Gérard

Effectivement c'est beaucoup plus clair mais assez éloigné du problème posé au départ

J'avoue mon incompétence en ce qui concerne le problème pris dans son entièreté

il te reste à attendre le passage d'un ténor


à+
Philippe

 

[Modeste geedee]

Re : Tri dans le désordre

Bonsour®

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 ?

c'est bien là ce que l'on appelle hasard...
il n'y a rien de certain... sourire...
pour eviter ceci on pourrait envisager une rotation, mais ce ne serait plus du hasard !
de même une combinaison des deux méthodes ne permettrait pas de lever le doute.

 

[natorp]

Re : Tri dans le désordre

re

Modeste : si une rotation est possible pourquoi pas, du moment que personne ne se rencontre plus d'une fois et que "nord" reste à sa place..

merci, Gérard

 

[Modeste geedee]

Re : Tri dans le désordre

Bonsour®

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

question : combien y-a-t-il de tours ???

• 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

 

[david84]

Re : Tri dans le désordre

Bonjour tout le monde,
d'après ce que je crois comprendre, regarde ici les solutions proposées, notamment celle de Roger2327.
A+

 

[natorp]

Re : Tri dans le désordre

Merci à vous

Modeste : 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

David : je suis impatient de regarder le fichier de Roger, je suis au boulot et je ne peux pas lire les versions 2010, je verrais ce soir à la maison,

Bonne journée, Gérard

 

[Modeste geedee]

Re : Tri dans le désordre

Bonsour®

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

Analyse :
A 4 par table , aprés le premier tour, chacun des joueurs (O,E,S) doit etre réparti séparement vers 3 tables différentes ,
ce qui fait un minimum de 4 tables ou 16 joueurs.

Sauf à faire intervenir des joueurs complémentaires ou d'une 5eme table(20 joueurs au total), en trois tours certains des joueurs de ces 4 tables seront amenés à se rencontrer plusieurs fois.

Pour satisfaire ces contraintes certains joueurs devront attendre pour faire leur 3 tours,
et chaque joueur ne rencontrera pas tout les autres.
L'algorithme très dépendant du nombre total de joueurs est compliqué à généraliser...


:-(
m'étant orienté vers une solution style carré latin, je passe la main...
désolé...