Web Scraping VBA

Y compris Power BI, Power Query et toute autre question en lien avec Excel
f
flobble
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 22 janvier 2015
Version d'Excel : 2010 FR

Message par flobble » 17 février 2015, 16:17

Merci beaucoup messieurs pour vos contributions et vos modes de réflexion. Ils sont très enrichissants. J'étais parti au ski, et malheureusement je reviens avec une épaule cassée et je tape d'un doigt donc je mettrais en pratique mon ambitieux "web scraping vba" dans 6 semaines ... :cry:
f
flobble
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 22 janvier 2015
Version d'Excel : 2010 FR

Message par flobble » 20 février 2015, 12:36

Je tape d'un doigt mais du coup j'essaie de faire des petites manip.
Là je voudrais alléger du code. J'ai l'instruction suivante qui mérite un petit rafraichissement mais je n'y arrive pas :
'match_1
Valu_1_1.Value = Val(Repart_1_1.Value) - Val(percent_odd_1_1.Value)
Valu_N_1.Value = Val(Repart_N_1.Value) - Val(percent_odd_N_1.Value)
Valu_2_1.Value = Val(Repart_2_1.Value) - Val(percent_odd_2_1.Value)

'match_2
Valu_1_2.Value = Val(Repart_1_2.Value) - Val(percent_odd_1_2.Value)
Valu_N_2.Value = Val(Repart_N_2.Value) - Val(percent_odd_N_2.Value)
Valu_2_2.Value = Val(Repart_2_2.Value) - Val(percent_odd_2_2.Value)

'match_3

Valu_1_3.Value = Val(Repart_1_3.Value) - Val(percent_odd_1_3.Value)
Valu_N_3.Value = Val(Repart_N_3.Value) - Val(percent_odd_N_3.Value)
Valu_2_3.Value = Val(Repart_2_3.Value) - Val(percent_odd_2_3.Value)
il ne s'agit que d'une partie du code car j'ai 15 matchs. On remarque donc qu'il y a une base commune et un chiffre qui s'incrémente de 1 à 15.
j'ai essayé avec une boucle For To mais j'ai une erreur.
Private Sub CommandButton2_Click()

For i = 1 To 15
Valu_1_& i & .Value = Val("Repart_1_" & i & ".Value") - Val("percent_odd_1_" & i & ".Value")
Valu_N_& i & .Value = Val("Repart_N_" & i & ".Value") - Val("percent_odd_N_" & i & ".Value")
Valu_2_& i & .Value = Val("Repart_2_" & i & ".Value") - Val("percent_odd_2_" & i & ".Value")
Next
End Sub
Voyez-vous le problème?
Avatar du membre
Marc L
Membre dévoué
Membre dévoué
Messages : 791
Appréciation reçue : 1
Inscrit le : 27 janvier 2015
Version d'Excel : 2003 / 2007

Message par Marc L » 20 février 2015, 12:55

Oui tu confonds texte et variable !
Un nom de variable ne peut pas être découpé comme du texte :  Valu_1_& i & .Value   impossible !

Comme le code est incomplet, si cela fait référence à des cellules, utiliser la propriété  Cells 

Consulter aussi l'aide de la puissante fonction  Evaluate  !

Si ce sont des contrôles d'un UserForm, utiliser alors sa collection  Controls 

A noter le hors sujet vis à vis de la demande initiale, cela nécessiterait un sujet indépendant.
 
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message