Tirage au sort de plusieurs valeurs issues d'une liste

**TchiotPols** · 30/12/2020, 11h49

Bonjour à Tous,
Après une recherche sur Internet, j'ai repris ce code (Cf fichier joint)
Mais j'ai un petit souci sur mon code pour effectuer un tirage au sort de 10 valeurs à afficher dans la colonne D sur une liste de 26 valeurs en colonne B
Problème je me retrouve avec une erreur 9 - l'indice n'appartient pas à la sélection
Blocage sur la ligne de code : TS(1) = TV(LI,2)
Je pense que l'erreur se situe au niveau de la déclaration des variables mais je ne trouve pas.
Je mets en pièce jointe le fichier
Merci à vous pour votre aide

**pijaku** · 30/12/2020, 13h52

Bonjour,

Remplace donc tous tes TV(LI, 2) par TV(LI, 1)...

**TchiotPols** · 30/12/2020, 14h27

Bonjour,
Merci pour ta réponse.
Pas sûr de saisir. J'ai effectué le remplacement. Mais je n'ai plus qu'un seul tirage et non les 10 désirés. ??

**pijaku** · 30/12/2020, 14h29

Il y a 4 remplacements à faire.

Voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
Dim O As Worksheet                  'déclare la variable O          (Onglet)
Dim TV As Variant                   'décalre la variable TV         (Tableau des Valeurs)
Dim LI As Byte                      'déclare la variable LI         (LIgne)
Dim TS(1 To 10) As Variant          'déclare le tableau de 10 TS    (Tirage au Sort)
 
Set O = Worksheets("Data")          'définit l'onglet O
'tirage de départ
TV = O.Range("B1").CurrentRegion    'définit le tableau des valeurs TV
Randomize                           'lance le générateur de nombre aléatoire
LI = Int((26 * Rnd) + 1)            'définit la ligne LI
TS(1) = TV(LI, 1)                   'définit le 1er tirage au sort
TV(LI, 1) = ""                      'vide la donnée ligne I colonne 2 de TV
For I = 2 To 10                     'boucle sur les 9 autres tirages au sort
    LI = Int((26 * Rnd) + 1)        'définit la ligne LI
    Do Until TV(LI, 1) <> ""        'exécute en boucle jusqu'à ce que la donnée ligne LI colonne 2 de TV ne soit pas vide
        LI = Int((26 * Rnd) + 1)    'définit la ligne LI
    Loop                            'boucle
    TS(I) = O.Cells(LI, 2)          'définit le Ième tirage au sort
    TV(LI, 1) = ""                  'vide la donnée ligne LI colonne 2 de TV
Next I                              'prochain tirage au sort de la boucle
O.Range("D1").Resize(10, 1) = Application.Transpose(TS)    'renvoie dans D1 redimensionnée le tableau TS transposé
End Sub

**TchiotPols** · 30/12/2020, 14h31

Ok cela fonctionne. J'avais fait un changement de trop
Si j'ai bien compris, le 1 pour la colonne 1 du tableau "virtuel" (TV) et le 2 pour la colonne du tableau des tirages issus de la colonne B de la feuille