Nombre aleatoire
Dandy_danbe
Messages postés
109
Date d'inscription
Statut
Membre
Dernière intervention
-
Dandy_danbe Messages postés 109 Date d'inscription Statut Membre Dernière intervention -
Dandy_danbe Messages postés 109 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Comment tirer un nombre aléatoire 1 et 90 sans avoir 2 x le même sauf si je remets a o ou un reset?
Comment tirer un nombre aléatoire 1 et 90 sans avoir 2 x le même sauf si je remets a o ou un reset?
2 réponses
-
Bonjour
et avec quel logiciel ?
-
Bonjour
avec une tite macroOption Explicit
'--------
Sub tirage90()
Dim Cptr As Byte, Dico As Object, Nbre As Byte
Set Dico = CreateObject("scripting.dictionary")
For Cptr = 1 To 90
Nbre = Int(Rnd * 90) + 1
If Not Dico.exists(Nbre) Then: Dico.Add Nbre, ""
Next
Range("A2").Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
End Sub
