Pb de script

pachakuti -  
 pachakuti -
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!

1 réponse

  1. epsilon17 Messages postés 83 Statut Membre 55
     
    généralement on commence plutot par un prog simple de type "hello word" ! lol

    Quelles ets l'erreur renvoyée? Quelle ligne?
    0
    1. pachakuti
       
      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!
      0
      1. pachakuti > pachakuti
         
        le 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?
        0
    2. pachakuti
       
      dans le 1er script, c'est le ligne 3 qui pose pb:

      Ensemble=HS.Account.List(ma liste)
      For i = LBound(Ensemble) To UBound(Ensemble)
      Call Ensemble.GetItem(i, Account, ICP, Custom1, Custom2, Custom3, Custom4, Data) If Abs(Data) <> 0 Then

      HS.Exp"A#BLOCK= formule de calcul"

      End If
      0