Accueil Compétences Patterns Microsoft Office Tirage au sort dans Excel

Tirage au sort dans Excel

Clique:
3069

Réponse

Un petit code VBA tous simple permet de faire un tirage au sort dans une liste sous Excel

Les lignes tirées au sort sont mise en couleur

1
2
3
4
5
6
7
8
9
10
11
12
13
14
nbLigneAChoisir=2
nbLigneDisponible=50
For lgntirage = 1 To nbLigneAChoisir
    Do While True
        Randomize
        RandomLine = Int((nbLigneDisponible * Rnd) + 1)
        ' on vérifie que la ligne n'a pas déjà été tirée au sort
        If Cells(RandomLine, 1)Font.Color <> 123445 Then
            Cells(RandomLine, 1).Font.Color = 123445
            Exit Do
        End If
    Loop
Next
MsgBox ("tirage au sort terminé")