Discussion :

[metaldan]

Bonjour

J'ai fait une fonction personalisé qui ressemble a un SOMME.SI.

J'ai un gros tableau avec beaucoups de ligne ( environ 900 ), et je fait un résumé avec ma function. Tout marche bien sauf qu'il y a une lenteur a chaque foi que je change la valeur d'une cellule qui est utilisé par ma fonction.

Y a t-il un moyen d'augmenter la vitesse d'exécution, lors d'un changement de valeur???? Les fonctions d'Excel s'UPDATE très vite??

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
Function manon3(ref As Variant, PRICE As Range, MOIS_REALISATION As Range, NIVEAU As Range)
 
manon3 = 0
 
For i = 1 To MOIS_REALISATION.Rows.Count
    If MOIS_REALISATION.Value2(i, 1) = ref Then
        multi = 0
        temp = CStr(NIVEAU.Value2(i, 1))
        If InStr(1, temp, "1") > 0 Then multi = multi + 0.1
        If InStr(1, temp, "2") > 0 Then multi = multi + 0.1
        If InStr(1, temp, "3") > 0 Then multi = multi + 0.1
        If InStr(1, temp, "4") > 0 Then multi = multi + 0.3
        If InStr(1, temp, "5") > 0 Then multi = multi + 0
 
        manon3 = manon3 + PRICE.Value2(i, 1) * multi
 
    End If
Next i

[pgz]

Bonsoir.

Je pense que tu es dans une situation analogue à celle de cette discussion. Pour accélérer, tu peux utiliser un tableau de valeurs : tu lis en une fois toute la plage, tu fais tes calculs avec le tableau, tu écris le résultat en une fois sur toute la plage.

Cordialement,

PGZ

[babaothe]

salut

pgz a bien raison.

par ailleurs (quelle que soit la méthode retenue) :

Code :

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

1
2
3
4
5
6
7
8
9
 
        multi = 0
        temp = CStr(NIVEAU.Value2(i, 1))
 
        If InStr(1, temp, "1") > 0 Then multi = multi + 0.1
        If InStr(1, temp, "2") > 0 Then multi = multi + 0.1
        If InStr(1, temp, "3") > 0 Then multi = multi + 0.1
        If InStr(1, temp, "4") > 0 Then multi = multi + 0.3
        If InStr(1, temp, "5") > 0 Then multi = multi + 0

ne me parait pas très adroit :
1) plusieurs fois Instr.
2) la dernière ligne est inutile (à quoi bon chercheer le "5" pour changer multi en multi + 0 = multi ?)

Je préfèrerais personnellement- un seul passage pour les valeurs 1 à 3 + un instr pour la valeur 4 et aucun pour la valeur 5

Code :

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

1
2
3
4
multi = 0
        temp = CStr(NIVEAU.Value2(i, 1))
        If temp Like "*[1-3]*" Then multi = multi + 0.1
        If InStr(1, temp, "4") > 0 Then multi = multi + 0.3

je ne comprends d'ailleurs pas pourquoi calculer un nouveau multi par addition, puisque remis à 0 à chaque itération de la boucle.
Pou(rquoi recalculer enfin manon3 inutilement lorsque multi = 0 ?
Ceci devrait (à vue de nez) dans ce cas suffire :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For i = 1 To MOIS_REALISATION.Rows.Count
    If MOIS_REALISATION.Value2(i, 1) = ref Then
        multi = 0
        temp = CStr(NIVEAU.Value2(i, 1))
        If temp Like "*[1-3]*" Then multi =  0.1
        If InStr(1, temp, "4") > 0 Then multi =  0.3
        If multi <> 0 then manon3 = manon3 + PRICE.Value2(i, 1) * multi
    End If
Next i

[metaldan]

Merci de votre aide, mais ça ne marche pas.. voici la mon problème, mon fichier a un tableau contenant ces colonnes et je veut faire un résumé. Il y a 20 autres colonnes non utilisé pour mon résumé. Ces colonnes ne sont pas tous adjacent.

projet # ....info x ......mois_réalisation ...info y...... niveau .....prix
1 ........................... 1................................... 1............ 1000$
2..............................1....................................3.............1500$
3............................. 3................................... 1234 ...... 5645$
4............................. 2 ...................................2.............10568$
5 ............................3 ....................................5............ 9546$
...
900


et je veut un résumé qui est:


mois_ réalisation............. montant
1 ................................=manon3 ( ) ' projet 1+projet2
2..................................=manon3 ( ) ' projet 4
3 ................................=manon3 ( ) ' projet 3+projet5
4..................................=manon3 ( )
...
12 ................................=manon3 ( )

le montant et le prix * un facteur qui est déterminé par le niveau

niveau contient 1 = +0.1
niveau contient 2 = +0.1
niveau contient 3 = +0.1
niveau contient 4 = +0.3

donc niveau = 1 facteur = 0.1
donc niveau = 12 facteur = 0.2
donc niveau = 34 facteur = 0.4


Si je mets =manon3() pour 1 mois dans mon résumé, tout vas vite ( si je change un niveau, il recalcul 1 x =manon3()) . Mais quand je fait mon résumé avec les 12 mois , donc 12 x =manon3 () , il prends 3-4 secondes a chaque fois que je change 1 niveau.

Merci de votre aide

[Pierre Fauconnier]

Bonjour

Une solution pourrait consister en une formule Excel, éventuellement générée et recopiée sur tes 900 lignes en VBA.

A mon avis, plus simple à maintenir que via du "tout vba"