XL 2019 Transpose et limiter nombre de valeur

[Rabeto]

Bonsoir à tous,

svp , Y a t-il un moyen d'ajouter dans ce code de transposer en ligne les valeurs trouvées et de demander à ce que la requête ne prend que les 3 premières valeurs de ce qu'il a trouvé

Sub Transpose ()
Application.ScreenUpdating = False
On Error Resume Next

Site = Range("A1").Value
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", Site, False
.Send
donnee = .responsetext
End With

tbl1 = Split(donnee, "date"":")
For i = 1 To UBound(tbl1)
With ActiveSheet

.Cells(i + 3, 8).Value = Split(Split(tbl1(i), "Donneé"":")(1), ",")(0)

End With
Next

MsgBox "Complet"

Range("A2").Select

Application.ScreenUpdating = True

End Sub

 

[Rabeto]

Au cas ou quelqu'un en a besoin !!!! je pense avoir trouvé

Sub XTESTJSON()

Application.ScreenUpdating = False

On Error Resume Next

Site = Range("A1").Value
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", Site, False
.Send
donnee = .responsetext
End With

tbl1 = Split(donnee, "date"":")

Dim valeursTrouvees As Integer
valeursTrouvees = 0

For i = 1 To UBound(tbl1)
If valeursTrouvees < 3 Then

With ActiveSheet
.Cells(4, i + 7).Value = Split(Split(tbl1(i), "Donneé"":")(1), ",")(0)
End With

valeursTrouvees = valeursTrouvees + 1
Else
Exit For
End If
Next

MsgBox "Complet"

Range("A2").Select

Application.ScreenUpdating = True

End Sub