XL 2010 somme couleur colonnes

[teddy33130]

bonjour a tous
j'ai une base de données avec 500 lignes (pour l'instant)
je cherche a faire une addition des cellules en fonction de leur couleur (il y en a deux , blanc ou vert)
en bas de ma base de données
mais bien sur au fur et a mesure que ma base de données s'alimente les cellule contenant les formules vont se decaler vers le bas car j'insere ma nouvelle ligne en ligne 2
en ligne 1 j'ai les entete des colonnes
esperant avoir ete clair
amicalement

 

[sylvanu]

En fait ça recalcule tout à chaque fois, donc cela dépend de votre fichier.... d'où un fichier test représentatif, quand c'est possible.
Autre solution, à la fin de votre userform vous faites un Calculate. Ca ne sera recalculé qu'à ce moment là.

 

[teddy33130]

            For i = 1 To 30
                .Cells(2, i + 3) = Controls("TV" & i)
                If .Cells(2, i + 3) > "" Then .Cells(2, i + 3) = Replace(.Cells(2, i + 3), ".", ",") * 1    ' remplace les . par des ,& multiplie par 1
                If .Cells(2, i + 3) > "" Then .Cells(2, i + 3) = .Cells(2, i + 3) * 1: .Cells(2, i + 3).NumberFormat = "0.000"    'met le formet 0.000
                If Controls("ch" & i) = True Then .Cells(2, i + 3).Interior.Color = RGB(192, 255, 96)
            Next

voici le code qui m'envoie les infos sur ma base de données ,y aurais t'il quelques chose a modifier pour que cela recalcule quand il renvois dans la cellule ??

 

[sylvanu]

Le plus simple est de faire un Calculate après le Next, cela évite les calculs intermédiaires.

 

[teddy33130]

For i = 1 To 30
                .Cells(2, i + 3) = Controls("TV" & i)
                If .Cells(2, i + 3) > "" Then .Cells(2, i + 3) = Replace(.Cells(2, i + 3), ".", ",") * 1    ' remplace les . par des ,& multiplie par 1
                If .Cells(2, i + 3) > "" Then .Cells(2, i + 3) = .Cells(2, i + 3) * 1: .Cells(2, i + 3).NumberFormat = "0.000"    'met le formet 0.000
                If Controls("ch" & i) = True Then .Cells(2, i + 3).Interior.Color = RGB(192, 255, 96)
            Next
            Calculate

comme ca tout simplement

 

[sylvanu]

Oui.
Vous mettez toutes les couleurs et après vous calculer, ce sera le plus rapide.

 

[teddy33130]

Dsl mais c'est pareil c'est super long

 

[sylvanu]

Vous avez retiré le Application.volatile ?

 

[sylvanu]

Dernière solution.
Quand vous entrez dans votre userform vous mettez :

Application.Calculation = xlCalculationManual

puis à la fin avant le endsub vous mettez

Application.Calculation = xlCalculationAutomatic
Calculate

Comme ça tous les calculs passent en manuel pendant le userform.

 

[teddy33130]

Application.Calculation = xlCalculationManual

dans userform initialize

 

[sylvanu]

Le plus tôt possible, donc là ce serait bien.
Et le retour à la normal le plus tard possible. De cette façon vous ne serez plus ennuyé par les calculs intermédiaires.

 

[teddy33130]

ou au debut de la sub

 

[teddy33130]

non dsl la vitesse vas mieux mais cela ne calcule pas

 

[sylvanu]

??? Là ça dépend de la structure de votre code.
Dans ce cas remettez le Application.volatile dans la fonction.
Comme les calculs seront inhibés cela ne devrait pas avoir d'impact sur le temps. et le Calculate à la fin devrait tout recalculer.
Après ça dépend comment votre fichier est fait et si vous avez besoin de calculs intermédiaires.

 

[teddy33130]

dsl mais tj tres long a calculer et le resultat est faux

 

[sylvanu]

On peut déjà mettre astuce pour gagner du temps, car la formule SOMMECOUL(D137) dans la cellule blanche est inutile, il suffit de mettre : Somme totale moins somme verte. Ca divise par deux le nombres de fonctions.
Pouvez vous m'envoyez le code VBA, là il n'y a rien de confidentiel. Car normalement ça devrait marcher.