trie aléatoire avec des conditions

[pat8.lejeune]

Bonjour,

je recherche une solution faire un tirage pour des concours de pétanques

Trie aléatoire sans que 2 équipes du même club puissent se rencontrer, exemple :
N° 1 Beynes
N° 2 Plaisir
N° 3 Poissy
N° 4 Buc
N° 5 Mantes
N° 6 Buc
...
dans le trie aléatoire les 2 équipes de Buc ne doivent pas se rencontrer
Si vous avez une solution merci de me la transmettre

Un grand merci
Cordialement

 

[Spitnolan08]

Re : trie aléatoire avec des conditions

Bonsoir,

Juste un mot pour te demander d'effacer le message que tu as placé sur l'autre forum et qui fait doublon avec celui ci.

Cordialement

Edit : Merci. J'ai placé un lien sur l'autre forum pour renvoyer ici...

 

[Laurent Fredy]

Re : trie aléatoire avec des conditions

Inscrire les Nr équipes en Colonne A et Nr de Club en B?
Faire jouer A1 contre A2,A3 contre A4 ect..
dans cette configuration 2 équipes d'un même club ne se rencontreront pas.
macro a metre dans un module.
Salutations er bonne chance.

Sub Tirage_QuandClic()
' Tirage aléatoire avec protection en colonne B

If MsgBox("Etes-vous certain de Faire Le Tirage ?", vbYesNo) = vbNo Then
Exit Sub
End If

Application.ScreenUpdating = False
Dim doublon As Boolean
Dim c As Range, sel As Range
doublon = False
Set sel = Range([A1], [A1].End(xlDown))
Do
For Each c In sel ' tirage aléatoire
Cells(c.Row, 3) = Rnd
Next c
[A:C].Sort key1:=Range("C1") ' tri selon aléa
[C:C].Clear
For Each c In sel ' vérification
If c.Row Mod 2 <> 0 Then doublon = (c.Offset(0, 1) = c.Offset(1, 1))
If doublon Then Exit For
Next c
Loop Until Not doublon
Application.ScreenUpdating = True
End Sub