Cummulé les variables En QTP!

Bonjour, c'est un message pour les connaisseurs en QTP.
j'ai un problème pour cumuler les variables d'une boucle For afin de les mettres dans une if

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim IntWebLstControle
Dim CblTotalMontant
Dim CblMise 
Dim CblMontant
 
For  IntWebLstControle = 1 to 6  'ntWebListAffichee 
 
   Browser("PMU - pad1").Page("PMU - pad1").WebEdit_("Wedt_Mises").SetTOProperty "html id", "mise_" & IntWebLstControle
   CblMise  = Cdbl(Browser("PMU - pad1").Page("PMU - pad1").WebEdit_("Wedt_Mises").GetROProperty("value"))
 
   Browser("PMU - pad1").Page("PMU - pad1").WebEdit_("Wedt_Montant").SetTOProperty "html id", "montant_" &  IntWebLstControle		 
  CblMontant = Cdbl(Browser("PMU - pad1").Page("PMU - pad1").WebEdit_("Wedt_Montant").GetROProperty("value"))
 
   If CblTotalMontant = CblMontant1+..... then  '<<<<<<<<   Ma SOMME <<<<<
      msgbox "le contrôl est parfait"
      Else
      msgbox "le contrôl est mauvais"
   End if 
 
Next

CblMontant prend à chaque itération une valeur( 6 fois), l'idée est d'additionner les 6 valeurs de CblMontant
Merci d'avance pour votre aides

bonjour,

et si tu effectuais ton addition à chaque tour boucle :

Code:

CblMontant =CblMontant + Cdbl(Browser("PMU - pad1").Page("PMU - pad1").WebEdit_("Wedt_Montant").GetROProperty("value"))

Je vous remercie Bbil :ccool:, j'avais une manque de concentration cet après-midi, sinon au niveau règles je ferais attention la prochaine fois pour poster le code.

Merci encore