Accélération programme VBA

Version imprimable

1 pièce(s) jointe(s)

Bonjour tout le monde

Le but de ce post est de trouver des conseil ou des avis concernant un programe que j'ai réalisé.
Le programe fonctionne il est simplement long lorsque je lance la macro "génération tableaux" --> pas loind de 1h de moulinage ^^

Je pense d'apres ce que j'ai pue observé que le probleme ce situe au niveau de la macro : "RechercheCarton"

En voici la macro:
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 Sub RechercheCarton() If Worksheets("FRT").Range("B9") = 0 _ And Worksheets("FRT").Range("B10") = 0 _ And Worksheets("FRT").Range("B11") = 0 _ And Worksheets("FRT").Range("B12") = 0 _ And Worksheets("FRT").Range("B13") = 0 _ And Worksheets("FRT").Range("B14") = 0 Then Worksheets("Matrice").Range("O4") = 0 Else Worksheets("Matrice").Activate For Col = 15 To 26 chercher = chercher & Cells(2, Col) Next For lig = 2 To 610 concat = "" For Col = 1 To 12 concat = concat & Cells(lig, Col) Next If concat = chercher Then Range("O4") = Cells(lig, 13) Exit For End If Next End If Worksheets("FRT").Activate End Sub
Voici en pj mon fichier excel pour plus de détails

Pièce jointe 96667

Je suis ouvert a toutes propositions car ma connaissance en VBA reste trés limité au fonctions basiques

Cordialement :zoubi:

08/06/2012, 09h54
napo123

Ajouter en début de code,

Code:

Application.ScreenUpdating = False

et en fin de code

Code:

Application.ScreenUpdating = True

permet déjà des gains assez sensibles en général (et d'éviter l'effet de "scintillement" quand on navigue entre les pages).

J'ai pas testé, donc je sais pas si c'est un gros gain ou pas dans ton cas.
08/06/2012, 10h19
boom47
merci Cyril j'ai testé ca améliore déja un peut.

Par contre je pense que je pourai encore gagnier du temps au niveau de l'activation des pages
Code:

1 2 3 4 Worksheets("Matrice").Activate For Col = 15 To 26 chercher = chercher & Cells(2, Col) Next
Y a-t-il un moyen differents que l'activate afin d'éviter de naviguer entre les 2 feuilles ?
08/06/2012, 10h57
CODYCO
essai de travailler avec
Code:

1 2 3 4 With '... End With

j avais trouver une reponce sur un autre forum a partir du with
j ai essaiyé (voici le code ci dessous) mais ca me redonne pas les valeurs que je recherche

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
30
31
32
33
Sub RechercheCarton()
 
Application.ScreenUpdating = False
 
If Worksheets("FRT").Range("B9") = 0 _
    And Worksheets("FRT").Range("B10") = 0 _
    And Worksheets("FRT").Range("B11") = 0 _
    And Worksheets("FRT").Range("B12") = 0 _
    And Worksheets("FRT").Range("B13") = 0 _
    And Worksheets("FRT").Range("B14") = 0 Then
        Worksheets("Matrice").Range("O4") = 0
Else
    With Worksheets("Matrice")
    For Col = 15 To 26
         chercher = chercher & Cells(2, Col)
    Next
    For lig = 2 To 610
         concat = ""
         For Col = 1 To 12
              concat = concat & Cells(lig, Col)
         Next
         If concat = chercher Then
              Range("O4") = Cells(lig, 13)
              Exit For
         End If
    Next
    End With
End If
 
 
Application.ScreenUpdating = True
 
End Sub

Par contre avec active ou select ca me retourne bien les valeurs recherchés

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
30
31
Sub RechercheCarton() 
Application.ScreenUpdating = False
 
If Worksheets("FRT").Range("B9") = 0 _
    And Worksheets("FRT").Range("B10") = 0 _
    And Worksheets("FRT").Range("B11") = 0 _
    And Worksheets("FRT").Range("B12") = 0 _
    And Worksheets("FRT").Range("B13") = 0 _
    And Worksheets("FRT").Range("B14") = 0 Then
        Worksheets("Matrice").Range("O4") = 0
