Excel : comment faire un tirage au sort ?
Fermé
Lioneleriol
Messages postés
32
Date d'inscription
vendredi 26 décembre 2008
Statut
Membre
Dernière intervention
28 octobre 2010
-
4 mai 2009 à 09:43
qmike Messages postés 1509 Date d'inscription mardi 19 juillet 2005 Statut Membre Dernière intervention 18 juin 2012 - 4 mai 2009 à 11:41
qmike Messages postés 1509 Date d'inscription mardi 19 juillet 2005 Statut Membre Dernière intervention 18 juin 2012 - 4 mai 2009 à 11:41
A voir également:
- Tirage au sort cadeau sans email
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Mise en forme conditionnelle excel - Guide
2 réponses
Mike-31
Messages postés
18342
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
2 novembre 2024
5 103
4 mai 2009 à 11:30
4 mai 2009 à 11:30
Salut,
Avec Excel en VBA, tu saisis une liste de mot ou chiffre colonne A Feuille 2 et place un bouton de déclenchement associé à ce code, à partir de la cellule active tu obtiendras une liste aléatoire
Pour avoir une valeur aléatoire dans une seule cellule par exemple en B2 il conviendra de placer en début de procédure Range("B2").Select
Sub test()
Randomize
Set MaPlage = Sheets("Feuil2").Range("A1:" & Sheets("Feuil2").Range("A65536").End(xlUp).Address)
X = MaPlage.Rows.Count
ActiveCell.Value = MaPlage.Offset(Int((X - 1) * Rnd), 0).Resize(1, 1).Value
ActiveCell.Offset(1, 0).Select
End Sub
A+
Avec Excel en VBA, tu saisis une liste de mot ou chiffre colonne A Feuille 2 et place un bouton de déclenchement associé à ce code, à partir de la cellule active tu obtiendras une liste aléatoire
Pour avoir une valeur aléatoire dans une seule cellule par exemple en B2 il conviendra de placer en début de procédure Range("B2").Select
Sub test()
Randomize
Set MaPlage = Sheets("Feuil2").Range("A1:" & Sheets("Feuil2").Range("A65536").End(xlUp).Address)
X = MaPlage.Rows.Count
ActiveCell.Value = MaPlage.Offset(Int((X - 1) * Rnd), 0).Resize(1, 1).Value
ActiveCell.Offset(1, 0).Select
End Sub
A+
