Bonjour,
Je suis nouveau sur le site et passionné de chevaux.
Voilà j'ai un petit souci de programmation pour la récupération de Données.
Mon problème est que, j'arrive à récupérer les données mais celle-ci se mettre dans un tableau tout à la suite, je voudrais récupérer les données en Citationsconsolidées 0:,1:;2: juste les ratios et les mettre en ligne par rapport à chaque cheval.
Je sais que je dois faire une boucle mais je bloque. Je voudrais mettre pour le cheval 1 chaque ratio en f16,g16,h16, la suite pour le cheval 2 en f17;g17;h17 ainsi de suite mais je bloque.
Serait-il possible de m'aider à résoudre mon problème?
Merci d'avance pour vos réponses
Patron28
La macro sans le lien du site.
Sub Feuil1()
Dim ScriptControl As Object, PMU As Object
Dim Ecurie As Object, Cheval As Object, Rb As Object, Gp As Object
Dim Site As String, i As Long
Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")
ScriptControl.Language = "JScript"
Site =
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", Site, False
.send
Set PMU = ScriptControl.Eval("(" + .responseText + ")")
.abort
End With
Range("c16:d69").ClearContents
Range("c16:d69").ClearFormats
Range("c16:d69").Font.Size = 8
With Sheets("Feuil1").Range("c16:d69")
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
.Borders.Value = 1
End With
i = 16
Set Ecurie = PMU.listeCitations
On Error Resume Next
For Each Cheval In Ecurie
With ActiveSheet
For Each Rb In Cheval.participants
.Cells(i, 3).Value = Rb.numPmu
For Each Gp In Rb.citationsConsolidees
.Cells(i, 4).Value = Gp.ratio / 100
i = i + 1
Next
Next
End With
Next Cheval
Set Rb = Nothing
Set Gp = Nothing
Set Ecurie = Nothing
Set PMU = Nothing
Set ScriptControl = Nothing
End Sub
Merci pour votre temps et vos idées pour résoudre mon problème.
Bien à vous
Patron28