Re : Etude du loto (Celle de l'Euromillion?)
Salut wmichelange,
je n'ai pas suivi le cours complet de la conversion mais j'ai vite compris que ta demande ne trouvais pas de réponse claire, simple et concise.
Si j'ai pigé, tu veux savoir , par macro, comment supprimer les lignes comportant des nombres successifs (type 1, 2, 3, 4, 5 ou 34, 35, 36, 37, 38).
Là solution est proche de ce code :
Sub Macro1()
i = 1
While Not IsEmpty(Feuil2.Cells(i, "A"))
If Feuil2.Cells(i, "E") = Feuil2.Cells(i, "D") + 1 And Feuil2.Cells(i, "D") = Feuil2.Cells(i, "C") + 1 And Feuil2.Cells(i, "C") = Feuil2.Cells(i, "B") + 1 And Feuil2.Cells(i, "B") = Feuil2.Cells(i, "A") + 1 Then
Rows(i).Delete
End If
i = i + 1
Wend
End Sub
Le seul problème que j'ai vu c'est qu'il s'arrête à la première ligne supprimée mais je suis sûr que la solution n'est pas loin, je n'ai pas cherché longtemps (10mn, d'où les "Feuil2" à remplacer par l'onglet qui te concernes ou par un "activeSheet".
J'espère que ça aura aidé ton ami "qui ne souhaite pas gagner au loto mais chercher une explication au tirages"
Les autres, arrêtez le blabla de sophistes, donnez des solutions plutôt que des questions, même si elle ne sont pas LA solution elle feront avancer le shmilblik...