Sous-total toutes les 12 lignes

Modeste

XLDnaute Barbatruc

• 28 Décembre 2014

• #2

Re : Sous-total toutes les 12 lignes

Bonsoir VirtualDid et bienvenue,

Plus simple que ce que tu as fait et sans macro, personnellement, je ne vois guère ... sauf si le sous-total en question peut se faire dans une autre colonne (mais ça, je suppose que ce n'est pas prévu dans ton cahier des charges 🙂)

On peut aussi raccourcir ta formule de quelques malheureux caractères, mais ça ne change rien à l'affaire 🙁

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Décembre 2014

• #3

Re : Sous-total toutes les 12 lignes

Bonjour VirtualDid, bienvenue sur XLD,

Entrez en E2 cette formule :

Code:

=SI(MOD(LIGNES(D$2:D2);12);"";SOMME(D$2:D2)-SOMME(E$1:E1))

puis tirez-la vers le bas.

Vous pouvez supprimer la colonne A : elle ne sert à rien.

Edit : bonjour Modeste, pas rafraîchi.

A+

 

Dernière édition: 28 Décembre 2014

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2014

• #4

Re : Sous-total toutes les 12 lignes

Bonsoir, VirtualDid, Modeste 🙂

Pas sûr d'avoir compris, mais je tente 🙂
En E13, à recopier vers le bas :

=SI(MOD(LIGNE()-1;12)=0;SOMME(D14😀25);"")

Cliquez pour agrandir...

Edit : Bonsoir, Gérard 🙂

 

Dernière édition: 28 Décembre 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Décembre 2014

• #5

Re : Sous-total toutes les 12 lignes

Re, bonsoir Patrick,

La formule de Patrick est en effet plus simple, mais j'écrirais plutôt en E13 :

Code:

=SI(MOD(LIGNES(D$2:D13);12);"";SOMME(D2:D13))

A+

 

Vote positif 0 Vote négatif

V

VirtualDid

XLDnaute Nouveau

• 28 Décembre 2014

• #6

Re : Sous-total toutes les 12 lignes

Fichtre, quelle rapidité ! Je ne m'attendais pas à ça... Merci à tous ! Et merci pour vos messages de bienvenue, vous avez sans doute remarqué, c'était mon premier message, grand moment d'émotion ! 😀

@Modeste C'est vrai que le système utilisé me convenait bien à moi aussi mais je me doutais qu'une solution sans mon bricolage de chiffres devait bien exister...

@job75 Ca marche très bien ! Juste quelques minutes à prendre pour mieux comprendre... Et je me demande s'il n'y aurait pas moyen de simplifier encore, comme proposé par Victor21...

@Victor21 Merci pour ta contribution mais ça ne marche pas tout à fait, le résultat en ligne 13 concerne la somme des 12 lignes suivantes (!) ; je pense que ta formule devait être

Code:

=SI(MOD(LIGNE()-1;12)=0;SOMME(D2:D13);"")

Merci à tous !

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2014

• #7

Re : Sous-total toutes les 12 lignes

Re,

VirtualDid à dit:

@Victor21 Merci pour ta contribution mais ça ne marche pas tout à fait, le résultat en ligne 13 concerne la somme des 12 lignes suivantes (!) ; je pense que ta formule devait être

Code:

=SI(MOD(LIGNE()-1;12)=0;SOMME(D2:D13);"")

Cliquez pour agrandir...

Bien évidemment : j'ai malencontreusement recopié la formule présente en D25 ...

PS : L'utilisation de lignes() par Job75 au lieu de ligne() permet d'éviter la génération d'une erreur en cas d'insertion d'un nombre non multiple par 12 avant la ligne 2

 

Vote positif 0 Vote négatif

H

hbenalia

XLDnaute Occasionnel

• 28 Décembre 2014

• #8

Re : Sous-total toutes les 12 lignes

Bonjour a tous,

En essai, saisir la formule suivante en E2 et recopier vers le bas:

Code:

=SI($D3="";SOMME(DECALER($D$1;12*ENT(LIGNE()/12)+1;;LIGNE($D3)));SI(MOD(LIGNES($1:1);12)=0;SOMME(DECALER($D$1;LIGNE()-12;;12));""))

On ne trouve pas mieux que d'utiliser une nouvelle colonne...

Cordialement

 

Dernière édition: 28 Décembre 2014

Vote positif 0 Vote négatif

V

VirtualDid

XLDnaute Nouveau

• 28 Décembre 2014

• #9

Re : Sous-total toutes les 12 lignes

hbenalia à dit:

En essai, saisir la formule suivante en E2 et recopier vers le bas :

Code:

=SI($D3="";SOMME(DECALER($D$1;12*ENT(LIGNE()/12)+1;;LIGNE($D3)));SI(MOD(LIGNES($1:1);12)=0;SOMME(DECALER($D$1;LIGNE()-12;;12));""))

Cliquez pour agrandir...

Euh... Ben... Oui... C'est sympa d'avoir participé mais à la base, je voulais une formule simple ! 😱

Merci quand même ! 😉

 

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 28 Décembre 2014

• #10

Re : Sous-total toutes les 12 lignes

Bonsoir le forum,

En se basant sur la colonne A :

VB:

Sub Somme()
    Dim rng As Areas, rng1 As Range
    With Range("A2", Range("A" & Rows.Count).End(xlUp)).Offset(, 4)
        .Formula = "=if(a2<>a3,1,"""")"
        .Value = .Value
        On Error Resume Next
        Set rng = .SpecialCells(4).Areas
    End With
    On Error GoTo 0
    If rng Is Nothing Then Exit Sub
    For Each rng1 In rng
        With rng1
            .Cells(.Rows.Count + 1).Formula = _
            "=sum(" & .Offset(, -1).Resize(.Rows.Count + 1).Address & ")"
        End With
    Next
End Sub

klin89

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 29 Décembre 2014

• #11

Re : Sous-total toutes les 12 lignes

Bonjour,

Plus simple ça sera dur.
En E13 :

Code:

=SOMME(D2:13)

Sélectionner E2:E13 puis double-clic sur la poignée de recopie
eric

 

Vote positif 0 Vote négatif

V

VirtualDid

XLDnaute Nouveau

• 30 Décembre 2014

• #12

Sous-total toutes les 12 lignes : synthèse

Bonjour et merci pour vos réponses ! Ci-joint un fichier récapitulatif contenant la mise en application de nos propositions (sauf la macro-commande non testée), ça pourra servir à d'autres utilisateurs.

 

Pièces jointes

• Liste Sous-Total par Groupe de Lignes.xlsx

  54.4 KB · Affichages: 30

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 30 Décembre 2014

• #13

Re : Sous-total toutes les 12 lignes

Bonjour,

En fait les formules 2 et 3 (sur ta feuille) étaient destinées à être recopiées sur l'ensemble des lignes sans se poser de question, d'où leur apparence un peu plus compliquée.
eric

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Décembre 2014

• #14

Re : Sous-total toutes les 12 lignes

Bonsoir eriiiic,

Ta solution est de loin la meilleure.

Bonne nuit.

 

Vote positif 0 Vote négatif