Else
    Worksheets("Matrice").Activate
    For Col = 15 To 26
         chercher = chercher & Cells(2, Col)
    Next
    For lig = 2 To 610
         concat = ""
         For Col = 1 To 12
              concat = concat & Cells(lig, Col)
         Next
         If concat = chercher Then
              Range("O4") = Cells(lig, 13)
              Exit For
         End If
    Next
End If
Worksheets("FRT").Activate
 
Application.ScreenUpdating = True
 
End Sub

donc je sais pas trop ou ca plante ... :(

Bonjour tu dis que le problème se déclenche lorsque tu lances :

Citation:

lorsque je lance la macro "génération tableaux" --> pas loind de 1h de moulinage ^^

si tu appuis sur le bouton cout d'envoi, tu fais appel à la macro recherche carton, or la macro se déroule assez rapidement.

je pense que le problème vient des autres macros: lorsque tu appuies sur
le bouton de génération de tableaux tu fait appel à d'autres macro:
Code:

1 2 3 4 5 6 7 8 Sub MatriceTableauGeneral() Call MatriceTableau1 Call MatriceTableau2 Call MatriceTableau3 Call MatriceTableau4 Call MatriceTableau5 Call MatriceTableau6 End Sub
je vais pas reprendre toutes les autres mais les 6 macros appelées ont toutes la même structure voici la première:
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 Sub MatriceTableau1() Dim Li As Long Dim Col As Long Col = 3 Do Until Col > 10 Worksheets("FRT").Range("B9") = Worksheets("Tableau Prix-Destinations").Cells(2, Col) Li = 3 Do Until Li > 60 Worksheets("FRT").Range("A5") = Worksheets("Tableau Prix-Destinations").Cells(Li, 2) Call NombreBoite Call RechercheCarton Call ZonePays Call PrixCarton Call Indice Call FRT Worksheets("Tableau Prix-Destinations").Cells(Li, Col) = Worksheets("FRT").Range("I5") Li = Li + 1 Loop Li = 3 Col = Col + 1 Loop Worksheets("FRT").Range("B9") = 0 Worksheets("FRT").Range("A5") = 0 Worksheets("FRT").Range("B5") = 0 End Sub
or tu utilises une boucle do loop dans une autre qui appelle à chaque tour de boucle d'autres macros et tu fais la même choses dans les 6 macros.;)

je pense que ton problème vient plutôt de là.

08/06/2012, 12h26
boom47

c'est fort probable mais jusqu'a présent c'est le seul moyen que j'ai trouver pour effectuer les actions que j'ai besoin de réaliser, cependant a chaque reéalisation c'est au niveau de la recherche dans la matrice que ca coince par rapport au temps total
08/06/2012, 14h09
rvtoulon
A mon avis c'est plus que fort probable...
rends toi compte, rien que pour la macro "MatriceTableau1", si je compte bien, tu examines 7 colonnes et a chaque colonne env 57 lignes: donc tu vas faire environ 400 boucles dans lesquels tu vas appeller donc 400 fois les 6 macros :
Code:

1 2 3 4 5 6 Call NombreBoite Call RechercheCarton Call ZonePays Call PrixCarton Call Indice Call FRT
la macro Nombreboite appelle elle aussi 6 autres macros, (nombredeboite1, ...6). la macro RechercheCarton va faire 400 aller Retour entre tes feuilles sans compter qu'elle va relancer si la condition n'est pas remplis, les boucles qu'elle contient, je trouve que c'est dèjà pas mal...

et le scénario va être identique, voir pire (nb d'aller retour plus important), et continuer pour les 5 autres macros "MatriceTableau(x)".

pour moi y a pas de doutes le problème est là.
certes il y aurait quelques améliorations à apporter à certains code mais je pense qu'il faudrait que tu réfléchisses à un autre moyen ou "conception", ou prendre ton mal en patience.

bon courage pour la suite.
08/06/2012, 14h25
boom47

ca fait un bon pti moment que je cherche a ameliorer la rapidité total de ce programme et je me suis deja pas mal étalé sur cette partie

je pense que je vais opter pour le mal en patience ^^
merci:ccool: