mise à zéro de variables

Version imprimable

Bonjour,

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

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+

21/07/2011, 19h02
jfontaine
Bonjour,

as tu essayé

Code:

reDim résu(70,70,70)

NB : pas contre, il faut déclarer ta variable comme suit
Code:

1 2 Dim résu () Redim résu(70,70,70)

Je ne sais pas ce que ce code peut faire mais au moins veuille à indenter ton code.
Sinon, un seul passage de tes boucles, ne te permet pas de faire ce que tu souhaiterais faire?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
For i = 1 To 50
    For c1 = 1 To 70
        For c2 = 1 To 70
            For c3 = 1 To 70
                If xxx Then R(c1, c2, c3) = R(c1, c2, c3) + 1
                If R(c1, c2, c3) > Max Then Max = R(c1, c2, c3)
                R(c1, c2, c3) = 0
            Next c3
        Next c2
    Next c1
    Max = 0
Next i

21/07/2011, 19h25
ericdev67

Merci jfontaine,

Je vais essayer......mais par contre dim r(70,70,70), je peux le mettre n'importe où dans le code ?

Merci mercatog,

En fait, je "m'amuse" avec le PMU : je combine des "pronostiques de la presse" : ils donnent 8 chevaux et donc, je cherche à combiner 3 pronostiqueurs et voir en combinant leurs pronostiques, quel est le trio qui donne le plus souvent les numéros sortants....Donc, effectivement, je peux prendre ta solution d'inclure le max dans la boucle, mais je ne peux pas faire

Code:

R(c1, c2, c3) = 0

dans la boucle.... : "i" est le nombre de dates => il faut que je fasse pour chaque date

Code:

R(c1, c2, c3) = R(c1, c2, c3) +1

. et donc à la fin je cherche le

Code:

R(c1, c2, c3)

qui est le plus grand => le meilleur trio...
D'ailleurs, grâce à vous, je viens de comprendre que j'avais mal positionné ma recherche de max...(comme j'ai fait mes essais avec 1 seule date, je ne m'étais pas aperçu de mon erreur....:aie:

Merci,
A+
21/07/2011, 19h50
jfontaine

Citation:

mais par contre dim r(70,70,70), je peux le mettre n'importe où dans le code ?

le redim peut etre positionner ou tu veux dans le code

NB : le dim aussi, mais en VBA il est instancié au démarrage de la procédure, il est donc de convenance de le faire la déclaration en début de procédure)
22/07/2011, 07h14
ericdev67

Merci jfontaine,

j'ai mis

Code:

dim r(70,70,70)

juste après le

Code:

for i=....

et j'obtiens exactement ce que je voulais :ccool:
En plus, j'ai inclu mon max dans la boucle, donc j'ai énormément gagné en rapidité !!!

Merci pour l'info sur le "Dim"

A+ pour de prochaines aventures :mouarf: