Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro jeux du keno fdj

26jojo44

XLDnaute Nouveau
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

XLDnaute Impliqué
Bonjour,

Il y a exactement 2415 couples (69 x 70/2), pour les lister :
VB:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…