Macro loto Excel bouton rajout

[26jojo44]

Bonjour,voilà j'ai une macro Excel pour le loto avec un onglet historique des tirage ,un onglet résultats et un onglet paramètre.dans l'onglet paramètre je renseigne le nombres de séries de 25 numéros que je veux que la macro me génère par exemple ,Je marque 10000 et dans l'onglet résultats,il y aura 20000 séries car les séries sont par deux séries de 25 numéros avec à chaque fois chaque numéro utiliser une seul fois. 50 numéro donc cette macro peux servir pour loto et eurommillion. Voilà mon problème je voudrer rajouter un bouton dans l'onglet paramètre pour coloriser toutes les cases en rouge dans l'onglet résultats de séries ou il y à un numéro ou plus de présent par apport au dernier tirage renseignez dans l'onglet historique des résultats exemple si le dernier tirage du loto est 12345 alors dans l'onglet résultats me trouver toutes les séries avec 12345 en colorisant toutes les cases en rouge et ensuite avec la possibilité de effacer les cases en rouge pour recommencer à zéro avec les mêmes séries mais avec un nouveau résultats de loto. Merci je peux envoyer le fichier. Je ne connais rien en développement de macro c'est une société qui me l'a fabriqué mais si vous pouvez me rajouter le bouton ça serait bien car si je le fais faire ça va me coûter cher. Merci

 

[Modeste geedee]

Bonsoir
Je vois que tu n'as pas aimé ma chute
Tes HP étaient HS ?

Meuh... si ...

j'ai rebondi avant d'ouvrir You-tube

 

[Staple1600]

Re

Très smart ton crayon de couleur
(en tout cas, plus joliment binaire que le mien)

 

[Staple1600]

Re

Une dernière pour le fun et pour Jimi
(avec l'emprunt du crayon de Modeste)
C'est dans la macro test qu'on indique les chiffres du tirage
(à tester sur une feuille vierge)

Sub Test()
'partie du code juste pour le test
Cells.Clear
[A1:C1] = Array(4, 5, 6): [A8:C8] = Array(48, 32, 7)
'fin partie code test
RedHouse Feuil1.Range("A1:C10"), 4, 5, 6, 7, 32, 48
'partie du code juste pour le test
MsgBox "Suite du test?"
Cells.Clear
[A1:C1] = Array(9, 1, 5): [A8:C8] = Array(16, 32, 27)
'fin partie code test
RedHouse Feuil1.Range("A1:C10"), 32, 27, 16, 9, 1, 5
End Sub
Private Sub RedHouse(plage As Range, ParamArray tirage() As Variant)
'The Jimi Hendrix Experience Red House
'https://youtu.be/5sbS2u9GXIA
Dim Jim_i, X, nombre(), c As Range
Jim_i = 0
ReDim Preserve nombre(UBound(tirage))
For X = LBound(tirage) To UBound(tirage)
nombre(Jim_i) = tirage(X)
Jim_i = Jim_i + 1
Next
For Each c In plage
c.Interior.Color = -255 * (nombre(1) = c Or nombre(2) = c Or nombre(3) = c Or nombre(4) = c Or nombre(5) = c Or nombre(0) = c)
Next
End Sub

 

[Modeste geedee]

'The Jimi Hendrix Experience Red House

Hey JMoe !
pas tout jeune tout ça
coincidence ??? issu d'une recherche récente
mes nuits sur radio caroline en 67/68

Spoiler: Jimmy

 

[Staple1600]

Bonsoir le fi, le forum

@Modeste geedee
Coïncidence?
Que nenni
Car comme nous le dit Monsieur ou Madame FeuDeuJeu

"N'oubliez jamais que le hasard ne se contrôle pas."

C'est le mantra que j'ai gravé sur mon fer à cheval auquel est accrochée la patte d'un lapin qui avait mangé un trèfle à quatre feuilles un vendredi treize un soir de pleine lune