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]

Bonjour Teddy,
Sans fichier test difficile de répondre correctement.
Vous acceptez le VBA ?

 

[teddy33130]

re merci de me repondre
oui j'accepte le vba
j'ai bien trouvé une fonction qui marche bien mais les formules ne se mettent pas a jour pourtant je suis sur calcul automatique

 

[sylvanu]

Sans fichier test difficile de répondre correctement.

 

[teddy33130]

500 lignes et des données confidentielles

 

[sylvanu]

10 lignes bidons avec la bonne structure colonnes et entête, données représentatives ( nombre, chaines ... ) , et la bonne couleur verte.

 

[sylvanu]

Une tentative en aveugle avec :

Sub Compte()
    Dim Vert, SommeBlanc, SommeVert, L%
    Application.ScreenUpdating = False
    Vert = RGB(0, 255, 0)                           ' adapter la couleur
    For L = 2 To Range("A65500").End(xlUp).Row      ' adapter la colonne
        If Cells(L, "A").Interior.Color = Vert Then
            SommeVert = SommeVert + Cells(L, "A")
        Else
            SommeBlanc = SommeBlanc + Cells(L, "A")
        End If
    Next L
    [E3] = SommeBlanc
    [E4] = SommeVert
End Sub

 

[teddy33130]

merci de ta reponse
je te prepare ca
amicalement

 

[sylvanu]

Voir Pj si vous pouvez adapter.

 

[teddy33130]

tu a ete tres vite je fini juste le test
le voici

 

[sylvanu]

Par contre dans la formule il faut mettre =SOMMECOUL(D18) ( D8 et non D7 ) sinon quand vous ajouterez des lignes l'indice ne s'incrémentera pas.

 

[teddy33130]

avec cette fonction ca fonctionne super bien mais les formules ne se mettent pas a jour
il faut se mettre sur la barre de formule et apuyer sur entrée pour que cela se mette a jour

 

[teddy33130]

il faut savoir que ma base de données et alimenter par un userform

 

[sylvanu]

Ajouter Application.Volatile juste après la fonction, cela sera recalculé à chaque fois.

Function SOMMECOUL(plage As Range)
    Application.Volatile

 

[teddy33130]

Wahou en ajoutant Application.Volatile le traitement met 40 secondes avant que mon userform se referme et les calculs ne se font pas