macro jeux du keno fdj

[26jojo44]

Bonsoir je recherche une macro pour le keno,voilà je vous explique .je voudrait que la macro me face tous les couples de deux numéros et il y en à environ 2500 je crois et ensuite sur l'historique de tous les tirages passer que j'alimente tous les jours avec les nouveaux tirages,je voudrait calculer l'écart maximum entre les deux numéros de chaque couple: exemple couple le 6 et le 14 donc à chaque fois que le 6 et le 14 sorte alors calculer l'ecart entre les fois ou il sont sortie l'ecart maximum .si le 6 et le 14 sont sortie le 1 juillet et que après il sorte le 15 juillet à raison de deux tirages par jour alors ca fait 30 tirages pour cette fois si mais dans tous l'historique de tous les tirages peux etre que l'ecart maximum sera de 40. en vous remerciant

 

[Patrice33740]

Bonjour,

Il y a exactement 2415 couples (69 x 70/2), pour les lister :

Option Explicit
Sub CouplesSur70()
Dim A%, B%, L&
  For A = 1 To 69
  For B = A + 1 To 70
  L = L + 1
  Cells(L, 1).Value = A
  Cells(L, 2).Value = B
  Next B
  Next A
End Sub