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?
A voir également:
- Nombre aleatoire
- Nombre facile - Télécharger - Outils professionnels
- Nombre de jours entre deux dates excel - Guide
- Nombre de page - Guide
- Afficher le 0 devant un nombre dans excel - Guide
- Nombre de combinaison possible avec 3 chiffres ✓ - Forum Programmation
2 réponses
Dandy_danbe
Messages postés
109
Date d'inscription
Statut
Membre
Dernière intervention
excell 2007
Dandy_danbe
Messages postés
109
Date d'inscription
Statut
Membre
Dernière intervention
merci beaucoups ca fonctionne
Bonjour
avec une tite macro
avec une tite macro
Option 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
