Conseil sur boucle

Bonjour,

Je viens vers vous pour avoir des conseils sur une chose que j'essaie de faire

Sub Map()

    Dim Parsed As Object, R As Object, url As String, rep As String
    Dim Titre As Variant, i As Long, c As Long

    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With

    url = "http://localhost/projectconfid0012/"

    Set R = CreateObject("WinHTTP.WinHTTPRequest.5.1")

    With R
        .Open "GET", url, False
        .SetAutoLogonPolicy 0
        .send

        rep = Replace(Replace(.responseText, texte, ""), "}}}" & """}", "}}}")

    End With

'    Debug.Print rep

    Set Parsed = JsonConverter.ParseJson(rep)

    Titre = VBA.Array("YOY-4-10-MA", "YOY-2-10-MA", "YOY-1-10-MA")

    For i = 2 To 10
        For c = LBound(Titre) To UBound(Titre)
            Cells(i, 1) = Parsed("Metric")(Titre(c))("bUtil") / 100
        Next c
    Next i

    With Application
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With

End Sub

Ce que je souhaite faire c'est de boucler sur chaque YOY de la variable Titre, chaque fois qu'il rencontre Titre(c) il colle le résultat et retourne dans le Titre(c) jusqu'à la fin

Pour le moment il me colle que le résultat du dernière rencontrer

Une astuce à refiler ?

Cordialement,

Bonjour,

Il y a une boucle en trop;

    Titre = VBA.Array("YOY-4-10-MA", "YOY-2-10-MA", "YOY-1-10-MA")
    Lig = 2
    For c = LBound(Titre) To UBound(Titre)
        Cells(Lig, 1) = (Titre(c))
        Lig = Lig + 1
    Next c

Cdlt

Bonjour,

Effectivement sa fonctionne :D

Merci pour ton aides :)

Cordialement,