Consommations véhicules par vba
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:
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 |
