XL 2016 fonction automatique de somme

[BBdoc31]

Bonjour,

Je bloques sur la formule à utiliser pour faire la somme dans mon tableau suivant :

en M11, on a la somme des valeurs entre deux changements qui sont représenter en vert.
Idem en Jaune pour P12, en bleu pour S10 et en rouge pour V11.

Merci par avance de vos réponses.

 

[sylvanu]

Bonjour BBdoc,
Un essai en PJ avec cette fonction perso :

Function SommeBBdoc(Plage As Range)
Dim i%, j%: T = Plage
For i = 1 To UBound(T)
    If T(i, 2) = "" Then Exit For
Next i
SommeBBdoc = T(i, 1)
For j = i + 1 To UBound(T)
    If T(j, 2) = 1 Then SommeBBdoc = SommeBBdoc + T(j, 1) Else Exit For
Next j
End Function

 

[BBdoc31]

cela marche bien mais
J'ai corrigé le besoin mais est-ce que l'on peut avoir une macro pour que cela rentre en automatique avec les bonnes "bornes" pour la formule ?

 

[sylvanu]

pour que cela rentre en automatique avec les bonnes "bornes" pour la formule ?

Qu'entendez vous par là ?

 

[sylvanu]

Alors un peu au pif ...

Sub Calcule()
[K3:V23].Interior.Color = xlNone
[M3:M23].ClearContents: [P3:P23].ClearContents: [S3:S23].ClearContents: [V3:V23].ClearContents
For C = 3 To 9 Step 2
    For L = 3 To 23
        If Cells(L, C) = "" Then Début = L
        For L2 = L + 1 To 23
            If Cells(L2, C) = "" Then
                Fin = L2
                Cells(L2, 1.5 * C + 8.5) = Application.Sum(Range(Cells(Début, C - 1), Cells(Fin - 1, C - 1)))
                Cells(L2, 1.5 * C + 8.5).Interior.Color = Cells(L2, C).Interior.Color
                L = L2 - 1
                Exit For
            End If
        Next L2
    Next L
Next C
End Sub

 

[BBdoc31]

Merci bien, cela fonctionne au petit oignon.

 

[BBdoc31]

Question subsidiaire, pourquoi Début et Fin ne sont pas reconnues comme variable ?
Faut-il les déclaré préalablement ?

 

[sylvanu]

Bonjour,
Comme toutes les colonnes commençaient par un vide, Début était constant;
Si ce n'est pas le cas il faut calculer Début en rajoutant :

For L2 = 3 To 23
   If Cells(L2, C) = "" Then Début = L2
Next L2

et un "On error goto" dans le cas où aucune cellule ne serait vide ( cas colonne I de la PJ )

 

[BBdoc31]

en checkant les resultats, j'ai eu quelques problèmes, la somme entre les balises n'est pas bonne.

J'ai adapté la macro car mes données sont décalées un peu plus sur la gauche mais cela ne change en rien les resultats que l'on devrait trouvé

 

[sylvanu]

Bonjour,
Le problème se situe sur le calcul du début.
En PJ deux versions pour Feuil1 et Feuil2.

 

[BBdoc31]

Merci, testé et validé