Autres une macro VBA

[Abou Dinblan]

Bonjour c'est abou, je ne viens pas pour des maths, la physique ou des calculs de visée optique mais pour une macro VBA excel 2007 pour un ami qui teste des aleatoires au Kéno français. Il voudrait faire des tests aléatoire et comptage jusqu'à ce que la macro stoppe avec le meilleur score en montant dans la colle AC qui compte. Si vous voulez bien l'aider? (et supprimer les formules par un code) il y a 30 lignesà développer, il a vu ça sur le Python et ça lui a donné l'idée de le faire avec excel VBA
merci c'était abou
reposez vous bien

 

[Lolote83]

Bonjour,
Pas tout compris dans la demande mais pour les tirages aléatoires, ce code devrait le faire.
Concernant les doublons ??? Par colonne ? Par ligne ?
Et pour le reste ???

Sub TirageAleaoire()
    Application.ScreenUpdating = False
    For L = 2 To 31
        For C = 1 To 8
            Randomize
            xAlea = Int(70 * Rnd) + 1    'Nombre aléatoire entier entre 1 et 70
            Cells(L, C + 20) = xAlea
        Next C
    Next L
    Application.ScreenUpdating = True
End Sub

@+ Lolote83

 

[Abou Dinblan]

bonjour lolote83 et merci pour ce bien, de l'alea automatisé, il faut aucun doublon sur chaque ligne des huit nombres car cest une loterie et ensuite il faut faire rejouer cette macro VBA tant que le score de la colonne AC qui compte les nombres identiques de l'alea et du tirage comme mes formules n'est pas le meilleur croissant qu'on pourrait mettre a part par exemple en AD1 pour le meilleur score et elle rejouerai tant que AD1 n'est pas le meilleur et un merci pour la soirée et portez vous bien dans la joie d'abou
abou a mis l'exemple en feuille2 et en feuille 3 pour la compréhension de tous en ce moment de fête