utilise chexbox(i) au lieu de checkbox1, checkbox2, etc.
Pour faire ça, le "name" de chaque checkbox est le même, et le (i) est donné par l'index (dans les propriétés de la checkbox).
Après, tu fais
dim coefficient(lenombredetescheckbox) as integer
c1=0
for i=0 to lenombredetescheckbox
if checkbox(i).checked then
c1=c1+coefficient(i)
end if
next
Ca t'aidera à généraliser ton algorithme et t'évitera de taper 3000 lignes.
Le coefficient dépend de ta checkbox, c'est juste une règle pour compter..
(imagine pour compter en base 2, les coefficients sont, dans l'ordre: 1,2,4,8,16,etc)
A toi de trouver ces coefficients, je connais pas ton programme après, ni les valeurs que tu veux obtenir :p
|