VBA générer une série de chiffre aléatoire
Résolu/Fermé
majival
pijaku
- Messages postés
- 23
- Date d'inscription
- mercredi 6 septembre 2017
- Statut
- Membre
- Dernière intervention
- 5 décembre 2017
pijaku
- Messages postés
- 12259
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 9 août 2022
A voir également:
- Nombre aléatoire vba
- VBA générer une série de chiffre aléatoire ✓ - Forum - VB / VBA
- Générer une série de nombre aléatoire tous différents ✓ - Forum - C
- VBA chiffre aleatoire ✓ - Forum - VB / VBA
- Générateur de combinaison 5 chiffres - Forum - Bureautique
- VBA - Créer une série de boutons sur un feuille Excel - Conseils pratiques - Microsoft Office
2 réponses
pijaku
Modifié le 6 sept. 2017 à 10:54
- Messages postés
- 12259
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 9 août 2022
Modifié le 6 sept. 2017 à 10:54
Bonjour,
générer une série de chiffre aléatoire (10000 ou plus)
Tu veux la version "soft" ou la version "hard"?
Des chiffres entre 0 et ???
Cordialement,
Franck
générer une série de chiffre aléatoire (10000 ou plus)
Tu veux la version "soft" ou la version "hard"?
Des chiffres entre 0 et ???
Cordialement,
Franck
pijaku
Modifié le 6 sept. 2017 à 12:45
- Messages postés
- 12259
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 9 août 2022
Modifié le 6 sept. 2017 à 12:45
Voici le code.
Il te place en colonne A une suite de 10 000 (à adapter dans le code) nombres aléatoires compris entre 0 et 36 (inclus).
EDIT : Fonction NbAlea simplifiée
Cordialement,
Franck
Il te place en colonne A une suite de 10 000 (à adapter dans le code) nombres aléatoires compris entre 0 et 36 (inclus).
Option Explicit Public Sub Liste_Aleas() Dim i As Long, TbResults() As Long Const NB As Long = 10000 'A ADAPTER : nre de nombres aléatoires désirés ReDim TbResults(1 To NB, 1 To 1) For i = 1 To NB TbResults(i, 1) = NbAlea(0, 36) Next Range("A1").Resize(UBound(TbResults)) = TbResults End Sub Private Function NbAlea(min As Long, Max As Long) As Long Randomize Timer NbAlea = Int((Max - min + 1) * Rnd + min) End Function
EDIT : Fonction NbAlea simplifiée
Cordialement,
Franck
majival
6 sept. 2017 à 12:41
- Messages postés
- 23
- Date d'inscription
- mercredi 6 septembre 2017
- Statut
- Membre
- Dernière intervention
- 5 décembre 2017
6 sept. 2017 à 12:41
Je sais que je suis nul en VBA mais je suis encore plus nul que je le pensais...
J'arrive pas à executer la macro...
J'arrive pas à executer la macro...
pijaku
6 sept. 2017 à 12:46
- Messages postés
- 12259
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 9 août 2022
- Messages postés
- 23
- Date d'inscription
- mercredi 6 septembre 2017
- Statut
- Membre
- Dernière intervention
- 5 décembre 2017
6 sept. 2017 à 12:46
Oui, il y avait une petite erreur, corrigée maintenant.
Sinon, voici un fichier : https://www.cjoint.com/c/GIgkUrJHIDE
Sinon, voici un fichier : https://www.cjoint.com/c/GIgkUrJHIDE
victor
>
majival
6 sept. 2017 à 12:46
- Messages postés
- 23
- Date d'inscription
- mercredi 6 septembre 2017
- Statut
- Membre
- Dernière intervention
- 5 décembre 2017
6 sept. 2017 à 12:46
Remplacer NbAleaV2 = Int((Max - min + 1) * Rnd + min)
par NbAlea = Int((Max - min + 1) * Rnd + min)
par NbAlea = Int((Max - min + 1) * Rnd + min)
pijaku
6 sept. 2017 à 12:48
- Messages postés
- 12259
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 9 août 2022
6 sept. 2017 à 12:48
Oui victor (Bonjour),
J'ai modifié...
J'ai modifié...
majival
6 sept. 2017 à 12:51
- Messages postés
- 23
- Date d'inscription
- mercredi 6 septembre 2017
- Statut
- Membre
- Dernière intervention
- 5 décembre 2017
6 sept. 2017 à 12:51
yes, çà marche
Je t'explique les méthodes en privé pour que l'on voit ce que çà donne?
Je t'explique les méthodes en privé pour que l'on voit ce que çà donne?
6 sept. 2017 à 11:44
Qu'appelles-tu version "hard"
Il s'agit de chiffres entre 0 et 36
matt
6 sept. 2017 à 11:45
Je te bricole ça dans un instant.
6 sept. 2017 à 11:49
t'es trop fort