Statistique meilleur pronostic
Passionné de stats pmu, j'ai un problème pour associer à chaque pronostic les places à l'arrivée des 5 premiers (quinté).Je passe une heure après chaque arrivé à faire ce travail qui pourrait être automatiser par une macro !!
La première feuille change après chaque arrivée et visualise la place des 5 premiers dans chacun des pronostics.
Ensuite chacune des autres feuilles va historiser pour la totalité de chaque pronostic la place des 5 premiers du quinté.
Ce sera plus clair lorsque vous aurez vu mon fichier.
Merci d'avance !!
Pat
Salut le forum
Pat, ta maco à lancer depuis la feuille 18109 et modifie tes noms
en colonne A pour avoir les mêmes noms que tes feuilles. (supprime l'espace)
Sub Extraction()
Dim O_Sheet As Object
Dim Ligne As Byte, I As Byte
Set O_Sheet = ActiveSheet
For Ligne = 7 To 29 Step 2
With Sheets(O_Sheet.Cells(Ligne, 1).Value)
.Range("A2").End(xlDown).Offset(1, 0).EntireRow.Insert
With .Range("A2").End(xlDown)
.Offset(1, 0) = O_Sheet.Cells(3, 1)
For I = 2 To 6
If Not IsEmpty(O_Sheet.Cells(Ligne, I)) Then
.Offset(1, O_Sheet.Cells(Ligne, I)) = O_Sheet.Cells(4, I)
End If
Next I
End With
End With
Next Ligne
Set O_Sheet = Nothing
End SubMytå
Merci pour ta réponse, je vais testé ça.Je te tiens au courant.
Par ailleurs, à propos de RESOLU pour mettre fin à une discussion, je suis entièrement d'accord..... mais je n'ai pas trouvé à quel niveau ça se fait (menu déroulant, case à cocher ? et rien dans les FAQ)
Car évidemment j'ai cherché ce RESOLU pour clôturer ma dernière discussion et je n'ai pas trouvé !! désolé.
Pat
Bonjour
Il n'est pourtant pas très loin...
Cordialement
Amadéus,
Je viens de m'en apercevoir !!
Je pense qu'ill aurait été plus judicieux de l'intégrer dans l'éditeur "poster une réponse" par exemple avec une option à cocher en bas.
De toute manière on se contente pas de mettre RESOLU mais on remercie la personne ou les personnes qui ont aidé à la solution par une réponse.
Le piège est que je cherchais en cours d'édition de ma réponse de cloture.
Pat