Discussion :

[zizou85]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

bonjour,

et si tu effectuais ton addition à chaque tour boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zizou85]

Je vous remercie Bbil , 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