jeux aléatoires

[pataillee]

Bonjour à tous,

Voici mon projet :

Étant prof de maths, je chercher à créer un fichier excel qui me permet de faire des simulation de jeux aléatoires (lancer de dés, de pièces) et d'en extraire les résultats. (genre sur 10 lancer de pièces, 6 pile et 4 face)

J'ai pas mal avancé, j'ai créé des macros (avec des boutons) pour 10,100 ou 1000 lancers, mais je voudrais améliorer un peu le truc :
je cherche à pouvoir simuler un nombre de lancers quelconque.
J'ai bien réussi à mettre en place une inputbox, mais je n'arrive à utiliser correctement la valeur que je récupère.

Merci d'aider un jeune prof qui se prend la tête avec VBA ...

PS : c'est mes premiers pas en VBA ....

 

[pierrejean]

Re : jeux aléatoires

bonjour pataillee

Teste ceci

Sub tiragenb()
'pour ?? tirages
Dim nbtirage As String
nbtirage = InputBox("" & vbCrLf & vbCrLf & _
"Combien de lancés ?", "forum Access")
Range("A3:B50000").Select
    Selection.ClearContents
    Range("A2:B2").Select
    Selection.AutoFill Destination:=Range("A2:B" [COLOR=blue]& nbtirage + 1[/COLOR]), Type:=xlFillDefault
End Sub

Ps: tu n'etais pas très loin !!

 

[pataillee]

Re : jeux aléatoires

Super merci beaucoup !

Hallucinant, un réponse en moins de 15 minutes !!

Encore merci pierrejean

Je laisse le topic ouvert au où j'ai encore des questions pour peaufiner mon fichier.