Bonjour,

Je souhaitais savoir s'il est possible de mettre des variables automatiquement à zéro.

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
21
22
23
24
25
26
27
28
29
Dim résu(70,70,70)
for i= 1 to 50
For c1= 1 to 70
For c2= 1 to 70
For c3= 1 to 70
' Série de calcul
if .....then r(c1,c2,c3,)=r(c1,c2,c3)+1
next
next
next
'recherche du maximum
max=0
For c1= 1 to 70
For c2= 1 to 70
For c3= 1 to 70
if r(c1,c2,c3)>max then max = r(c1,c2,c3)
next
next
next
'Remise à zéro
For c1= 1 to 70
For c2= 1 to 70
For c3= 1 to 70
r(c1,c2,c3)=0
next
next
next
 
next
On voit bien que ce code prend du temps : je fais 3 fois la boucle multiplié par 50 fois....: une fois pour le calcul, une fois pour la recherche du max et une fois pour la remise à zéro....

Concernant la remise à zéro, il n'existe pas un code, une formule ou autre qui permettrait de tout remettre à zéro, sans passer par une boucle ?

Des idées ?

Merci,

A+