Faire somme avec 2 boucles FOR Résolu

Question

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

ccm81 · Answer

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

Faire somme avec 2 boucles FOR

1 réponse

Votre réponse

Discussions similaires