Bonjour
Cette boucle insère une ligne à chaque changement de la colonne G (7ème) fait la somme mise en colonne H (8ème) des nombres de la colonne E (5ème).
Je souhaiterais que la somme H soit divisée par NBVAL, c'est à dire si 5 nombres additionnées en E, que ce soit divisé par 5, sachant que les nombres additionnés sont variables.
Merci


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
Sub Module11_Insere_Lignes_et_Somme_()
 
 
Dim oWsh As Excel.Worksheet
Dim i As Long, curTot As Currency, lDerCompte As Long
 
Set oWsh = ThisWorkbook.Worksheets(2)
lDerCompte = oWsh.Range("A" & Application.Rows.Count).End(xlUp).Row
 
If lDerCompte <= 2 Then Exit Sub
 
For i = oWsh.Range("A" & Application.Rows.Count).End(xlUp).Row To 2 Step -1
    If Cells(i, 7) <> Cells(i - 1, 7) Then ' 7 = insert ligne en fonction de changement col G
 
        curTot = curTot + oWsh.Cells(i, 5) ' Nombres à additionner pris en compte en col 5
 
        oWsh.Cells(lDerCompte, 8) = curTot 'somme des nombres additionnés mis en col 8
        lDerCompte = i - 1
        curTot = 0
        oWsh.Rows(i).Insert
    Else
        curTot = curTot + oWsh.Cells(i, 5)
    End If
 
Next i
 
Set oWsh = Nothing
 
End Sub