Menu

Faire somme avec 2 boucles FOR [Résolu/Fermé]

Messages postés
16
Date d'inscription
lundi 17 juillet 2017
Statut
Membre
Dernière intervention
24 avril 2018
- - Dernière réponse : Steeve999
Messages postés
16
Date d'inscription
lundi 17 juillet 2017
Statut
Membre
Dernière intervention
24 avril 2018
- 26 mars 2018 à 14:05
Bonjour,
J'ai des données chaque 1 min et je veux faire la somme de ces données par pas d'un 1h.

Dans chaque cellule "C" où le "Time" correspond au début de chaque heure c'est à dire ( 12:00 , 13:00 , 14:00, ... ) je veux avoir la somme de tous les valeurs,qui sont dans les Cellules "B", qui représentent les valeurs de chaque minutes.

Dans la colonne "D" il y a les minutes.

Voici le code que j'ai développé ci-dessous mais je reçois l'erreur suivante : "erreur d’exécution 1004 définie par l'application ou par l'objet."

Le lien du fichier : https://www.cjoint.com/c/HCtlmIol1Uq




Sub SOMME()
Dim i, DerLig As Long
Dim j As Integer
DerLig = Range("E2").End(xlDown).Row
For i = 1 To DerLig Step 1
If Range("E" & i) = 0 Then
For j = i To 60 Step 1
Range("C", i) = Range("C", i) + Range("B" & j)

Next j
End If
Next i
End Sub
            
Afficher la suite 

1 réponse

Messages postés
9025
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
20 juillet 2019
1597
0
Merci
Bonjour

On peut faire simple (1 seule boucle sur les lignes)

Sub total()
Dim li, DerLig As Long
Dim plage As Range, tot
DerLig = Range("E2").End(xlDown).Row
For li = 60 To DerLig - 59 Step 60
   Set plage = Range("B" & li - 59 & ":" & "B" & li)
   tot = Application.WorksheetFunction.Sum(plage)
   Range("C" & li).Value = tot
Next li
End Sub

Cdlmnt
Steeve999
Messages postés
16
Date d'inscription
lundi 17 juillet 2017
Statut
Membre
Dernière intervention
24 avril 2018
-
Merci beaucoup :)