Pb de script
pachakuti
-
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!
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
- Mas script - Accueil - Windows
- Ghost script - Télécharger - Polices de caractères
- Script cmd - Guide
- Execution du script d'installation microsoft vc redistributable - Forum Jeux vidéo
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!
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