XL 2016 Tirage au sort équipe de 2 avec coeff

Loic117 · 8 Octobre 2024

Bonjour à tous,

Etant novice sous Excel, je suis à la recherche d'une aide charitable pour la réalisation d'un tirage au sort avec coeff.

Je m'explique, nous souhaitons mettre en place un tirage au sort entre 8 personnes, pour composer 4 équipes de 2 personnes.

Subtilité, nous souhaitons "truquer" le tirage, car nous avons convenue des équipes en amont dans le cadre d'un bizutage de travail.
En réalité, nous organisons un tournoi de Padle avec le travail, et nous souhaitons mettre dans la même équipe notre chef ainsi que notre nouvel alternant.

Les autres joueurs ce sont entendus pour être ensemble. Donc le tirage doit être prédéfini à l'avance :
-> Joueur A à 100% de chance d'être avec le joueur B
-> Joueur C à 100% de chance d'être avec le joueur D
-> Joueur E à 100% de chance d'être avec le joueur F
-> Joueur G à 100% de chance d'être avec le joueur H

Bon, je sais que ce n'est pas bien, mais cela nous permettra de passer un bon moment dans la joie et la bonne humeur.

Par avance merci à toutes et tous.

Amicalement,
Loïc

sebastianbl · 10 Octobre 2024

Salut @Loic117 ,
Ci-joint, un truc tout simple
pas un tirage au sort mais juste des copier / coller en série

sebastianbl · 10 Octobre 2024

Salut @Loic117 ,
Ci-joint, un truc tout simple
pas un tirage au sort mais juste des copier / coller en série

Loic117 · 10 Octobre 2024

sebastianbl à dit:
Salut @Loic117 ,
Ci-joint, un truc tout simple
pas un tirage au sort mais juste des copier / coller en série

Bonjour à toi sebastianbl,
Merci beaucoup pour cette solution, avec mes collègues nous te remercions fortement.
Bonne continuation.
Loïc

sylvanu · 10 Octobre 2024

Bonjour Loic, sebastianbl,
"Just for the fun"
La liste des joueurs est à modifier en Feuil1 de E1 à E8.

crocrocro · 10 Octobre 2024

Bonjour à tous,
une autre proposition en partant du fichier de Sebastian,
pas vu celle de Sylvanu qui m'a précédé

patricktoulon · 11 Octobre 2024

Bonjour
une petite version façon patosh

VB:

Sub TirageAuSort()
    Dim L&, Tb, cel As Range, CC&, X&, Ligne&
    Tb = Range("B3:B10")

    'on melange le tableau d'origine
    For i = 1 To UBound(Tb)
        X = 1 + (Rnd * (UBound(Tb) - 1)): temp = Tb(i, 1): Tb(i, 1) = Tb(X, 1): Tb(X, 1) = temp
    Next


    With Range("EQUIPES")

        For Each cel In .Cells: a = a + 1: cel.Value = Tb(a, 1): Next

        MsgBox "voila le tirage au sort des equipes pour la partie de Padle" & vbCrLf & _
                "Et là vous vous dites a bein non on avait pas prevu ça DOMMAGE!!!" & vbCrLf & _
                "Vous avez les boules hein"

        MsgBox "Mais non c'est une blague" & vbCrLf & _
                "regarde plutot ce tirage"

        MsgBox "Vous y avez cru hein !!!"
        Tb = Range("B3:B10")
        For CC = 1 To .Columns.Count
            Ligne = 1: L = L + 1: .Cells(Ligne, CC) = Tb(L, 1)
            Ligne = 2: L = L + 1: .Cells(Ligne, CC) = Tb(L, 1)
        Next

    End With
End Sub

XL 2016 Tirage au sort équipe de 2 avec coeff

Loic117

XLDnaute Nouveau

sebastianbl

sebastianbl

XLDnaute Nouveau

Pièces jointes

Loic117

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

crocrocro

XLDnaute Impliqué

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Discussions similaires