tirage aléatoire

[pika83]

bonjour,

j'aimerais creer un dé electronique a 8 faces sous forme de fichier excel, j'arrive bien a entrer la formule =ENT(ALEA()*9) en A1, mais le resultat trouver change si j'incremete ou je recopie la formule en A2, comment garder le resutat trouver a chaque tirage?
d'avance merci

 

[JNP]

Re : tirage aléatoire

Bonjour 🙂,
Je te propose le code suivant :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim I As Integer
For I = 2 To 100
    If Cells(1, I) = "" Then
        Cells(1, I) = Cells(1, 1).Value
        Cells(1, 1).Select
        Exit Sub
    End If
Next I
End Sub

à coller sur la déclaration de ta feuille, elle te permetra de stocker tes 99 premiers tirages qui s'effectueront à chaque double clic au fur et à mesure sur la première ligne.
Ci-joint un fichier d'exemple (pour info, j'ai changé ta formule en =ENT(ALEA()*8)+1 car sinon, tu avais un cube à 9 faces de 0 à 8)
A te lire,
JNP 😎

 

[pika83]

Re : tirage aléatoire

je te remercie pour ta modification JNP, mais quant tu recopie ta formule dans une autre cellule quelquonque, la cellule de depart se modifie aussi et c'est ce que je voudrais eviter. Il faut que le tirage trouve aleatoirement soit conserver,meme quant ont fait d' autres tirages et ainsi de suite.

 

[Pierrot93]

Re : tirage aléatoire

Bonjour Pika, Jnp

regarde peut être le fichier joint, si j'ai bien compris.

bonne journée
@+

 

[Banzai64]

Re : tirage aléatoire

Bonjour
Un essai de ma part

 

[Victor21]

Re : tirage aléatoire

Bonjour à tous.

bonjour,

j'aimerais creer un dé electronique a 8 faces ...

Un dé, celà n'a pas que 6 faces ?
🙄

Corialement,

Patrick.

 

[pika83]

Re : tirage aléatoire

ok merci a vous tous pour votre aide et ainsi avoir une solution a mon probleme

 

[Banzai64]

Re : tirage aléatoire

Un dé, celà n'a pas que 6 faces ?

Pas obligatoirement

Un Cube oui 🙂

 

[jeanpierre]

Re : tirage aléatoire

Bonsoir le fil,

Un type qui veut faire du point.... (lu ailleurs.... "Y'a des types qui veullent faire du point".....et pas très apprécié d'ailleurs...Merci aux représentants de l'EN)

Un octaèdre, par exemple.

Edit : suite à la remarque de JNP, corrigé faute de frappe qui m'a totalement échappée.

 

[Cousinhub]

Re : tirage aléatoire

Bonsoir le fil,

JP :🙄

For Each interprétation In Message
Select Case EN
    Case "Ecole Normale"
        [A1].Value = "T'as p'têt bon"
    Case "Ecole Navale"
        [A1].Value = "Pourquoi Pas?"
    Case "Eh Non"
        [A1].Value = "Réfléchis un Peu"
    Case Else
        [A1].Value = "Tu peux décoder ton message?"
End Select
Next interprétation

pour ma part, je suis en Case Else 😀

Bonne soirée 😎

 

[jeanpierre]

Re : tirage aléatoire

Re tous,

Pour bhbh, voir la MP.... pour décoder, oui j'ai bien dit décoder.... j'ai eu peur un instant...

Bon week-end

Jean-Pierre

 

[michel92]

Re : tirage aléatoire

Si tu coches l'option calcul sur ordre !

 

[JNP]

Re : tirage aléatoire

Un octaède, par exemple.

Bonjour le fil,
Sans être énarque, un "octaèdre" me ferait moins mal aux yeux 😀
Sans rancune JP 😉 et bonne journée 😎
La culture, c'est comme la confiture, moins on en a, plus on l'étale... (Je dis ça pour moi!!!)