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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 579 fois - Téléchargée 68 fois

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

Ajouter un commentaire

Commentaires

Pourquoi faire figurer cet article dans les API ?
bonjour
ce code genere toujours la meme serie
un msgbox("términé") après le
next i sera meilleur
sympa. tu combles une grosse lacune de vb
Pas mal mais il existe des formules de math toutes betes qui font pareil avec des périodes énormes et qui ne donnent pas 2 fois la meme liste. Je ferai suivre ca un jour, je connais pas par coeur ! :)

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.