Générer une ligne de nombre random
Fermé
jackwest
Messages postés
2
Date d'inscription
lundi 28 janvier 2013
Statut
Membre
Dernière intervention
28 janvier 2013
-
28 janv. 2013 à 19:05
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 3 févr. 2013 à 11:21
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 3 févr. 2013 à 11:21
A voir également:
- Générer une ligne de nombre random
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Aller à la ligne excel - Guide
- Hors ligne instagram - Guide
- Generer mot de passe - Télécharger - Sécurité
2 réponses
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
28 janv. 2013 à 20:35
28 janv. 2013 à 20:35
Bonsoir,
Voici un code pour tirer 10 valeurs et les trier en ligne 1 de la feuille
A adapter selon les besoins en changeant les valeurs des variables nb et li
Onglet Developpeur Insertion Module
y copier la macro
Sur la feuille créer bouton clic droit visualiser le code mettre dans la sub le nom de la macro à appeler ( ici random1)
Pour 2nd tirage Copier coller la macro en dessous de l'autre
changer le nom (l appeler random2 par ex)
adapter les valeurs des variables
Creer le 2nd bouton etc
Sub random1()
Dim v As Integer
nb = 10 ' nombre de valeurs à tirer
li = 1 'ligne sur laquelle renvoyer les valeurs
' tirage de nb valeurs au hasard
For n = 1 To nb
v = CInt(Int((nb * Rnd()) + 1))
Cells(li, n).value = v 'place chaque valeur dans une cellule de la ligne li de la page
Next
' Classement par ordre croissant des valeurs
For x = 1 To nb - 1
For y = x + 1 To nb
If Cells(li, x).value > Cells(li, y).value Then q = Cells(li, x).value: Cells(li, x).value = Cells(li, y).value: Cells(li, y).value = q
Next y
Next x
End Sub
En esperant que c'est ce que tu voulais
Cordialement
Voici un code pour tirer 10 valeurs et les trier en ligne 1 de la feuille
A adapter selon les besoins en changeant les valeurs des variables nb et li
Onglet Developpeur Insertion Module
y copier la macro
Sur la feuille créer bouton clic droit visualiser le code mettre dans la sub le nom de la macro à appeler ( ici random1)
Pour 2nd tirage Copier coller la macro en dessous de l'autre
changer le nom (l appeler random2 par ex)
adapter les valeurs des variables
Creer le 2nd bouton etc
Sub random1()
Dim v As Integer
nb = 10 ' nombre de valeurs à tirer
li = 1 'ligne sur laquelle renvoyer les valeurs
' tirage de nb valeurs au hasard
For n = 1 To nb
v = CInt(Int((nb * Rnd()) + 1))
Cells(li, n).value = v 'place chaque valeur dans une cellule de la ligne li de la page
Next
' Classement par ordre croissant des valeurs
For x = 1 To nb - 1
For y = x + 1 To nb
If Cells(li, x).value > Cells(li, y).value Then q = Cells(li, x).value: Cells(li, x).value = Cells(li, y).value: Cells(li, y).value = q
Next y
Next x
End Sub
En esperant que c'est ce que tu voulais
Cordialement
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
3 févr. 2013 à 11:21
3 févr. 2013 à 11:21
Bonjour à tous les deux
une autre proposition
https://www.cjoint.com/?3BdluYAKR4v
Bonne suite
une autre proposition
https://www.cjoint.com/?3BdluYAKR4v
Bonne suite
2 févr. 2013 à 23:56
2 févr. 2013 à 23:59
Peux tu poster un exemplaire de ton fichier (macro comprise) sur cjoint.com et donner le lien fourni dans un prochain message