Pb de script
Bonjour,
j'ai quelques soucis sur un code VBscript. je suis débutant en programmation et ce que je souhaite faire c'est par mi une sélection de données prendre celle différentes de 0 et additionner leur valeur absolue:
j'ai fait quelque chose comme ça:
Var = HS.GetCell("caractéristiques de ma liste de données")
For i = LBound(Var) To UBound(var)
Call Var.GetItem(i, carac1, carac2, Carac3, Carac4, Carac5, Carac6, Data)
If Abs(Data) <> 0 Then
HS.Exp "rubrique qui stockera mon résultat=" & Data
End If
ça ne fonctionne pas.
c'est mon tout premier script en quelque langage que ce soit. merci de votre aide!
j'ai quelques soucis sur un code VBscript. je suis débutant en programmation et ce que je souhaite faire c'est par mi une sélection de données prendre celle différentes de 0 et additionner leur valeur absolue:
j'ai fait quelque chose comme ça:
Var = HS.GetCell("caractéristiques de ma liste de données")
For i = LBound(Var) To UBound(var)
Call Var.GetItem(i, carac1, carac2, Carac3, Carac4, Carac5, Carac6, Data)
If Abs(Data) <> 0 Then
HS.Exp "rubrique qui stockera mon résultat=" & Data
End If
ça ne fonctionne pas.
c'est mon tout premier script en quelque langage que ce soit. merci de votre aide!
1 réponse
-
généralement on commence plutot par un prog simple de type "hello word" ! lol
Quelles ets l'erreur renvoyée? Quelle ligne?
-
j'ai changé le script par ça :
Ensemble=HS.Account.List("CHECKB","[Base]")
For i = LBound(Ensemble) To UBound(Ensemble)
Var=Abs(HS.GETCELL("A#" & Ensemble (i) &".I#[ICP None].C1#[None].C2#[None].C3#[None].C4#IPA"))
If Var <> 0 Then
HS.Exp"A#BLOCK=" & Var
End If
je n'ai pas de message d'erreur cette fois-ci, le script s'exécute, mais le montant affiché n'est pas celui que j'attends. Donc je ne sais pas trop ce qu'il additionne.
merci! -
-
@pachakutile pb dans ce cas (2e script), c'est qu'il ne m'additionne ps tous les montant mais ne me prend que le dernier. comment faire un cumul?
-
