macro pour loto

[David]

Slt tlm
je commence les macro e je voudrais savoir s'il y a une macro qui genere des nombre aleatoire et les impriment pour faire des cartons de loto
d'avance merci a tous pour le travail effectuer via le forum
@+ et à bientôt
Dav

 

[C@thy]

J'ai un petit truc qu'on m'a donné mais je ne sais pas de qui ça vient (merci à son auteur) mais on gagne pas plus souvent que le vrai lotoflash!!!

 

[C@thy]

pardon, c'est pas exactement ce que tu as demandé, les cartons j'ai pas, mais pour générer des nombres aléatoires tu sélectionnes une plage puis tu utilises la fonction ALEA ex: nombres de 1 à 100 :

=ENT(ALEA()*100) ensuite tu valides par ctrl + maj + entree
et en faisant f9 ou en validant une autre cellule, ça change tout seul.

 

[Sylvain]

bonjour

le loto est un impôt sur les rêves.

A+

 

[albert]

bonjour david, cathy, sylvain, bonjour forum,
code à mettre dans un module (mais je ne sais pas à quoi ça sert)

Option Explicit
Option Base 1
Public jj As Long
Public Const iteration = 5

'***********************************************************************
'* Resampling Process *
'***********************************************************************

Sub Resample( )
Dim i As Long
Dim hold(54) As Single, Hold2(54) As Single
Randomize

For i = 1 To 54
Hold2(i) = i
Next i
For jj = 1 To iteration
For i = 1 To 54
hold(i) = Rnd
Next i
Call DoubleSort(54, hold, Hold2)
For i = 1 To 6
Cells(jj + 3, i) = Hold2(i)
Next i
Next jj

End Sub

'***********************************************************************
'* Sorting Process - Sort array y based on array x *
'***********************************************************************

Sub DoubleSort(n As Long, x( ) As Single, y( ) As Single)
Dim xTemp As Double
Dim yTemp As Double
Dim i As Long
Dim j As Long

For j = 2 To n
xTemp = x(j)
yTemp = y(j)
For i = j - 1 To 1 Step -1
If (x(i) <= xTemp) Then GoTo 10
x(i + 1) = x(i)
y(i + 1) = y(i)
Next i
i = 0
10 x(i + 1) = xTemp
y(i + 1) = yTemp
Next j

End Sub

 

[Sylvain]

bonsoir,

j'avais pas suivi, voici une esquisse d'idée :
les nombres ne sont pas répétés (je sais pas si c'est comme ça).
l'exemple contient un onglet nombres avec les nombres de 1 à 100 associés à un nombre aléatoire.
sur l'autre feuille des grilles qui se remplissent en prenant la première les 8 premiers nombres, la deuxième les 8 suivants...
sur l'onglet nombres on trie les données en fonction de la colonne contenant les valeurs aléatoires et les cartons sont remplis.

A+

 

[Ti]

ben ça c'est marrant, je viens de mettre une réponse qui répond (entre autres) exactement à la question des nombres aléatoires, ici :
<http://www.excel-downloads.com/html/French/forum/messages/1_54512_54301.htm>

Comme quoi...