Addition de valeurs

Bonjour,

je ne parviens pas à trouver une solution à mon problème :
Pour faire simple je souhaite dire que si un des slots (1 to max) est égale à 37 alors additionne moi tous les slots de 1 à Max = 37

Code:

---

1 2 3 4 5 6 7 8 9

Dim Resultat as long   For i = 1 to Max_Slot   if User(index).slot(i).num = 37 then Resultat = User(index).slot(i).num * ???   next i End If

---

merci par avance de votre aide ;)

Salut
Peut être

Code:

---

1 2 3 4 5 6 7 8

Dim Resultat as long Resultat = 0 For i = 1 to Max_Slot If User(index).slot(i).num = 37 then Resultat = Resultat + User(index).slot(i).num End If next i MsgBox "Resultat = " & Resultat

---

si .... j'ai bien compris ton problème.

C'est exactement ça...
J'étais pas loin mais je n'avais pas pensé à indiquer Resultat = 0.
Et la formule : Resultat = Resultat + User(index).slot(i).num me manquait.

MERCI BEAUCOUP !!