Discussion :

[mfranchi]

Bonjour,

Sur mon fichier excel, à chaque fois que la valeur de la colonne C est différente de celle qui la précède, une ligne est insérée.
Sur la ligne insérée, en colonne D, je souhaite sommer la colonne D de toutes les cellules ayant la même valeur en C.?
C'est la première fois que je travailles avec VBA donc je suis un peu perdue sur cette partie.

Pour l'instant j'ai ce qui suit :

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
Sub Insérer_Lignes()
 
Dim Lg As Long, i As Long
    Lg = Range("A65536").End(xlUp).Row
    Application.CutCopyMode = False
        For i = Lg To 2 Step -1
            If Range("c" & i - 1) <> Range("c" & i) Then
                Range(Range("c" & i), Range("c" & i + 0)).EntireRow.Insert
                Range(Range("c" & i), Range("c" & i + 0)).EntireRow.Interior.Color = RGB(225, 225, 225)
                'Sur case D du row inséré, sommer les valeurs de D du range sus dit
        Next i
    Rows("2:2").Select
    Selection.RowHeight = 12
    Rows("1:1").Select
    Selection.RowHeight = 80
 
End Sub

Si quelqu'un pouvait m'aider. ca serait super Sachant que je ne suis pas douée en informatique.