Discussion :

[Pierre Fauconnier]

Pour être certain qu'après x tirages, tu as eu au moins une fois tous les mots, tu dois mémoriser les mots à chaque tirage, et probablement privilégier les "non sortis" au tirage suivant, soit en ne tirant que parmi les "non sortis", soit en pondérant les mots non sortis pour qu'ils aient plus de chance de sortir.

Il faut donc mémoriser dans un tableau les mots qui sortent aux différents tirages, puis en fonction de ton choix stratégique, exclure les mots déjà sortis du prochain tirage ou donner plus de poids à ceux non encore sortis (par exemple en les dupliquant dans le tableau, mais il faut alors que ce soit les mots qui soient ajoutés comme clés au dico, et pas les positions dans le tableau).

Dans la mesure où je ne sais pas quel code tu utilises actuellement, difficile de t'aider davantage. La découpe de ton code en petites procédures/fonctions aiderait grandement dans ce cas.

[crocket95]

je travaille avec ce code-ci

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
Sub Prepare()
  Dim Counter As Long
  Dim Index As Long
  Dim Dico
 
 
 
  Set Dico = CreateObject("Scripting.Dictionary")
  For Counter = 1 To Range("t_Test").Rows.Count
    Index = Application.RandBetween(1, Range("t_Test").Rows.Count)
    Do While Dico.Exists(Index)
      Index = Application.RandBetween(1, Range("t_Test").Rows.Count)
    Loop
    Dico.Add Index, Index
    Range("t_test[anglais]")(Counter).Value = Range("t_nombres[anglais]")(Index)
  Next
  Range("t_test[anglais]").Value = Range("t_test[anglais]").Value
  Range("t_test[Réponse]").Value = ""
End Sub

[crocket95]

OUPS, voilà le code modifier.

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
Sub Prepare()
  Dim Counter As Long
  Dim Index As Long
  Dim Dico
  var = Range("I1").Value
 
  Set Dico = CreateObject("Scripting.Dictionary")
  For Counter = 1 To Range("t_Test").Rows.Count
    Index = Application.RandBetween(1, Range("t_Test").Rows.Count)
    Do While Dico.Exists(Index)
      Index = Application.RandBetween(1, Range("t_Test").Rows.Count)
    Loop
    Dico.Add Index, Index
    Range("t_test[anglais]")(Counter).Value = Range("t_habits[Anglais]")(Index)
  Next
  Range("t_test[anglais]").Value = Range("t_" & var & "[anglais]").Value
  Range("t_test[Réponse]").Value = ""
End Sub

[Pierre Fauconnier]

Ok.

Comme déjà dit par Chris (Hello ), la ligne Range("t_test[anglais]").Value = Range("t_" & var & "[anglais]").Value est obsolète. Elle était utile lorsque les mots étaient choisis par formule, mais comme maintenant ils sont choisis via un dico, il n'est plus nécessaire de réaliser le "copier-coller valeurs" que cette ligne effectuait.

Qu'as-tu choisi comme stratégie? De ne chercher que parmi les mots non sortis, ou de leur donner plus de poids pour qu'ils aient plus de chance de sortir au tour suivant?

[crocket95]

la stratégie, les mots qui sont marqué comme "vrai"doivent être mis de coté et de ne remettre en lice les mots qui n'ont pas été encore tiré avec les mots marqué "faux".

[crocket95]

Super, les enfants travaillent de façon autonome sur le formulaire et c'était l'idée de ce projet. Ce formulaire m'ouvre pleins de possibilité.
Un grand merci vraiment à toutes les personnes qui sont intervenues et qui m'ont apporté les solutions.,
Je posterai un exemplaire du projet pour les personnes qui souhaitent l'utilisé. Un retour sur son utilisation, commentaire et remarque me ferait plaisir.
à bientôt

[crocket95]

Voici le fichier sur lequel les enfants travaillent.