Prélever 23 valeurs aléatoirement dans un tableau.

laetitia90 à dit:

bonjour tous 🙂🙂🙂🙂🙂🙂

une autre facon de l'ecrire je mets pas dans l'ordre il faut... il faut pas ??

Code:

Sub es()
 Dim T(), i As Long, m As Object
 Set m = CreateObject("Scripting.Dictionary")
 Do Until i = 23
 v = Int((72 - 2 + 1) * Rnd() + 2)
 If Not m.Exists(v) Then m.Add v, v: i = i + 1
 Loop
 T = m.Items
 For i = 0 To UBound(T)
 Feuil2.Cells(i + 9, 3) = Feuil1.Cells(T(i), 1)
 Feuil2.Cells(i + 9, 4) = Feuil1.Cells(T(i), 3)
 Feuil2.Cells(i + 9, 5) = Feuil1.Cells(T(i), 5)
 Next i
 Set m = Nothing: Erase T
End Sub

Cliquez pour agrandir...

youky(BJ) à dit:

Bonjour à tous,..... je vois que nous sommes nombreux sur le fil.
Pour controlo, voici des commentaires afin de comprendre le principe qui reste l'essentiel.
A savoir le principe de ma macro date de plus de 15 ans et l'ai fait seul.
Je viens de voir que la macro de mapomme est très bien et doit gagné qlq milisecondes sur la mienne.
Voici mes commentaires

Bruno

Code:

Private Sub CommandButton1_Click()
Feuil2.[C9:E31].ClearContents ' on efface l'ancien tableau
Dim deja(1 To 100) As Boolean 'on dimensionne la variable deja (vrai ou faux)
Dim lig(1 To 30) As Long ' idem mais pour N°ligne
Randomize ' Initialise le générateur de nombres aléatoires
Do 'Do>Loop....repete à l'infinit jusqu'a exit DO
n = Int(Rnd * 70) + 2 'tirage aléatoire entre 2 et 72
If Not deja(n) Then deja(n) = True: i = i + 1: lig(i) = n 'si n n'est pas deja sorti lig(i)=n ..i étant incrémenté
If i = 23 Then Exit Do ' on sort
Loop 'le Do loop
For k = 1 To 23 ' boucle de 1 à 23
Feuil2.Cells(k + 8, 3) = Feuil1.Cells(lig(k), 1) 'k+8 est la ligne en feuil2
Feuil2.Cells(k + 8, 4) = Feuil1.Cells(lig(k), 3) 'lig(k) est le N° ligne du tirage au sort ..i étant remplacé par k avec la boucle
Feuil2.Cells(k + 8, 5) = Feuil1.Cells(lig(k), 5)
Next
Feuil2.Select
End Sub

Cliquez pour agrandir...