Courses hippiques et classement horaire

[Igor Strevitch]

Bonjour à toutes et tous.

Voila mon soucis ... jouant aux PMU, je veux pouvoir suivre les courses dans le classement horaire. Ce qui pourra me faire passer d'un hippodrome à un autre en fonction de l'heure de départ de la course.

Ex : image jointe.

Le résultat devrait me faire apparaître : R1c1, R1c2, R1c3, R1c4, R2c1, R1c5, R2c2, ...etc.

Je soumets cela à votre connaissance et dans l'espoir d'une solution ...

Cordialement.

 

[JBARBE]

Re : Courses hippiques et classement horaire

Bonjour, igor et tous,

Etant turfiste également (hélas!!), je ne comprend pas ta demande compte tenu qu'avec l'image jointe, un tableau semble bien constitué afin de suivre les différentes réunions et courses !

Peut-être en précisant ta demande et en y joignant un fichier, cela ira mieux !

bonne journée !

 

[djidji59430]

Re : Courses hippiques et classement horaire

Bonjour,


Je joue aussi, du pipeau .....

Un essai

 

[Guido]

Re : Courses hippiques et classement horaire

Re

Bienvenu dans ce monde..

Guido

 

[Igor Strevitch]

Re : Courses hippiques et classement horaire

1 000 mercis, djidji59430 !
C'est exactement ce que je cherchais ... Ne me reste plus qu'a étudier le "comment c'est fait".
Car je déteste ne pas comprendre.

 

[djidji59430]

Re : Courses hippiques et classement horaire

La première chose, c'est de mettre une "heure" dans tes cellules, actuellement c'est du texte et pour ce faire, en a10, par exemple,
={(A2:J5)*1}, en matriciel,tu formates en heures, et tu reconstruis directement ton tableau.
Dans la premiere colonne, tu ordonnes des heures par petite.valeur()
Dans la 2 ème, on recherche l’équivalence dans les 4 lignes de réunion d'une heure (comme elle est unique, et qu'il y a 4 lignes, il y a trois erreurs = 0, donc la somme des 4=>équivalence pour l'index de la ligne course.
pour la 3 eme colonne, on a préalablement donné un nom a chaque colonne de course (course_1, course_2, etc...) et l'equivalent de l'heure dans une liste, est le N° de la réunion (si c’était des noms, il faudrait passer par =index(reunion; equiv........)

 

[JBARBE]

Re : Courses hippiques et classement horaire

Bon sang, parole de turfiste depuis 1968, jamais je n'aurais cru que l'on puisse jouer dans toutes les réunions et toutes les courses et cela le même jour !!!!!!!

Bonne chance igor !

 

[JBARBE]

Re : Courses hippiques et classement horaire

Bonsoir à tous,

La même chose avec macro !

Option Explicit

Sub trie()
Dim r As Range
Dim i As Long
Dim NoLigne As Long
Dim NoColonne As Long
Dim f As WorksheetFunction
Application.ScreenUpdating = False
Range("L10:N65536").ClearContents ' Effacement de la copie des heures
Range("A1:J5").Copy Range("A9") ' copie des cellules A1 à J5 dans la cellule A9
Set f = Application.WorksheetFunction
For i = 10 To 65536 ' boucle de la ligne 10 jusqu'à la fin
If Range("J13") = "" Then ' si la cellule J13 ( derniére cellule ) est atteinte
Range("A9:J13").ClearContents ' les cellules A9 à J13 sont éffacées
Exit Sub ' sortie de la macro
End If ' fin si
If Cells(i, 12) = "" Then 'if la cellule ligne i est colonne 12 (L) est vide alors
Cells(i, 12) = f.Min([B10:J13]) 'la cellule prend la plus petite heure
End If ' fin si
 For Each r In Range("B10:J13") ' boucle analysant les cellules B10 à J13 ( copiées)
  If r = Cells(i, 12) Then ' if la cellule r est égale à la cellule contenant la plus petite heure alors
  r.ClearContents ' la cellule est éffacée
  r.Select ' elle est selectionnée
  NoLigne = ActiveCell.Row ' numéro de ligne
  NoColonne = ActiveCell.Column ' numéro de colonne
  Cells(i, 13) = Cells(9, NoColonne) ' la cellule ligne i colonne 13 ( M ) est égale à la colonne et ligne 9 ( course)
  Cells(i, 14) = Cells(NoLigne, 1) ' la cellule ligne i colonne 14 ( N ) est égale à la colonne 1 et ligne  ( réunion)
  Exit For ' sortie de la boucle
  End If ' fin si
  Next r 'boucle r
Next i ' boucle i
Application.ScreenUpdating = True
End Sub

bonne nuit !