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.

[Chonon2022]

Bonjour JP,
Merci beaucoup,
Je teste la macro et je te tiens au courant !

Chonon

[Chonon2022]

Bonjour JP,
Merci beaucoup,
Je teste la macro et je te tiens au courant !

Chonon

Elle marche nickel, merci beaucoup !
Peux-tu regarder comment cette macro pourrait fonctionner sans devoir créer une liste au préalable (Personnes) ? Ça rendrait le fonctionnement encore plus simple.
Pour l'instant, pour des listes de longueur variable, ça nécessite de devoir créer une liste avec le nombre total de personnes pour chaque attribution.

Encore merci!

Chonon

[jurassic pork]

Elle marche nickel, merci beaucoup !
Peux-tu regarder comment cette macro pourrait fonctionner sans devoir créer une liste au préalable (Personnes) ? Ça rendrait le fonctionnement encore plus simple.
Pour l'instant, pour des listes de longueur variable, ça nécessite de devoir créer une liste avec le nombre total de personnes pour chaque attribution.
Encore merci!
Chonon

Je ne comprends pas bien la question car une plage nommée (qui n'est pas une liste mais une sélection de cellules) peut s'étendre ou se réduire facilement.

[Chonon2022]

Je ne comprends pas bien la question car une plage nommée (qui n'est pas une liste mais une sélection de cellules) peut s'étendre ou se réduire facilement.

En fait, sur ma feuille excel, l'attribution des places se fait uniquement sur la plage nommée et l'étendre en sélectionnant d'autres cellules ne sert à rien.
Si je diminue la liste, la macro attribue des places à des cases vides et si j'ajoute des noms, ils ne sont pas pris en compte...

Soit je m'y prends très mal, soit il y a qq chose que je ne vois pas !
dsl

Chonon

[jurassic pork]

Hello,

En fait, sur ma feuille excel, l'attribution des places se fait uniquement sur la plage nommée et l'étendre en sélectionnant d'autres cellules ne sert à rien.
Si je diminue la liste, la macro attribue des places à des cases vides et si j'ajoute des noms, ils ne sont pas pris en compte...

Soit je m'y prends très mal, soit il y a qq chose que je ne vois pas !

Il faut utiliser le gestionnaire de Noms (Dans l'onglet Formules ou faire CTRL F3) pour changer l'étendue des plages nommées. Voir ici


Exemple d'ajout d'une personne dans la plage nommée :



Ami calmant, J.P

[Chonon2022]

Bonjour,
Un grand merci pour l'aide, les propositions et la patience !
Je peux clore la discussion avec la mention : RESOLU !!

Chonon