XL 2016 Générer des codes aléatoires à une liste d'élèves

kiki29

XLDnaute Barbatruc

• 20 Juillet 2022

• #2

Salut, Apprendre à créer des générateurs aléatoires en VBA

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juillet 2022

• #3

Bonjour
Avec ma fonction perso ListeAl

*** Pièces jointes supprimées ***

 

Dernière édition: 20 Juillet 2022

Vote positif 0 Vote négatif

J

jm.andryszak

XLDnaute Occasionnel

• 20 Juillet 2022

• #4

Un exemple pour les multiples de 5 adaptable aux autres cas

Bonne journée

Option Explicit
Sub AleaMultipleDe5()
Dim DicoMultiple As Object
Dim DicoEleve As Object
Dim i
'Précaution le nombre d'élèves (699) est < au nombre de multiples de 5 de 5 à 9995 (1999)

'Multiple de 5 de 5 à 9995
Set DicoMultiple = CreateObject("Scripting.Dictionary")
Randomize
'j = 1
While DicoMultiple.Count < 9995 / 5
i = ((Int(Rnd() * 9995 / 5)) * 5) + 5
If Not DicoMultiple.exists(i) Then
DicoMultiple.Add Key:=i, _
Item:=i
End If
Wend

'Index pour chaque élève (669 élèves)
Set DicoEleve = CreateObject("Scripting.Dictionary")
Randomize
While DicoEleve.Count < 669
i = (Int(Rnd() * 669))
If Not DicoEleve.exists(i) Then
DicoEleve.Add Key:=i, _
Item:=i
End If
Wend

'Code pour chaque élève (669 élèves)
For i = 2 To 669 +1 'On commence à la ligne 2
Range("e" & i) = DicoMultiple.keys()(DicoEleve.keys()(i - 2))
Next
End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juillet 2022

• #5

Tiens, j'ai découvert un bogue dans ma fonction ListeAl
Je joins à nouveau mes fichiers, qui utilisent toujours le mélange de Fisher - Yates

 

Pièces jointes

• ListeAléat.xlsm

  373.8 KB · Affichages: 11
• ListeAlStuka.xlsm

  129.9 KB · Affichages: 8

Dernière édition: 20 Juillet 2022

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 20 Juillet 2022

• #6

Bonjour,

VB:

Sub test()
Dim Multi5 As New Collection, I As Integer, Rn As Integer
For I = 5 To 9995 Step 5
    Multi5.Add I
Next
Randomize Format(Timer, "0")
With Sheets("Code aléatoire multiple de 5").Range("A1").CurrentRegion
    For I = 2 To .Rows.Count
        Rn = Int(Multi5.Count * Rnd + 1)
        .Cells(I, "E") = "'" & Format(Multi5(Rn), "0000")
        Multi5.Remove Rn
    Next
End With

End Sub

 

Vote positif 0 Vote négatif

J

jm.andryszak

XLDnaute Occasionnel

• 20 Juillet 2022

• #7

bonjour dysorthographie
Simple et efficace, j'oublie ma proposition.
Bonne journée

 

Vote positif 0 Vote négatif

S

stuka

XLDnaute Nouveau

• 20 Juillet 2022

• #8

Bonjour tout le monde;

Tout d'abord, je tiens à vous remercier vivement pour votre précieuse aide et vos travaux.

