Discussion :

[jad73]

bonjour le forum

j'ai un code qui met entre 5 et 6 minutes pour s'exécuter.
Y aurait-il la possibilité de l'accélérer.
je joint le code et fichier
merci

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Combinaison()
Worksheets("Feuil1").Select
Dim I As Long, K As Long, M As Long, N As Long
Dim NbMax As Long
Dim Tablo(1 To 70, 1 To 70, 1 To 70, 1 To 70) As Long
Dim J As Long
Dim Resultat(1 To 1, 1 To 5)
Dim Tbl1
Dim Nombre As Long
 
  Application.ScreenUpdating = False
  Tbl1 = Range("BdD")
  NbMax = UBound(Tbl1, 2)
 
  For J = 1 To UBound(Tbl1)
    For I = 1 To NbMax - 3
      For K = I + 1 To NbMax - 2
        For M = K + 1 To NbMax - 1
          For N = M + 1 To NbMax
          Tablo(Tbl1(J, I), Tbl1(J, K), Tbl1(J, M), Tbl1(J, N)) = Tablo(Tbl1(J, I), Tbl1(J, K), Tbl1(J, M), Tbl1(J, N)) + 1
          Next N
        Next M
      Next K
    Next I
  Next J
 
  For Nombre = 1 To 70
  Resultat(1, 5) = 0
    For I = 1 To 70
      For K = 1 To 70
        For M = 1 To 70
          For N = 1 To 70
          If I = Nombre Or K = Nombre Or M = Nombre Or N = Nombre Then
            If Tablo(I, K, M, N) > Resultat(1, 5) Then
              Resultat(1, 1) = I
              Resultat(1, 2) = K
              Resultat(1, 3) = M
              Resultat(1, 4) = N
              Resultat(1, 5) = Tablo(I, K, M, N)
              End If
            End If
          Next N
        Next M
      Next K
    Next I
    Cells(1 + Nombre, "X").Resize(1, 5) = Resultat
  Next Nombre
End Sub

ps:impossible de joindre le fichier j'ai le message "fichier non valide" pourtant il ne fait que 45 Ko.

[Invité]

Bonjour,
Zip le

[jad73]

bonjour rdurupt,le forum
effectivement il passe
merci

[el_slapper]

Code :

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

1
2
3
4
5
For Nombre = 1 To 70
    For I = 1 To 70
      For K = 1 To 70
        For M = 1 To 70
          For N = 1 To 70

Ta deuxième boucle, tu la fais 70*70*70*70*70 fois, soit 1 680 700 000 fois. C'est, euh, beaucoup. Ton code ne contient pas d'erreur technique, je crois. Par contre, si tu veux aller plus vite, il te faut changer d'algorithme.

Ta deuxième boucle cherche manifestement un maximum. Mais je ne comprends pas pourquoi tu boucles sur Nombre. Il y a une raison particulière? Sinon, tu peux faire sauter la boucle sur Nombre, et en plus chercher simplement les 4 valeurs les plus grandes de ton tableau. Il n'y a alors plus qu'à les additionner pour avoir leur total.

Je ne suis pas sur d'avoir compris la première boucle.

[jad73]

bonjour el_slapper, le forum
merci pour ta réponse,malheureusement le code n'est pas de moi(pas assez doué pour ça) je l'ai eu sur le net,quand a changer d'algorithme la aussi...
Tout ce que je sais c'est qu'il sert a retrouver les 4 n° qui sortent le plus souvent ensemble dans la BdD.
merci