XL 2016 fonction automatique de somme

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 9 Novembre 2023

• #2

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

VB:

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

 

Pièces jointes

• Classeur1 (3).xlsm

  17 KB · Affichages: 4

Vote positif 0 Vote négatif

B

BBdoc31

XLDnaute Nouveau

• 9 Novembre 2023

• #3

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 ?

 

Pièces jointes

• BBdoc.xlsm

  18.3 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 9 Novembre 2023

• #4

BBdoc31 à dit:

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

Cliquez pour agrandir...

Qu'entendez vous par là ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 9 Novembre 2023

• #5

Alors un peu au pif ...

VB:

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

 

Pièces jointes

• BBdoc.xlsm

  27.3 KB · Affichages: 4

Vote positif 0 Vote négatif

B

BBdoc31

XLDnaute Nouveau

• 13 Novembre 2023

• #6

Merci bien, cela fonctionne au petit oignon.

 

Vote positif 0 Vote négatif

B

BBdoc31

XLDnaute Nouveau

• 13 Novembre 2023

• #7

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Novembre 2023

• #8

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 :

VB:

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 )

 

Pièces jointes

• BBdoc (2).xlsm

  27.4 KB · Affichages: 2

Vote positif 0 Vote négatif

B

BBdoc31

XLDnaute Nouveau

• 14 Novembre 2023

• #9

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é

 

Pièces jointes

• BBdoc (2).xlsm

  41 KB · Affichages: 1

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Novembre 2023

• #10

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

 

Pièces jointes

• BBdoc (2) (1).xlsm

  38 KB · Affichages: 1

Vote positif 0 Vote négatif

B

BBdoc31

XLDnaute Nouveau

• 15 Novembre 2023

• #11

Merci, testé et validé

 

Vote positif 0 Vote négatif