Macro sous.total dynamique

Version imprimable

24/02/2014, 11h54
stgsmc28

1 pièce(s) jointe(s)

Macro sous.total dynamique

Bonjour à tous !

N'ayant aucunes connaissances en programmation VB (mais j'apprends vite), je fais appel à vous car j'ai du mal à avancer sur ma macro.

Le but de la macro :

- Je rentre des lignes sur Excel
- Je lance la macro
- Les lignes sont triées par mois (1ère étape) (je pense avoir réussi, ça a l'air de marcher !)
- Dès qu'on change de mois, une ligne vide est automatiquement insérée entre deux (ça aussi !)
- Une formule sous.total (9 : somme) est insérée dans une des cellule de la ligne vide, et fait la somme des valeurs d'un mois concerné

La difficulté :

- J'aimerais que la formule sous.total (une par mois) prenne toutes les données du mois concerné et s'arrête d'elle même quand on change de mois. Elle en ferait de même pour chaque mois.
- Le but est qu'on puisse insérer des lignes et que la formule s'adapte d'elle-même.

Ce que j'ai fait :

- Voici en joint le modèle sur lequel je travaille et le code que j'ai créé, en m'inspirant de codes trouvés sur internets pour des problèmes à peu près similaires (que j'ai ensuite essayé de comprendre).
- Soyez indulgents, je découvre les macros Excel.

J'ai joint le fichier type sur lequel je travaille (en xls), ainsi que le code VBS (en txt), le tout dans un ZIP.

PS : dans un second temps, je mettrais en place une macro qui supprime les lignes créées, pour revenir à AVANT la macro.
J'essaierais d'abord de la faire avant de vous demander de l'aide.

Merci à tous pour votre aide,

Bonne journée à tous !

Pierre - stagiaire achats
24/02/2014, 12h59
electrons

Bonjour,

Pourriez-vous être un peu plus précis sur le contenu de 'Sous-Total" car je ne comprends pas :

"fait la somme des valeurs d'un mois concerné"?

Merci pour la précision...

A+

Voici ta source avec les sous-totaux (à condition que j'aie bien compris)

Code:

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
32
33
34
35
36
37
38
39
40
41
Option Explicit
Sub Activer_la_macro()
 
'Le descriptif de la macro est ici, en vert.
'Le descriptif concerne la ligne en dessous.
 
'Screen Updating = False --> éviter le refresh de l'écran, ralentissant l'ordinateur
 Application.ScreenUpdating = False
 
'Dim Ligne As Long --> Dimensions (Dim), toute la longueur possible (As long)
 Dim Ligne As Long, Tot As Long, TotRow As Long
 
'Range("A65536") --> va jusqu'à la dernière ligne possible du fichier excel
'Row to 3 --> commence les sauts de ligne à partir de la 3ème ligne (la 1ère est la légende, la 2nde le premier mois)
'Step -1 --> saut à partir de la ligne L-1 (celle juste au dessus)
' Tot = 0
 TotRow = Range("A65536").End(xlUp).Row + 2
 For Ligne = Range("A65536").End(xlUp).Row To 2 Step -1
   Tot = Tot + Cells(Ligne, 10)
'Si les données de la colonne "K" d'une ligne diffèrent des données de la colonne "K" de la ligne d'en dessous, alors
   If Range("K" & Ligne) <> Range("K" & Ligne - 1) Then
 
'Insertion d'une ligne entière
     If Ligne > 2 Then
       Range("K" & Ligne).EntireRow.Insert
       Cells(TotRow, 12) = Tot
       TotRow = Ligne + 1
       Tot = 0
     End If
'Fin de la condition
  End If
 
'Ensuite
Next
Cells(TotRow - 1, 12) = Tot
 
'Sélection de la case "L3"
Range("L3").Select
 
'Fin de la macro
End Sub

24/02/2014, 13h23
stgsmc28

@ Electrons :
La somme ne devait que concerner les valeurs d'un mois donné (et rien de plus) donc s'arrêter automatiquement en changeant de mois (d'où les sauts de ligne).

@ Defluc :
C'est exactement ce que j'espérais, c'est top ! Je m'attendais à quelque chose de beaucoup plus complexe, ça à l'air enfantin (mais je ne minimise pas ton travail !)
Maintenant, je vais décoder le "Tot", pour mieux comprendre !

Merci à vous pour votre implication, à peine une heure après un problème, c'est le top !

Bonne journée à vous !

Bonjour,

J'ai un peu simplifié le code, ici, le sous-total additionne les "quantités" pour chaque mois et les affiche sur la dernière ligne avant l'insertion de la ligne vide.

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Activer_la_macro()
 
'Screen Updating = False --> éviter le refresh de l'écran, ralentissant l'ordinateur
Application.ScreenUpdating = False
 
Dim LgDebut As Long 'Pour le numero de ligne de départ
Dim LgNext ' Numero de ligne qui suit celle en cours
 
Dim SsTotal As Integer 'Mémorise à chaque passage la valeur des quantités pour lemême mois
 
'Initialisation de svariables
SsTotal = 0
LgDebut = 2
LgNext = 0
 
While Range("K" & LgDebut).Value <> BLANK
 
   'exemple je mémorise la valeur Quantité de la ligne en cours
    SsTotal = SsTotal + Range("J" & LgDebut).Value
    LgNext = LgDebut + 1
 
    If Range("K" & LgNext) <> Range("K" & LgDebut) _
        And (Range("K" & LgNext) <> BLANK) Then
 
        Range("L" & LgDebut).Value = SsTotal
 
        'Insertion d'une ligne entière
        Range("K" & LgNext).EntireRow.Insert
 
        'Remise à 0 du sous total
        SsTotal = 0
        'Le numéro de Ligne doit être incrémenté de 2 car i y a l'insertion d'une ligne vide
 
        LgDebut = LgDebut + 2
 
    Else
 
        LgDebut = LgNext
 
    End If
 
Wend 'fin Boucle While...
 
'Sélection de la case "L3"
Range("L3").Select
 
'Fin de la macro
End Sub

Voila, l'espère que vous aurez plus facile pour la suite

Bonne journée.

25/02/2014, 16h45
stgsmc28

C'est top, avec des explications en plus :)

Merci Electrons !

J'ai encore pleiiiiiins de macros à mettre en place, mon stage va être long et instructif !

Pour apprendre, auriez-vous un truc, un livre, un site... ?

Merci encore à vous,

Pierre
25/02/2014, 17h27
78chris

Bonjour

Procéder ainsi va rendre la plage de données non triable, non filtrable, non utilisable pour un TCD...

Il est tout à fait possible, lorsque les données sont triées de faire des sous-totaux par formule...