Pb de script

Fermé

pachakuti - 21 févr. 2006 à 18:58
pachakuti - 22 févr. 2006 à 15:10

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!

A voir également:

Pb de script
Script vidéo youtube - Guide
Script bat - Guide
Executeur de script - Télécharger - Édition & Programmation
Ghost script - Télécharger - Polices de caractères
Script bouger souris ✓ - Forum C++

1 réponse

Réponse 1 / 1

epsilon17 Messages postés 83 Date d'inscription samedi 19 mars 2005 Statut Membre Dernière intervention 8 avril 2013 55
22 févr. 2006 à 12:03

généralement on commence plutot par un prog simple de type "hello word" ! lol

Quelles ets l'erreur renvoyée? Quelle ligne?

pachakuti
22 févr. 2006 à 13:23

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!

pachakuti > pachakuti
22 févr. 2006 à 15:10

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?

pachakuti
22 févr. 2006 à 13:47

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

Discussions similaires

recherche script "les visiteurs"

executer un fichier .py sous linux

besoin d'un script

Liste COMPLETE des commandes .bat

virus trojan.script.generic

Discussions similaires

Newsletters