Tri aléatoire en cliquant sur le bouton

[hervoul]

Bjr,
J'aimerais trier de manière aléatoire mes listes de 4 personnes (coureur A, B C et D) sur les lignes 2;5;8;11; etc...en cliquant sur le bouton...
merci Bcp !
cf fichier joint - onglet "groupes"
RVoul

 

[mapomme]

Re : Tri aléatoire en cliquant sur le bouton

Bonjour hervoul,

un essai dans le fichier joint.

 

[pierrejean]

Re : Tri aléatoire en cliquant sur le bouton

Bonjour hervoul

Vois si cela te convient

Edit Salut Ma Pomme

 

[Robert]

Re : Tri aléatoire en cliquant sur le bouton

Bonjour le fil, bonjour le forum,

Malgré mon retard je me permets d'envoyer quand même ma proposition avec le code ci-dessous :

Private Sub CommandButton1_Click() 'bouton tri aléatoire
Dim x As Byte
Dim y As Byte
Dim a As Byte, b As Byte, c As Byte, d As Byte
Dim tr() As Integer

For x = 1 To 10 'boucle sur les 10 tris (de 2 à 11)
    y = (3 * x) + 2 'définit la ligne où placer les données
debut:
Randomize 'lance le générateur de nombres aléatoires
    a = Int((4 * Rnd) + 1) 'définit le nombre a aléatoirement
b: 'étiquette "b"
    b = Int((4 * Rnd) + 1) 'définit le nombre b aléatoirement
    If b = a Then GoTo b 'si b=a va à l'étiquette b
c: 'étiquette "c"
    c = Int((4 * Rnd) + 1) 'définit le nombre c aléatoirement
    If c = b Or c = a Then GoTo c 'si c=a ou c=b va à l'étiquette c
d: 'étiquette "d"
    d = Int((4 * Rnd) + 1) 'définit le nomnre b aléatoirement
    If d = c Or d = b Or d = a Then GoTo d 'si d=a ou d=b ou d=c, va à l'étiquette d
    
    Cells(y, a + 1) = Cells(2, 2) 'place la valeur de la cellule B2
    Cells(y, b + 1) = Cells(2, 3) 'place la valeur de la cellule C2
    Cells(y, c + 1) = Cells(2, 4) 'place la valeur de la cellule D2
    Cells(y, d + 1) = Cells(2, 5) 'place la valeur de la cellule E2
    ReDim Preserve tr(x - 1)
    tr(x - 1) = 1000 * a + 100 * b + 10 * c + d
    For i = 0 To UBound(tr)
        If i <> x - 1 And (1000 * a) + (100 * b) + (10 * c) + d = CInt(tr(i)) Then GoTo debut
    Next i
Next x 'prochain tri de la boucle
End Sub

Le fichier:

 

[hervoul]

Re : Tri aléatoire en cliquant sur le bouton

Merci Bcp pour votre rapidité et vos réponses nombreuses...
je dis toujours la même chose...mais bon...
Le résultats est parfait, c'est exactement ce que je cherchais !
RVoul