Curieux et intéressant, comme défi !

Le gros problème, avec la génération de nombres aléatoires, c'est que le résultat change chaque fois qu'Excel relance un calcul, n'importe où dans la feuille ! C'est à dire quasiment à chaque appui sur une touche du clavier ...

Alors, avant que je ne me plonge dans l'étude approfondie de ton exercice, commence par me dire si tu es d'accord avec le principe de jeu suivant :
* une cellule particulière est dédiée au lancement du dé ;
* c'est toi (ou le joueur) qui saisis le nombre dans la case appropriée (dès la saisie validée, l'affichage du dé aura déjà changé !) ;
* il y a donc un risque certain de tricherie, puisqu'il n'est pas possible à Excel de mémoriser le résultat et de vérifier l'exactitude de la saisie manuelle !

Si tu peux tolérer ces restrictions, je continuerai à réfléchir à ton jeu. C'est bien, la retraite ! Surtout aux Antilles ... :-)
Raymond

Bonjour

Idée à suivre :

- 1 case à cocher : Cochée = calcul / Décochée = Arrêt calcul
- 1 cellule avec une formule **ALEA()** liée la case à cocher et à l'autre cellule
- 1 cellule mémoire avec le résultat de l'autre cellule quand la case n'est pas cochée

Activez les fonctions d'itérations !

Pourquoi ne pas utiliser une fonction / une macro afin de pouvoir mémoriser ?

Générer un nombre aléatoire
XlWiki:GenererNombreAleatoire
http://xlwiki.free.fr/wiki/wakka.php?wiki=GenererNombreAleat­oire

La formule ALEA()
Syntaxe : =ALEA()
La formule ALEA.ENTRE.BORNES()
Syntaxe : =ALEA.ENTRE.BORNES(Minimum;Maximum)
Syntaxe : =Minimum+ENT((Maximum-Minimum+1)*ALEA())
Générer un nombre entre a et b (inclus) par pas de k
Syntaxe : =ENT(((b-a)/k+1)*ALEA())*k+a
Syntaxe : =ENT(((10-1)/0,5+1)*ALEA())*0,5+1
Simulation d'une loi normale
* Avec LOI.NORMALE.INVERSE()
Syntaxe : =LOI.NORMALE.INVERSE(ALEA();m;sigma)
* Méthode de Box-Müller
Syntaxe : =m+sigma*RACINE(-2*LN(1-ALEA()))*COS(2*PI()*ALEA())

Merci

Bonjour,
Une approche de ton exposé !

Sub Tir20()
    Sheets("Feuil1").Select
    For i = 4 To 24
        Cells(i, 2) = TirageD100()
    Next i
End Sub


Public Function TirageD100() As Integer
Dim Buff As Integer
Dim Tampon As Integer
Reco:
    Select Case Buff
    Case 0
        Buff = Tire()
        Tampon = Buff
        GoTo Reco
    Case Is > 95
        Buff = Tire()
        Tampon = Tampon + Buff
        GoTo Reco
    Case Is < 6
        Buff = Tire()
        Tampon = Tampon - Buff
        GoTo Reco
    End Select
    TirageD100 = Tampon
End Function
Private Function Tire() As Integer
    Tire = Int((100 * Rnd) + 1)
End Function

Bonjour

Si ça peut aider :
la fonction ALEA - Excel Downloads Forums :
http://www.excel-downloads.com/forum/43732-la-fonction-alea.­html
(J'avais perdu le lien il y a 30 minutes environ / 30 minutes que je cherche = donc je le propose;))

Je cite :
Public Function DES(ByRef NB As Range) As Integer
Application.Volatile (False)
Randomize: DES = Int((10 * Rnd) + 1)
End Function

Je cite :
Feuil1!A1 : cellule de référence

En A2 de n'importe quelle feuille : =SI(Feuil1!$A$1=1;ALEA();A2)
formule pouvant être copiée dans n'importe quelle cellule de n'importe quelle feuille (sauf en Feuil1!A1 évidemment !)

Si la cellule Feuil1!A1 contient le chiffre 1, la fonction ALEA() fonctionne.
Dans les autres cas, même si Feuil!1$A$1 est vide, la valeur ne se modifie pas.

****
/!\ Pour éviter le message (d'erreur) de référence circulaire activez les fonctions d'itérations !

Merci

Re à tous,
Si faut pas de doublon remplacer Tir20() par

Sub Tir20_SD()
Dim TB(1 To 20) As Integer
Dim i As Integer, e As Integer, g As Integer
    Sheets("Feuil1").Select
    Randomize Timer
    For i = 1 To 20
reco:
        g = TirageD100()
        For e = 1 To i - 1
            If TB(e) = g Then GoTo reco
        Next e
        TB(i) = g
        Cells(i + 3, 2) = g
    Next i
End Sub

"Pseudo" ?

Alors on m'a posté une réponse sur un autre formum qui me convient bien,
J'aurais aimé vs la communiquer par PJ... mais je n'y arrive pas !

MEric encore pour tout !

Bonjour

http://www.cijoint.fr/cjlink.php?file=cj200808/cijQOD3uHZ.zi­p (Source)

La **solution** :
http://www.developpez.net/forums/showthread.php?t=597162

Tu te connectes, t'enregistres ton fichier sur ton pc si tu l'as plus et tu mets le fichier ici.
Et n'oublies pas le lien ! Coches la case 'Rendre public le fichier' ici.

Merci
L'acte est vierge, même répété. Char (René)