Excel : comment faire un tirage au sort ?
Lioneleriol
Messages postés
32
Date d'inscription
Statut
Membre
Dernière intervention
-
qmike Messages postés 1509 Date d'inscription Statut Membre Dernière intervention -
qmike Messages postés 1509 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Voilà je cherche à faire un tirage au sort avec excel (ou un autre logiciel gratuit si vous en connaissez). J'ai un certain nombre de participant qui ont donné chacun un ou plusieurs lots. Je veux attribuer ces lots de façon aléatoire.
Comment puis-je m'y prendre ?
Merci d'avance pour vos précieuses réponses...
Voilà je cherche à faire un tirage au sort avec excel (ou un autre logiciel gratuit si vous en connaissez). J'ai un certain nombre de participant qui ont donné chacun un ou plusieurs lots. Je veux attribuer ces lots de façon aléatoire.
Comment puis-je m'y prendre ?
Merci d'avance pour vos précieuses réponses...
A voir également:
- Tirage au sort cadeau sans email
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
2 réponses
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+