Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 changer aléatoire en boucle

franic

XLDnaute Nouveau
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.
 

Pièces jointes

  • Test Scrabble 2.xlsm
    22 KB · Affichages: 9

franic

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
1
Affichages
549
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…