Bonjour,
Pourriez-vous m'expliquer avec des mots ce que font ces lignes de code, car je me rend compte que je ne suis pas sur d'avoir compris. :
"Sub Obtenir_Valeurs()
Texte = Split(Range("B1"), ":""") 'Changer "A1" par la cellule contenant l'extraction de la page web
For i = 2 To UBound(Texte) Step 2
Range("D" & 2 + CInt(i / 2)) = Left(Texte(i - 1), InStr(1, Texte(i - 1), Chr(34)) - 1)
Range("B" & 2 + CInt(i / 2)) = Left(Texte(i), InStr(1, Texte(i), Chr(34)) - 1)
Next
End Sub"
Je vous remercie par avance pour votre aide
ClementP7
Pourriez-vous m'expliquer avec des mots ce que font ces lignes de code, car je me rend compte que je ne suis pas sur d'avoir compris. :
"Sub Obtenir_Valeurs()
Texte = Split(Range("B1"), ":""") 'Changer "A1" par la cellule contenant l'extraction de la page web
For i = 2 To UBound(Texte) Step 2
Range("D" & 2 + CInt(i / 2)) = Left(Texte(i - 1), InStr(1, Texte(i - 1), Chr(34)) - 1)
Range("B" & 2 + CInt(i / 2)) = Left(Texte(i), InStr(1, Texte(i), Chr(34)) - 1)
Next
End Sub"
Je vous remercie par avance pour votre aide
ClementP7