Discussion :

[Chonon2022]

Bonjour,

Je cherche une à faire une macro en VBA qui permettrait d'attribuer un nombre aléatoire unique à des noms dans une liste de longueur définie.
J'avais créé cette macro il y a quelques années, mais suite à un piratage des machines de mon établissement, je dois réécrire cette macro et je ne sais plus comment procéder !
L'objectif est de placer de façon aléatoire des personnes sur des places dans une salle de cours.
Quelqu'un pourrait m'aider ?
Merci !
Chonon

[jurassic pork]

Hello,
voici un exemple qui utilise des collections pour faire des tirages. Le principe est de mettre les éléments à tirer dans la collection, puis de tirer aléatoirement un de ces éléments et de le retirer de la collection pour qu'il ne soit plus tirer. Dans l'exemple il y a deux collection : une collection d'entiers représentant des places et une collection de chaînes représentant des personnes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub TirageAuSortUnique()
Dim listePersonnes As New Collection
Dim listePlaces As New Collection
Dim x, nbALea As Integer
Randomize
' remplissage des numéros de places disponibles
For x = 1 To 100
listePlaces.Add (x)
Next
' tirage aléatoire des 100 places
For x = 1 To 100
nbALea = Int(listePlaces.Count * Rnd) + 1
Debug.Print listePlaces.Item(nbALea)
listePlaces.Remove (nbALea)
Next
' remplissage de personnes
For x = 1 To 50
listePersonnes.Add ("Personne" + CStr(x))
Next
' Tirage aléatoire de 30 personnes
For x = 1 To 30
nbALea = Int(listePersonnes.Count * Rnd) + 1
Debug.Print listePersonnes.Item(nbALea)
listePersonnes.Remove (nbALea)
Next
End Sub

Ami calmant, J.P

[Chonon2022]

Salut JP,
Merci de ton aide ! Avec ça, je peux déjà bien avancer. Dans ton code, pourrais tu calculer le nombre de personnes inscrites et utiliser ce nombre pour borner le tirage aléatoire ? Genre, s'il y a 40 personnes, la macro génère automatiquement les nombres de 1 à 40 de façon unique ??

Encore merci,
Chonon

[jurassic pork]

Hello,



Ma boule de cristal ne m'a pas dit où sont les personnes inscrites ? Dans une feuille ? Dans un fichier Externe ? Quelque part en mémoire ? Sur un téléphone portable ? ailleurs ?
Peux-tu montrer un exemple de liste de personnes inscrites (où fournir un classeur) en mettant bien sûr des personnes fictives.

Ami calmant, J.P

[Chonon2022]

Bien sûr ! Désolé... Ca parait toujours clair quand on a le nez dans sa feuille excel ...
Du coup, tu peux imaginer une feuille excel avec des noms et prénoms en colonnes A et B et des nombres générés de 1 à n où n est le nombre de personnes dans la colonne A.
Lorsque la macro fonctionnera, je l'associerai à un bouton sur le ruban excel pour générer les nombres de façon manuelle .
J'espère que le fichier joint est vraiment joint...
Merci !
Chonon

[jurassic pork]

Voici une macro qui calcule le nombre de personnes (on utilise une plage nommée : Personnes) et qui fait un tirage aléatoire unique et qui met la place tirée en colonne C de la feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub TirageAuSortUnique()
Dim listePlaces As New Collection
Dim x, nbALea, nbPersonnes As Integer
Randomize
nbPersonnes = ActiveSheet.Range("Personnes").Rows.Count
' remplissage des numéros de places disponibles
For x = 1 To nbPersonnes
listePlaces.Add (x)
Next
' tirage aléatoire
For x = 1 To nbPersonnes
nbALea = Int(listePlaces.Count * Rnd) + 1
Debug.Print listePlaces.Item(nbALea)
ActiveSheet.Range("Personnes").Cells(1, 1).Offset(x - 1, 2).Value = listePlaces.Item(nbALea)
listePlaces.Remove (nbALea)
Next
End Sub

ActiveSheet.Range("Personnes").Cells(1, 1) correspond à la première cellule de la plage nommée Personnes.
En pièce jointe le classeur avec la macro.