Discussion :

[Philippe87420]

bonjour
vue mon niveau en VBA, j'ai essayer d'écrire une macro en cherchant un peut sur les forums, mais peine perdu.

Pour faire simple je souhaite dans la feuille tirage indiquer un nb d'inscrits en E2. le tirage doit s'affiche de A10:A610 (600 inscrits maxi)

La macro doit effacer le tirage précédent da A10 :a610 et effectuer un tirage aléatoire sans doublon en fonction du nb d’inscrits en E3.
ci joint un fichier pour plus d'information

merci de votre aide par avance

philippe

[goldstar]

Bonjour,

un truc du genre

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
 
 
Sub tirage_aleatoire()
 
Dim leTirage As Object, nbInscrits As Integer
 
Set leTirage = CreateObject("Scripting.Dictionary")
nbInscrits = Sheets("tirage").Range("E2")
 
Sheets("tirage").Range("A10:A610").ClearContents
 
While leTirage.Count < nbInscrits
    Randomize Timer
    Nbr = Int((nbInscrits - 1 + 1) * Rnd + 1)
 
    leTirage(Nbr) = Nbr
Wend
 
Sheets("tirage").Range("A10").Resize(leTirage.Count) = Application.Transpose(leTirage.Items)
 
End Sub

Cordialement,

[Philippe87420]

bonjour goldstar

merci pour ta réponse , ça à l'aire de fonctionner

cordialement

philippe

[Menhir]

Ca peut se faire sans macro.

Tu passes ta feuille en recalcul manuel : Ruban Formules > Icone Options de calcul > Manuel
Dans un second onglet que j'appellerai "Suite", tu mets en A10 le formule :

Code :

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

=ALEA()

Tu la recopies dans les cellules A11:A610.

En A10, tu tapes la formule :

Code :

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

=SI(LIGNE(A10)-9>E$2;"";RANG(Suite!A10;DECALER(Suite!A$10;0;0;E$2)))

Chaque fois que tu cliquera sur l'icone "Calculer maintenant" (Ruban Formules), il te calculera une nouvelle suite de chiffre limitées par la valeur de E2.
Si tu changes la valeur de E2, n'oublie pas de recliquer sur "Calculer maintenant".