Discussion :

[Vadorblanc]

Bonjour
Je souhaite faire la consommation d'une flotte de véhicules
Les quantités de gazole sont en colonne H
Les kilométrages en colonne I
Cette macro insère une ligne à chaque changement d'immatriculation en colonne C et fait la somme des quantités de la colonne H ainsi que la somme des kilometrages de la colonne I
Je souhaiterais ajouter à cette macro la consommation en colonne J avec cette formule =Somme (H/I*100) les ??????? mis dans le code
Merci à vous

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 SousTotaux()
Dim i As Long
Dim Iprec As Long
Dim strNom As String
 
i = 4 'termine à la 4ème ligne du haut
'Boucle sur tant que la colonne B n'est pas vide
Do While Range("B" & i).Value <> ""
    'Si nom de la ligne <> du nom precedent
    If strNom <> Range("B" & i).Value Then
        If strNom <> "" Then
            'insere une ligne
            Rows(i).Insert
            'insere la somme
            Range("H" & i).FormulaLocal = "=somme(H" & Iprec & ":H" & i - 1 & ")"
            Range("I" & i).FormulaLocal = "=somme(I" & Iprec & ":I" & i - 1 & ")"
            Range("J" & i).FormulaLocal = "?????????????????????????????????"
            'mémorise la ligne de début e la prochaine section
            Iprec = i + 1
        End If
        Iprec = i
        strNom = Range("B" & i).Value
    End If
    i = i + 1
Loop
'insere la dernière formule
Range("B" & i).FormulaLocal = "=somme(B" & Iprec & ":B" & i - 1 & ")"
 
End Sub

[Vadorblanc]

J'ai trouvé

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 SousTotaux()
Dim i As Long
Dim Iprec As Long
Dim strNom As String
 
i = 4 'termine à la 4ème ligne du haut
'Boucle sur tant que la colonne B n'est pas vide
Do While Range("B" & i).Value <> ""
    'Si nom de la ligne <> du nom precedent
    If strNom <> Range("B" & i).Value Then
        If strNom <> "" Then
            'insere une ligne
            Rows(i).Insert
            'insere la somme
            Range("H" & i).FormulaLocal = "=somme(H" & Iprec & ":H" & i - 1 & ")"
            Range("I" & i).FormulaLocal = "=somme(I" & Iprec & ":I" & i - 1 & ")"
            Range("J" & i).FormulaR1C1 = "=IF(RC[-2]="""","""",RC[-2]/RC[-1]*100)"
            'mémorise la ligne de début e la prochaine section
            Iprec = i + 1
        End If
        Iprec = i
        strNom = Range("B" & i).Value
    End If
    i = i + 1
Loop
'insere la dernière formule
Range("B" & i).FormulaLocal = "=somme(B" & Iprec & ":B" & i - 1 & ")"
 
End Sub

[mercatog]

Bonsoir

Code :

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

Range("J" & i).FormulaR1C1 = "=RC[-2]/RC[-1]*100"

[Vadorblanc]

Bonsoir Mercatog
Merci à toi
Amitié