Bonjour,
Dans le cadre d'activités sportives, nous souhaitons organiser du covoiturage afin d'emmener des enfants sur le lieux des matchs.
j'aurai donc besoin de créer des groupes de 3 (facilement modifiable à 4). Ceci de manière aléatoire et équitable pour tout le monde.
Avec une liste de départ de 8 à 15 personnes environs. Les groupes doivent donc êtres différents sur à chaque fois.

Merci d'avance

Nico

Bonjour,

Toujours pareil, une réponse concrète exige un classeur pour illustrer la demande et sur lequel on peut consigner une réponse...

En attendant, une fonction personnalisée qui pourrait satisfaire ta demande :

Function TIRAGESELEC(n As Integer)
Dim tabt(), tablo() As Integer, i%, m%, x%
If n < 1 Then
TIRAGESELEC = CVErr(xlErrNum)
Exit Function
End If
m = Selection.Cells.Count
ReDim tabt(1 To m)
If m > n Then
For i = n + 1 To m
tabt(i) = CVErr(xlErrNA)
Next i
m = n
End If
ReDim tablo(n)
For i = 1 To n
tablo(i) = i
Next i
Randomize
For i = 1 To n
x = Int(n * Rnd + 1)
tablo(0) = tablo(x)
tablo(x) = tablo(i)
tablo(i) = tablo(0)
Next i
tablo(0) = tablo(n)
x = Int(n * Rnd + 1)
For i = 1 To m
tabt(i) = tablo((x - 1 + i) Mod n)
Next i
If Selection.Rows.Count > 1 Then
TIRAGESELEC = Application.Transpose(tabt)
Else
TIRAGESELEC = tabt
End If
End Function

Elle s'utilise comme les fonctions d'Excel, celle-ci s'utilise en fonction matricielle : tu sélectionnes (en ligne ou colonne, la fonction répond dans les deux cas) un nombre de cellules correspondant au nombre d'éléments à tirer, tu tapes ensuite la formule : =TIRAGESELEC(x), x étant le nombre total d'éléments parmi lesquels on tire, tu valides par Ctrl+Maj+Entrée et tu obtiens les numéros tirés.

Dans ton cas, si tirage sur 15 personnes, pour répartir l'ordre dans lequel elles interviennent par groupe de 3 ou 4. Tu peux sélectionner 15 cellules, mettre 15 comme argument de la fonction, et tu obtiendras les numéros 1 à 15 dans un ordre déterminé par tirage aléatoire, qu'il te suffit de prendre à la suite par 3 ou 4...

Cordialement

NB: tu peux copier la fonction et la coller dans un module standard de ton classeur (qui devra dès lors être enregistré en xlsm).

Bonjour ferrand,

Voici un exemple de ce que j'ai réussi à faire, à partir de la colonne de gauche, j'arrive grâce à la macro ci-dessous à sortir la colonne de droite.

Cependant je n'arrive pas à en sortir plus de deux sans retrouver des doublons, lorsque j'essaie avec 3 ou 4 nom.

ET je n'arrive également pas a faire en sorte que ce ne soit pas dans cet ordre, j'aimerai que l'ordre soit aléatoire avec une égalité (toute relative ma foi), qu'une personne ne soit pas nommée deux fois de suite.

Macro utilisée :

Sub Combine()
i = Cells(1000, 1).End(xlUp).Row
For K = 1 To i - 1
For j = K + 1 To i
Cells(x + 1, 2) = Cells(K, 1).Value & " " & Cells(j, 1).Value
x = x + 1
Next
Next

End Sub

Exemple :

Olivier rudy

Désolé le tableau n'est pas passé ! voici une image ci-dessous !

J'ai déjà fourni une réponse. Je le regrette car cela ne se fait pas de poser une question simultanément sur plusieurs forums, sans au moins le dire . J'ai de toute façon répondu à la question telle qu'elle était posée, en terme de tirage aléatoire. Là tu en poses une autre !