Tirega au sort

Bonjour à tous,

Toujours pour mon club, je désire faire un tirage au sort automatique.

Si j'ai 25 participants pour créer des doublettes, je désire que tous les participants jouent mais ne jouent pas toujours avec le même coéquipier. Quelle serait la solution à adopter pour que le N°1 ne rencontre pas toujours le même n°

Je vous envoi un fichier

https://www.excel-pratique.com/~files/doc/SI_VAL.xls

Merci pour votre qui à toujours était très efficace.

Amicalement

Noel

Bonsoir à tous,

un exemple ;

https://www.excel-pratique.com/~files/doc/hiM8Lequipe_aleatoire3.xls

bonne soirée

Claude.

Bonjour à tous,

Merci Claude,

La question que je me pose, ton fichier serait-il modifiable pour plus de 10 personnes?

Si c'est le cas comment dois-m'y prendre?

Merci d'avance

Amicalement

Noel

Bonjour à tous,

J'ai un petit club de boulistes environ de 25 pers. Nous jouons en doublette. Mais nous ne voulons pas jouer toujours avec la même personne. Pour cela il me faut un tirage aléatoire à chaque partie. Il faut également qu'à chaque journée un tirage.

Je joins un petit fichier explicatif de ce que je désire.

https://www.excel-pratique.com/~files/doc/e5ur1Classeur1.xls

Merci pour votre aide

Amicalement

Noel

Bonjour à tous,

Je m'inquiète. Je n'ai plus de nouvelle concernant ce fil

Si je me suis mal fait comprendre faites moi savoir.

J'ai besoin d'un tirage aléatoire pour un tournoi

Merci de me venir en aide.

Cordialement

Noel

Bonjour,

Cette macro fait un mélange sur la sélection en cours quelle que soit la colonne et quelle que soit le nombre d'éléments.

Ensuite YAPUKA faire un copier coller des 12 premiers et des 12 suivants pour chaque tour.

Le plus simple est de faire un nouveau tirage au cas ou le 25 ème ne te convient pas...

Sub tirage()

Dim melange As New Collection

Dim i%, j%, k%, x%, o, v

If Selection.Columns.Count > 1 Then Exit Sub

x = Selection.Column

For Each o In Selection

melange.Add o.Value

Next

k = melange.Count

Do While k > 0

If k > 0 Then

j = j + 1

i = Int((k * Rnd) + 1)

v = melange(i)

Cells(j, x) = v

melange.Remove i

k = k - 1

End If

Loop

End Sub

A+

Bonjour à tous,

Merci Galopin01 pour cette macro.

J'ai essayé c'est bon

merci encore

Je pense que ce fil est résolu grace à toi.

Amicalement

Noel