Champs réduits Quinte

Hoareau

XLDnaute Occasionnel
Bonnjour

Quelqu'un sait faire des champs réduits en VBA et calculer les écarts des numéros.

merci
 

Hoareau

XLDnaute Occasionnel
Re : Champs réduits Quinte

Le principe

Vous avez un ou plusieurs favoris dans la course (vos chevaux de base) et vous souhaitez associer à votre sélection :
d'autres partants de la course : vous jouez alors un Quarté+ Champ réduit,
tous les partants de la course : vous jouez alors un Quarté+ Champ total.

Exemple
Lorsque vous jouez un Quarté+ avec 2 chevaux favoris aux 2 premières places (3-6) auxquels vous associez 3 autres chevaux pour les 3ème et 4ème places de l'arrivée (4-1-5), vous jouez un Quarté+ Champ réduit avec 2 chevaux de base et 3 chevaux associés.
Cela revient à jouer tous les Quarté+ de 4 chevaux formés par vos 2 chevaux de base aux 2 premières places associés aux 3 autres chevaux pris 2 à 2 dans les 2 ordres possibles.
Vous jouez en réalité les 6 Quarté+ unitaires suivants :
3-6-4-1
3-6-1-4
3-6-4-5
3-6-5-4
3-6-1-5
3-6-5-1

Champs réduits >> 3 6/4 1 5

Le prix de ce Quarté+ Champ réduit avec 2 chevaux de base est donc de 7,8 € (6X1,3 €).
Si l'arrivée de la course est 3-6-4-1, vous avez trouvé les 4 premiers chevaux de l'arrivée dans l'ordre et dans le désordre. Vous gagnez une fois le rapport ordre, une fois le rapport désordre et le rapport Bonus !
Les plus de la formule Champ
au Quarté+

Vous jouez en une seule fois plusieurs paris unitaires comportant chacun votre ou vos chevaux favoris.

>>>
En esperant avoir réusssi a me faire comprendre ci dessous explications :



F G H I J K L M N O P O Q R S T .....

1 2 3 4
1 2 3 5
1 2 3 6 > LE RESULTAT 1 2 3 / 4 5 6
1 2 7 8 > 1 2 7 8
3 4 6 12 >
3 4 5 15 > 3 4 / 6 12 5 15


Explication :
les combinaisons ce sont les arrivées passées, elles sont d'abord triées croissant.


Le but c'est d'avoir moins de ticket mais avec les mêmes combinaisons.

En gros il s'agit de comparer les chiffres de la ligne en desous,
s'ils sont pareil les mettres en bases,y associé le reste des chiffres.



Il peut y avoir 1, 2 ou 3 bases selon les cas pour des combinaisonns de 4.

pour des combinaisons de 4 au maximum 3 bases au mini 1

>>>LES COMBINAISONS A TRAITER SONT EN COLONNES >>> F G H I

>>>lA COLONNE J AURRA DEDANS ECRIT "LE RESULTAT"
SI IL Y DES BASES DANS LES COLONNES K JUSQU'à N SINON RIEN D'ECRIT

>>>LES BASES A PARTIR DE LA COLONNE K JUSQU'à N
en face dela derniere combinaisons ayant les même chiffreS en commun

>>>LA COLONNE O AURRA LE SIGNE / POUR SEPARER LES BASES DU RESTE DES CHIFFRES

>>>LES CHIFFRES ASSOCIES A PARTIR DE LA COLONNE P

Dans cet exemple il y a 6 combinaisons

1 ER CAS >>> Les 3 premières ont 1, 2, et 3 en commun donc ils seront en bases
avec associes le reste des chiffres des 3 premières combinaisons de 4
c'est a dire dans ce cas le 4,5 et le 6 (S'il y avait X lignes avec 1 2 et 3
il faudrait mettre le reste des chiffres associés à partir de la colonne P)

2 ème cas >> la quatrième ligne elle va rester pareille,elle a 1 et 2 en commun avec
les 3 premières mais en 1 2 et 3 sont dejà en base vaux mieux 3 bases que 2
(Elle va être recopiée en KLMN)

3 ème cas >>> la 5 ème et la sixième combinaison ont le 3 et le 4 en commun
donc 2 bases le 3 et 4 avec associés le 6,12,5,15



>>>>

.


Sub Macro1()

Dim lig
Dim col

For col = 6 To 9
For lig = 5 To 210

If Cells(lig, col) = Cells(lig + 1, col) Then
Cells(lig, col + 6) = Cells(lig, col)

Else
For I = 1 To 1
Cells(lig, col + 10) = Cells(lig, col)
Next

End If

Next
Next

End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 453
Messages
2 088 553
Membres
103 881
dernier inscrit
malbousquet