Faire somme avec 2 boucles FOR

Résolu

Steeve999 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
Steeve999 Messages postés 16 Date d'inscription Statut Membre Dernière intervention - 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

A voir également:

Faire somme avec 2 boucles FOR
Downloader for pc - Télécharger - Téléchargement & Transfert
Supercopier 2 - Télécharger - Gestion de fichiers
Formule somme excel colonne - Guide
Somme si couleur - Guide
Faire 2 colonnes sur word - Guide

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

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 Statut Membre Dernière intervention

Merci beaucoup :)

Votre réponse