XL 2016 changer aléatoire en boucle

[franic]

Je reviens vers vous avec ma liste de mots
Je me demande si il ne serais pas plus judicieux de faire tourner en boucle ma liste de mot plutôt que un tirage aléatoire ,car après m 'être entrainé hier plus d'une heure j' ai constaté que des mots étaient sorti 6,7,8 fois et plus de fois et plein d'autres aucune fois , normalement après une heure il me semble que chaque mot aurais du sortir au moins une fois .
Je ne sais pas si cela est possible car chaque fois que j 'ouvrirais le programme il ne faut pas qu'il débute par le même mot ,ou alors il faut qu 'il retienne ou il en était d'une fois à l 'autre,
ou commencer par un tirage aléatoire suivis d'une boucle à chaque ouverture de séance.

Encore merci d'avance.

 

[franic]

dans Worksheet en dessous de

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("F9", "H9")) Is Nothing Then Exit Sub
If Target.Address = "$F$9" Then Application.Calculate
If Target.Address = "$H$9" Then
Range("H9").Font.Color = RGB(255, 0, 0)
Else
Range("H9").Font.Color = RGB(217, 217, 217)
End If
End Sub
Copier dans le presse-papier

 

[Dranreb]

Non, pas en dessous. Remplacez tout votre code par le mien.

 

[franic]

voila

 

[Dranreb]

Alors ?

 

[franic]

voila cela fonctionne si je comprend bien je n 'aurais pas 2 fois le même mots avant d' avoir fais 1/3 des mots et je dois enregistrer la feuille en quittant ou pas ?
Mercissssssssssssssssssssssssssss.

 

[Dranreb]

Même les 2/3 si je ne dis pas de bêtise.
Oui, bien sûr, sinon la liste des numéro de lignes restera dans l'ordre où elle était en ouvrant le classeur et il reprendra la même série de mots.

 

[franic]

Merci et bonne nuit .