Discussion :

[doudou8mc]

Bonjour ou rebonjour,

voilà , j'ai un tableau à 2 colonne (col A et col B) , dans la première il y a le nom du mois et dans la deuxième des valeurs correspondant à un stock.Je souhaite réaliser une macro qui parcours la colonne A et dès qu'on passe au mois suivant , elle calcule le cumul des valeurs de stock (col B) , puis fusionne la cellule; et puis on passe au mois suivant et ainsi de suite.
Voici le code pour fusionner les cellules de la colonne B, mais avant celà je souhaite d'abord calculer le cumul de toutes les valeurs (et je n'y arrive pas), puis apres fusionner et afficher le cumul pour le mois correspondant.

Code :

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

1
2
3
4
5
6
7
8
9
Dim DerLig As Long
    Application.DisplayAlerts = False
    Lig1 = 1 'Commencer à la ligne 1 à adapter
    With Sheets("Feuil3") 'nom de la feuille à adapter
        DerLig = .Range("A65536").End(xlUp).Row
        m = .Cells(Lig1, 1): p = Lig1
        For lig = Lig1 To DerLig + 1
            If .Cells(lig, 1) <> m Then
        .Range(.Cells(p, 2), .Cells(lig - 1, 2)).Merge

Quelqu'un peut il m'éclairer si possible ?

Merci d'avance

[mercatog]

c'est l'une des fonctionnalités intégrées d'Excel: sous.total (sans ou avec vba)

[doudou8mc]

oui , j'entends bien, mais ce tableau est le résultat d'une macro qui traite un autre fichier.xls que je reçois mensuellement.Ce que je souhaiterais c'est que le sous-total se fasse automatiquement sur ce tableau à chaque fois que j'ai des données supplémentaires (ou mis à jours).Donc ça m'arrangerai d'intégrer un code vba ds ma macro qui fasse le cumul , puis fusionne les cellules (et n'affiche que la valeur du cumul du mois ).

Merci

[mercatog]

Enregistreur de macro
et regarde ce qu'il donne pour le sous.total

[laetitia]

bonjour le fil le forum si tu tiens vraiment a passer par une macro!!!!!
mois en colonne E
occurences de fois en colonne F
somme en colonne G
a adapter

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
Sub es()
 Dim c, d, x As Variant, M As Object
Application.ScreenUpdating = False
Set M = CreateObject("Scripting.Dictionary")
For Each c In Range("A2", [a65000].End(xlUp))
M(c.Value) = IIf(M.exists(c.Value), M(c.Value) + 1, 1)
Next c
[e2].Resize(M.Count, 1) = Application.Transpose(M.keys)
[f2].Resize(M.Count, 1) = Application.Transpose(M.items)
[e1] = "mois": [f1] = "nb... mois": [g1] = "somme par mois"
For Each c In Range("e2", [e65000].End(xlUp))
For Each d In Range("a1", [a65000].End(xlUp))
If c = d Then x = x + d.Offset(0, 1).Value
Next d
Range("g65536").End(xlUp)(2) = x
x = 0
 Next c
End Sub

[doudou8mc]

je crois que j'ai mal formulé ma problèmatique.Je vous joins un fichier excel illustrant mon soucis.Je souhaite faire le cumul des valeurs dans la colonne "C" en fonction du nom du mois (colonne "A") , puis afficher les valeurs de cumul dans le tableau de la feuille 2; et celà sans modifier le tableau de la feuille 1.

Merci