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 ..!
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.