Macro loto Excel bouton rajout

26jojo44

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

Staple1600

XLDnaute Barbatruc
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)
VB:
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
 

Discussions similaires

Réponses
12
Affichages
468

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson