Discussion :

[ericdev67]

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+

[jfontaine]

Bonjour,

as tu essayé

Code :

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

reDim résu(70,70,70)

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

Code :

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

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

[mercatog]

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 :

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

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

[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 :

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

R(c1, c2, c3) = 0

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

Code :

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

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

. et donc à la fin je cherche le

Code :

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

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....


Merci,
A+

[jfontaine]

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)

[ericdev67]

Merci jfontaine,

j'ai mis

Code :

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

dim r(70,70,70)

juste après le

Code :

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

for i=....

et j'obtiens exactement ce que je voulais
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