Trie aléatoire avec trois fixe

maval · 11 Janvier 2013

Bonjour,

J'ai code pour réaliser un trie aléatoire qui fonctionne très bien, mais j'aimerai lui apporté une modification en fonction de la demande.
Je m'explique dans un concours de belote il y a des personnes handicapées qui ont du mal a se déplacer, c'est pour cela que ses personnes doivent rester à leurs table pour toute l’après-midi et j'aimerai que trie se fasse normalement sur deux colonnes et en fonction du choix de la liste déroulante.
ex: si on a dans la liste déroulante le Nbr 3 il y aura les lignes "F3:G3, F5:G5,F7:G7" qui ne bougerons pas.

Je joint un fichier exemple

Merci de votre aide

Cordialement

Maval

CBernardT · 11 Janvier 2013

Re : Trie aléatoire avec trois fixe

Bonjour à tous,

Par code VBA, un tirage aléatoire d'une nouvelle partie prenant en compte les trois positions fixes.

Bebere · 11 Janvier 2013

Re : Trie aléatoire avec trois fixe

bonjour MaVal

les noms fixes sont mis dans un tableau et supprimer dans la feuille
après tri ils sont replacés

job75 · 11 Janvier 2013

Re : Trie aléatoire avec trois fixe

Bonjour à tous,

J'y vais de ma solution :

Code:

Sub Tri()
Dim NbLig As Long, i As Integer
Application.ScreenUpdating = False
NbLig = Range("G" & Rows.Count).End(xlUp).Row
Columns("H").Insert
With Range("H3:H" & NbLig)
  .Formula = "=RAND()"
  .Value = .Value
  For i = 1 To 2 * [K4] - 1 Step 2 'J4 est décalé...
    [H2].Offset(i) = Application.Small(.Cells, i) - "1E-15"
  Next
End With
Range("F3:H" & NbLig).Sort [H3], xlAscending, Header:=xlNo
Columns("H").Delete
End Sub

J'ai donc juste ajouté une petite boucle.

Fichier joint.

A+

maval · 11 Janvier 2013

Re : Trie aléatoire avec trois fixe

Bonjour Job, Bernard, Bebere,

Je vous remercie beaucoup Nickel.....;
3 versions différente vraiment super..
A part que le code de Bébere j'ai un message d'erreur "L'indice n'appartient à la sélection" sur la ligne suivante

Code:

For i = UBound(tbl) To LBound(tbl) Step -1

Merci pour tous

Bonne journée à tous

Max

Bebere · 11 Janvier 2013

Re : Trie aléatoire avec trois fixe

bonjour Cbernardt,Job
Maval il faut marquer les joueurs fixes,dans le code interior.colorindex=3'rouge

maval · 11 Janvier 2013

Re : Trie aléatoire avec trois fixe

Re Bebere

Exact tu as raison sa fonctionne Nickel je n'avais pas regardé

Merci et bonne journée

Max

job75 · 11 Janvier 2013

Re : Trie aléatoire avec trois fixe

Re,

Si l'on fait plusieurs essais sur le fichier de mon post #4 on finit par obtenir un résultat erroné.

En effet modifier la 15ème décimale finit par créer un classement erroné.

Cette solution devrait mieux fonctionner :

Code:

Sub Tri()
Dim NbLig&, tablo, ub&, i%, n#, j&
Application.ScreenUpdating = False
NbLig = Range("G" & Rows.Count).End(xlUp).Row
Columns("H").Insert
With Range("H3:H" & NbLig)
  .Formula = "=RAND()"
  tablo = .Value
  ub = UBound(tablo)
End With
For i = 1 To 2 * [K4] - 1 Step 2 'J4 est décalé...
  n = Application.Small(tablo, i)
  For j = 1 To ub
    If tablo(j, 1) >= n Then tablo(j, 1) = tablo(j, 1) + 1
  Next
  tablo(i, 1) = n
Next
[H3].Resize(ub) = tablo
Range("F3:H" & NbLig).Sort [H3], xlAscending, Header:=xlNo
Columns("H").Delete
End Sub

La macro est très rapide car elle utilise un tableau VBA.

Edit : .Value = .Value est ici inutile.

Fichier (2).

A+

maval · 11 Janvier 2013

Re : Trie aléatoire avec trois fixe

Re Job

Je te remercie beaucoup.

Pourrez tu me dire comment tu ferai a ma place pour a chaque fois que je fait un trie j'aimerai ajouter la valeur 1 a la cellule J3 de la feuille 3 pour annoncer le N° de la partie en sachant qu'il y a 4 partie au total

Un grand merci d'avance

@+
Max

job75 · 11 Janvier 2013

Re : Trie aléatoire avec trois fixe

Re maval,

Même la solution (2) de mon post #8 peut donner un résultat erroné (il se crée des doublons).

S'appuyer sur les nombres aléatoires pour reclasser n'est finalement pas une bonne solution.

Avec le couper-insertion des lignes concernées il est sûr qu'il n'y a plus de problème :

Code:

Sub Tri()
Dim NbLig As Long, i As Integer
Application.ScreenUpdating = False
NbLig = Range("G" & Rows.Count).End(xlUp).Row
Columns("H").Insert
With Range("H3:H" & NbLig)
  .Formula = "=RAND()"
  .Value = .Value
End With
For i = 1 To 2 * [K4] - 1 Step 2 'J4 est décalé...
  [H2].Offset(i) = 0 'pour placer les lignes en tête
Next
Range("F3:H" & NbLig).Sort [H3], xlAscending, Header:=xlNo
Columns("H").Delete
'reclassement par couper-insertion
For i = 1 To [J4]
  [F3:G3].Cut
  [F3.G3].Offset([J4] + 1 - i + 2 * (i - 1)).Insert xlDown
Next
End Sub

Fichier (3).

Edit : pour la question du post #9 mettre cette ligne en fin de macro :

Code:

Feuil3.[J3] = 1 + Feuil3.[J3] Mod 4 'CodeName

A+

job75 · 11 Janvier 2013

Re : Trie aléatoire avec trois fixe

Re,

Voir l'Edit de mon post précédent pour la question du post #9.

A+

maval · 11 Janvier 2013

Re : Trie aléatoire avec trois fixe

Re Job,

Oui apparemment il fonctionne bien, je te tiendrai au courant si sa beug .
Merci pour la ligne de code
@+

Max

Trie aléatoire avec trois fixe

maval

XLDnaute Barbatruc

Pièces jointes

CBernardT

XLDnaute Barbatruc

Pièces jointes

Bebere

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

Bebere

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

maval

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires