stats euromillions :essai de boucles avec Step

[papapaul]

Bonsoir Forum,

J'ai un copain qui essaye de faire un truc balèze pour des stats euromillions.
Son truc marche très bien avec les 2 premières boules. (Fichier joint)
J'essaye d'être clair.
Il a imaginé de ne sélectionner que les 10 n° sortis
le plus souvent avec la première boule, ensuite les 10 n° sortis
Le plus souvent avec la seconde boule, etc… jusqu'à la 5ème.
Son but est de mettre seulement 3 couleurs dans le tableau (feuille MEMENTO)
(En jaune les 3 premiers, en vert les 3 suivants, en bleu les 4 autres)
Selon les 10 n° et selon si c'est la 1ère ou 2ème boules etc…
Il m'a montré ça et évidement je lui ai dit que au lieu de recopier
5 fois les mêmes codes
il y a moyen de simplifié les codes en
créant des boucles avec une méthode Step.

Son TOPTEN_N1 correspond à ("A5:A14")
Son TOPTEN_N2 correspond à ("C5:C14")
Faudrait donc créer une méthode Step qui ressemblerait à ça :
For c = .columns.count-1 to step +2
Faudrait aller jusqu'à ("I5:I14") (5 topten, 5 boules)

Un peu la même chose pour la mise en couleur :
Il a mis ça :
ActiveCell.Offset((Ligne - 7), 2).Range("A1").Select
ActiveCell.Offset((Ligne - 7), 5).Range("A1").Select
Le décalage sur la feuille Memento est de trois colonnes.
Faudrait faire 2 5 8 11 14

Sur le principe ça me paraît évident mais,
bien entendu je suis incapable de construire ça proprement.

Si des Pros passent par là, ce sera trop chouette.

Amitiés à tous.

Lien supprimé

 

[skoobi]

Re : stats euromillions :essai de boucles avec Step

Bonsoir,
remplace ton code par celui-ci:

Sub Macro1()

Dim TOPTEN_N1 As Variant
Dim TOPTEN_N2 As Variant
Dim Ligne As Variant
Dim n As Variant

Application.ScreenUpdating = False
j = 3
For i = 1 To 9 Step 2
    n = 1
    Sheets("Tirage").Activate
    For Each TOPTEN In Range(Cells(5, i), Cells(14, i))
        If TOPTEN.Value <> "" Then
            Sheets("MEMENTO").Activate
            Ligne = Sheets("MEMENTO").Range("B7:B60").Find(what:=TOPTEN, LookIn:=xlFormulas, LookAt:=xlWhole).Row
            If n <= 3 Then
                Cells(Ligne, i + j).Resize(, 2).Interior.ColorIndex = 6 'jaune
            ElseIf n > 6 Then
                Cells(Ligne, i + j).Resize(, 2).Interior.ColorIndex = 8 'bleu
            Else
                Cells(Ligne, i + j).Resize(, 2).Interior.ColorIndex = 4 'vert
            End If
            n = n + 1
        End If
    Next TOPTEN
    j = j + 1
Next i
Application.ScreenUpdating = True
End Sub

J'ai supprimé la plupart des lignes "...... .select" car ça ne sert à rien.

 

[papapaul]

Re : stats euromillions :essai de boucles avec Step

Bonjour Forum, Skoobi.

Skoobi tu est génial, c'est propre, simple....
Une fois de plus tu m'enlève une belle épine du pied.
C'est mon copain qui va être content.

Dix Milles Merci et vive XLD

Lien supprimé

Bonne journée à tous.