XL 2010 somme couleur colonnes

teddy33130 · 1 Avril 2021

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 · 2 Avril 2021

Un essai en PJ à bien vérifier.

1- Création d'une feuille X ( que j'ai initialisée avec InitPageXcouleur ). Cette feuille est mis en xlSheetVeryHidden pour n'être jamais visible.
Le but est que chaque fois qu'on touche à Base de données on fait exactement la même chose dans X. Si on met vert alors on met V dans X, si on insère une ligne, on fait pareil dans X. A tout moment une cellule en LC dans base à son équivalent couleur dans X. Je ne met que V pour vert, le reste étant blanc il n'est pas nécessaire de le préciser.
2- Dans le code :
a- A chaque fois qu'on insère une ligne, on fait pareil dans X :

VB:

        With Feuil3
            .Rows("2:2").Insert T2 = xlDown, CopyOrigin:=xlFormatFromLeftOrAbove    'insere une ligne a la ligne...

sylvanu · 1 Avril 2021

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

teddy33130 · 1 Avril 2021

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 · 1 Avril 2021

sylvanu à dit:
Sans fichier test difficile de répondre correctement.

teddy33130 · 1 Avril 2021

500 lignes et des données confidentielles

sylvanu · 1 Avril 2021

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

sylvanu · 1 Avril 2021

Une tentative en aveugle avec :

VB:

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 · 1 Avril 2021

merci de ta reponse
je te prepare ca
amicalement

sylvanu · 1 Avril 2021

Voir Pj si vous pouvez adapter.

teddy33130 · 1 Avril 2021

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

sylvanu · 1 Avril 2021

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 · 1 Avril 2021

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 · 1 Avril 2021

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

sylvanu · 1 Avril 2021

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

VB:

Function SOMMECOUL(plage As Range)
    Application.Volatile

teddy33130 · 1 Avril 2021

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

XL 2010 somme couleur colonnes

teddy33130

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

teddy33130

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

teddy33130

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

teddy33130

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

teddy33130

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

teddy33130

XLDnaute Nouveau

teddy33130

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

teddy33130

XLDnaute Nouveau

Discussions similaires