Tirage(aléatoire sans répétition)

Commenter

Contenu du snippet

Définir Top au début du programme.

ON peut aussi utiliser le inputmsgbox !

(le tirage s'effectue sans répétition des nombres)

Source / Exemple : 


Public Sub tirage()
Top = 29
Dim i As Integer
Dim sortie
Dim flag() As Integer
ReDim flag(Top)
For i = 1 To Top
        flag(i) = 1
        Next i
 
For i = 1 To Top

 sortie = Int(Rnd() * Top) + 1
                    If flag(sortie) = 1 Then
                            flag(sortie) = 0
                     
                    Else
                    While flag(sortie) = 0
                    sortie = Int(Rnd() * Top) + 1
                    Wend
                             flag(sortie) = 0
                    End If
 
Worksheets("feuil1").Cells(i, 1).Value = sortie
Next i

End Sub

Conclusion :


Le tirage se fait et s'inscrit dans une feuille excel..Colonne 1 ..en fonction du nombre de chiffres demandés...La particularité du programme c'est qu'il s'assure que les chiffres ne sont pas répétés ..!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.