Comme je vous l'ai dit, mon utilisation d'Excel ne dépasse pas le stade de créer des tableaux avec des calculs très simples (addition, multiplication, division, calcul d'une moyenne, ...).

Pour mieux insérer les codes VBA proposés, j'ai suivi des vidéos sur Youtube et j'ai activé l'onglet "Développeur" sur Excel, puis j'ai cliqué sur Visual Basic ensuite, menu contextuel sur Feuil 1 puis insertion module et j'ai fait copier-coller le programme proposé par jm.andryszak, et une autre fois celui proposé par dysorthographie mais j'ai eu des erreurs. Même Excel m'envoyais un message qu'il ne peut pas se fermer. Malheureusement, je suis très novice dans le VBA et les macros d'Excel.

Aussi, je voudrais préciser une chose, ce que je veux c'est avoir la possibilité de changer le code à chaque fois parce que je dois travailler avec plusieurs classes et d'après les travaux que vous m'avez envoyés, j'ai constaté que le code attribué à l'élève ne change pas. Donc, si plusieurs élèves de classes différentes ont le même rang (les même cases) sur le tableau Excel, ils vont certainement avoir le même code et c'est ce que je veux éviter. Je veux donc, à chaque fois des codes différents pour des listes différentes.

Je vous renouvelle tous mes vifs remerciements pour vos efforts et vous prie de m'excuser.

Excellente journée à vous tous.

​

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 20 Juillet 2022

• #9

Bonjour Stuka,
ça vas sans dire mais ça va toujours mieux en le disant tu travail pas sur MAC?

beaucoup de personne travail sur Windows et moi qui n'es vue des MAC que de très loin ne sais pas si mon code fonctionne sur MAC!

dans la fenêtre des projet du fait un click droit sur modules=>insertion =>Module
et tu copy col le code dans l'editeur de texte qui s'auvre.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juillet 2022

• #10

Ne manquez pas de me dire ce que vous souhaiteriez comme boutons de commande sur les feuilles de mon ListeAlStuka.xlsm. Actuellement le code est dans les modules des objets Worksheet représentant les feuilles. En particulier la dernière est assez complète, mais le code ne reconstruit pas la formule si le nombre d'élèves change.

 

Vote positif 0 Vote négatif

S

stuka

XLDnaute Nouveau

• 20 Juillet 2022

• #11

Re-bonjour;

Merci pour toutes vos explications. Aujourd'hui, j'ai fait un grand pas. J'ai pu insérer et exécuter une macro sur Excel! et ce, avec votre soutien et vos explications. Un très grand merci de ma part pour vous tous!

Je m'excuse une nouvelle fois dysorthographie. J'ai pu réaliser mon travail à l'aide de votre programme mais pour l'adapter à toutes les situations, j'ai fait ceci:
1. pour que la macro soit appliquée à une feuille du classeur j'ai changé le nom que j'ai mis en rouge suivant la feuille où doit être appliqué le code, et j'ai bien réussi:
With Sheets("Code aléatoire multiple de 5").Range("A1").CurrentRegion

2. Pour limiter les bornes "min" et "max" des nombres à générer, je n'ai pas su le faire.
3. Même chose pour générer des multiples d'un autre nombre que 5. Par exemple: mettre n'importe quel nombre aléatoire, un multiple de 3, de 7 ou de 10. Il m'est impossible de le faire. Lorsque j'ai fait des changements et après exécution, j'ai obtenu le code d'erreur 424 avec la possibilité de débogage fin.

Je vous prie donc de bien vouloir m'indiquer ce que je dois changer pour adapter ce programme à d'autres situations telles que la situation 2 ou 3 suscitées.

Je vous réitère toutes mes excuses et vous présente tous mes vifs remerciements pour votre aide.

Sincères salutations!

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 20 Juillet 2022

• #12

en factorisant on peut aménager pour les 3 cas de figure!

Code:

Sub test()
Aleatoir Sheets("Code aléatoire multiple de 5"), 5
Aleatoir Sheets("Code aléatoire multiple de 10"), 10
Aleatoir Sheets("Code aléatoire multiple de 10b"), 10, 1300
End Sub
Sub Aleatoir(Sht As Worksheet, Pas As Integer, Optional Strat As Integer = 0)
Dim Multi As New Collection, I As Integer, Rn As Integer
With Sht.Range("A1").CurrentRegion
For I = 1 To .Rows.Count - 1
    Multi.Add Strat - IIf(Strat = 0, 0, Pas) + (I * Pas)
Next
Randomize Format(Timer, "0")
    For I = 2 To .Rows.Count
        Rn = Int(Multi.Count * Rnd + 1)
        .Cells(I, "E") = "'" & Format(Multi(Rn), "0000")
        Multi.Remove Rn
    Next
End With

End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juillet 2022

• #13

Je n'ai laissé qu'une feuille et mis des noms aux cellules.
Pour refaire un tirage, sélectionnez la cellule Graine.
À part ça vous pouvez changer comme vous voulez le Mini, le Maxi et le Pas.
J'ai aussi ajouté un CommandButton pour supprimer ou rétablir la formule, afin de ne pas être gêné pour ajouter ou supprimer des élèves.
Vous pouvez aussi prendre des copies de la feuille pour d'autres élèves avec des conditions différentes.
Dites moi ce que vous en pensez.

Préfèreriez vous qu'il n'y ait qu'un bouton Tirage qui mette des valeurs au lieu d'une formule matricielle ?

 

Pièces jointes

• ListeAlStuka.xlsm

  58.9 KB · Affichages: 17

Dernière édition: 21 Juillet 2022

Vote positif 0 Vote négatif

S

stuka

XLDnaute Nouveau

• 21 Juillet 2022

• #14

Je ne sais pas comment vous remercier pour votre aide. Merci Merci Merci du fond du cœur pour votre aide!
Juste une petite remarque pour Dranreb, lorsque je génère des nombres avec un pas de 3, 6, 7, 8 ou 9, je n'obtiens pas des multiples de ces chiffres mais ce n'est que le pas qui est calculé ainsi. Ce n'est pas trop grave, l'essentiel c'est que j'ai obtenu des codes différents pour chaque élève.

Merci infiniment pour vous tous et bonne continuation!

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Juillet 2022

• #15

Effectivement, actuellement le Mini spécifié doit être lui même un multiple du même pas pour que les nombres calculés le soient tous.

 

Vote positif 0 Vote négatif