Tirage aléatoire sans cellule vide

Bonsoir,

Je vous sollicite une fois de plus et je vous remercie d’avance encore une fois de plus.

Mes problèmes sont les suivants :

• Dans la colonne A j’ai un listing avec des noms
• Dans la colonne B je mets un « x » quand un joueur est sélectionnable
• Dans la colonne C j’ai la liste des joueurs sélectionnables.

2°) ensuite dans la feuille « Equipe » je voudrais effectuer un tirage aléatoire sans doublons pour constituer une équipe à partir de la liste de la colonne C de la feuille « Listing ».

Je ne sais pas si je suis assez clair pour cela je vous joints un fichier exemple.

Bien cordialement

Bonjour,

Un essai.

Certainement corrigé, amélioré, par certains, dont la fameuse tulipe_4.

Cdlt.

Bonsoir Jean-Eric,

Pour un coup d'essai c'est presqu'un coup de maître.

Je te remercie beaucoup et après quelques modifi cela fonctionne assez bien.

encore merci Jean-Eric

J'attend d’éventuelles améliorations...

Bien cordialement

Bonsoir, Salut Jean-Eric !

Solution macro :

Sub TirageEquipe()
    Dim lst(1 To 5, 0) As String, lst0, tx$, k$, n%, i%, x%
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 4 To n
            If .Cells(i, 2) = "x" Then
                tx = tx & ChrW(i + 32)
                lst0 = lst0 & .Cells(i, 1) & ";"
            End If
        Next i
        Randomize
        For i = 1 To 5
            x = Int(Len(tx) * Rnd + 1)
            k = Mid(tx, x, 1): x = AscW(k) - 32
            lst(i, 0) = .Cells(x, 1)
            tx = Replace(tx, k, "")
        Next i
        lst0 = Split(lst0, ";")
        Application.ScreenUpdating = False
        .Range("C4:C" & n).ClearContents
        .Range("C4").Resize(UBound(lst0)).Value = WorksheetFunction.Transpose(lst0)
    End With
    Worksheets("Joueurs").Range("B6:B10").Value = lst
End Sub

Cliquer sur la cible !

NB- Solution formules magnifique de Jean-Eric ! Difficile d'améliorer l'idée...

Bonjour MFerrand,

Merci pour ta remarque.

Pas de TCD, ni formule tridactyle et pas de VBA !...

Qu'attends tulipe_4 pour intervenir et me complimenter aussi ?

Il est certainement jaloux le coquin, ne pouvant faire mieux !...

Cordialement.