Discussion :

[tibss]

Bonjour,

J'ai le tableau suivant, et je voudrais calculer la somme pour tous les types similaires de fleurs

ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Fleur      Prix    Nombre
tulipe      10    2
rose      8    2
rose      12    3
rose      16    4
orchidée      22    4

je voudrais obtenir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Fleur      Prix    Nombre
tulipe      10    2
Total      10    2
rose      8    2
rose      12    3
rose      16    4
Total      36    9
orchidée      22    4
Total      22    4

Quelqu'un saurait-il la procédure à suivre ?

Je peux avoir beaucoup de noms de fleurs différents, donc je ne peux pas faire l'identification par nom.

Merci d'avance pour votre aide !

[mercatog]

Ceci est prévu dans excel sans passer par vba
tu trie tes données sur la colonne fleurs
tu sélectionne ta plage de données
puis
Données>Sous totaux
c'est tout

PS: l'enregistreur de macro te donnera l'équivalent vba (à optimiser)

Edit: le titre est loin du contenu

[tibss]

Merci,

Je suis quand même passé par VBA pour coder cette petite fonctionnalité, voilà, si cela intéresse quelqu'un :

Avec k = nombre de lignes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
While j <> k + k
    i = 1
       'Tant que la condition ci-dessous est vraie, on boucle
       If Cells(j, 1).Value <> "total" And _
       Cells(j, 1).Value <> "" And _
       Cells(j, 1).Value <> Cells(j - 1, 1).Value Then
            For Each cellule In Range(Cells(2, 1), Cells(k + k, 1))
            If Cells(j, 1).Value = Cells(j + i, 1).Value Then i = i + 1
            Next
            Rows(i + j).Insert
            Cells(i + j, 1).Value = "total"
            Cells(i + j, 1).HorizontalAlignment = xlHAlignLeft ' texte centré à gauche
            Cells(i + j, 4).Value = Application.WorksheetFunction.Sum(Range(Cells(i + j - 1, 4), Cells(j, 4))) 'calculer les totaux
            x = x + Cells(i + j, 4).Value
            Range(Cells(i + j, 4), Cells(i + j, 5)).HorizontalAlignment = xlHAlignRight 'centrer horizontalement
            Range(Cells(i + j, 4), Cells(i + j, 5)).Interior.ColorIndex = 30 ' mettre la cellule en bordeau
            Range(Cells(i + j, 4), Cells(i + j, 5)).Font.ColorIndex = 2 ' mettre en blanc
            Range(Cells(i + j, 1), Cells(i + j, 5)).Select
            With Selection
            .Font.Bold = True 'mets en gras
            .Borders(xlEdgeTop).Weight = xlMedium
            .Borders(xlEdgeTop).ColorIndex = 30
            .Borders(xlEdgeBottom).Weight = xlMedium
            .Borders(xlEdgeBottom).ColorIndex = 30
            End With
            j = j + 1
 
            Else: j = j + 1
 
        End If

[mercatog]

Ci joint la proposition des sub-totaux (déjà excel permet cela) traduite en vba (à l'aide de l'enregistreur de macros)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim plage As Range
Dim LastLig As Long
LastLig = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Set plage = Range("A1:C" & LastLig)
With plage
    .RemoveSubtotal
    .Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    .Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3), Replace:=True, SummaryBelowData:=True
End With
Set plage = Nothing

Il faut trier d'abord les données (même pour ton code)