Générer une ligne de nombre random
jackwest
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis débutant dans excell 2010, je suis en train de me créer une table qui génère des résultats alléatoires pour un jeu social en ligne que je fais avec mes amis. J' aimerais générer avec un bouton,une ligne de 10 nombres de 1 à 10 trié en ordre croissant , avec un autre bouton, une ligne de 12 nombres de 1 à 12 toujours triés en ordre croissant et avec un autre bouton une ligne de 20 nombres de 1-20 toujours triés de la même façon.Je sais comment créer les boutons et les placer mais je ne sais pas comment activer les macros associés aux boutons.
Merci d' avance pour votre aide.
Je suis débutant dans excell 2010, je suis en train de me créer une table qui génère des résultats alléatoires pour un jeu social en ligne que je fais avec mes amis. J' aimerais générer avec un bouton,une ligne de 10 nombres de 1 à 10 trié en ordre croissant , avec un autre bouton, une ligne de 12 nombres de 1 à 12 toujours triés en ordre croissant et avec un autre bouton une ligne de 20 nombres de 1-20 toujours triés de la même façon.Je sais comment créer les boutons et les placer mais je ne sais pas comment activer les macros associés aux boutons.
Merci d' avance pour votre aide.
A voir également:
- Générer une ligne de nombre random
- Partage de photos en ligne - Guide
- Generer mot de passe - Télécharger - Sécurité
- Nombre de jours entre deux dates excel - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
2 réponses
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
Peux tu poster un exemplaire de ton fichier (macro comprise) sur cjoint.com et donner le lien fourni dans un prochain message