Microsoft 365 [RESOLU] Boucler sur une partie de code

[Icedarts]

Bonjour à tous,

J'essaie de faire un code qui prend les valeurs de la colonne A de la feuille 1 du classeur pour les mettre dans une cellule d'une page internet.
Malheureusement je n'arrive pas a boucler sur ce morceau de code pour faire comprendre à la macro de passer de A1 à A2, de A2 à A3 etc etc.

Voici mon code

Sub testJP()
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object, FrameLeftDoc As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate ("XXXXXXXXXXXXXXX")
    WaitIE IE
    Set IEdoc = IE.document
    Set FrameLeftDoc = IEdoc.frames("leftframe").document
    Set DOCelement = FrameLeftDoc.all("M21")
    DOCelement.Click
    WaitIE IE
    Set IEdoc = IE.document
    Application.Wait Now() + TimeValue("00:00:01")
    Set FrameLeftDoc = IEdoc.frames("leftframe").document
    'Application.Wait Now() + TimeValue("00:00:5")
    Set DOCelement = FrameLeftDoc.all("A9")
    DOCelement.Click
    WaitIE IE
   
        If Cells(1, 1) Then L = 0
        L = L + 1
        With DOCelement
        Set DOCelement = IEdoc.getElementsByName("A3").Item
        DOCelement.Value = Cells(L, 1).Text
        Set DOCelement = IEdoc.getelementsbytagname("button")(12)
        DOCelement.Click
        End With
 
    If Cells(L + 1, 1) <> "" Then MsgBox ("Traitement terminé !")

    Set IE = Nothing
 
 
End Sub

Et donc la partie sur laquelle j'aimerai boucler c'est

        If Cells(1, 1) Then L = 0
        L = L + 1
        With DOCelement
        Set DOCelement = IEdoc.getElementsByName("A3").Item
        DOCelement.Value = Cells(L, 1).Text
        Set DOCelement = IEdoc.getelementsbytagname("button")(12)
        DOCelement.Click
        End With
 
    If Cells(L + 1, 1) <> "" Then MsgBox ("Traitement terminé !")

Merci d'avance pour votre aide.

 

[Phil69970]

Bonjour @Icedarts

Ma proposition

    For i = 1 To 24
        If Cells(1, i) Then L = 0
        L = L + 1
        With DOCelement
        Set DOCelement = IEdoc.getElementsByName("A3").Item
        DOCelement.Value = Cells(L, 1).Text
        Set DOCelement = IEdoc.getelementsbytagname("button")(12)
        DOCelement.Click
        End With
    Next i

Par contre il manque le N° de joueur

Merci de ton retour

@Phil69970

 

[Icedarts]

Les 24 numéros étaient un exemple, ce nombre sera aléatoire.

ceci ne fonctionnerait pas?
Le numéro du joueur n'est pas nécessaire

    For L = L + 1
        If Cells(1, L) Then L = 0
         With DOCelement
        Set DOCelement = IEdoc.getElementsByName("A3").Item
        DOCelement.Value = Cells(L, 1).Text
        Set DOCelement = IEdoc.getelementsbytagname("button")(12)
        DOCelement.Click
        End With
    Next L

Après test non ça ne fonctionne pas lol

 

[Phil69970]

Re

Essaye comme ceci

Sub testJP()
Dim IE As Object
Dim IEdoc As Object
Dim DOCelement As Object, FrameLeftDoc As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("www.dl-ligue.com")
WaitIE IE
Set IEdoc = IE.document
Set FrameLeftDoc = IEdoc.frames("leftframe").document
Set DOCelement = FrameLeftDoc.all("M21")
DOCelement.Click
WaitIE IE
Set IEdoc = IE.document
Application.Wait Now() + TimeValue("00:00:01")
Set FrameLeftDoc = IEdoc.frames("leftframe").document
'Application.Wait Now() + TimeValue("00:00:5")
Set DOCelement = FrameLeftDoc.all("A9")
DOCelement.Click
WaitIE IE

Dim Derlig&
Derlig = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To Derlig
    If Cells(i, 1) Then
        With DOCelement
            Set DOCelement = IEdoc.getElementsByName("A3").Item
            DOCelement.Value = Cells(i, 1).Text
            Set DOCelement = IEdoc.getelementsbytagname("button")(12)
            DOCelement.Click
        End With
    End If
    Application.Wait Now() + TimeValue("00:00:01")'optionnel pour voir les numéros
Next i
 
If Cells(i, 1) <> "" Then MsgBox ("Traitement terminé !")

Set IE = Nothing
End Sub

La boucle se fait bien mais il manque le N° de joueur

Merci de ton retour

@Phil69970

 

[Icedarts]

Parfait!

Merci