Faire somme avec 2 boucles FOR

Résolu/Fermé

Steeve999 Messages postés 16 Date d'inscription lundi 17 juillet 2017 Statut Membre Dernière intervention 24 avril 2018 - 19 mars 2018 à 12:41
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

A voir également:

Faire somme avec 2 boucles FOR
Somme si couleur - Guide
Somme excel - Guide
Supercopier 2 - Télécharger - Gestion de fichiers
2 comptes whatsapp - Guide
2 ecran pc - Guide

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié le 19 mars 2018 à 15:15

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
26 mars 2018 à 14:05

Merci beaucoup :)

Discussions similaires

NFS hot pursuit,peut on joue en écran partagé

programme qui n'affiche pas le mot secret

somme dans excel toujours =0

Excel, Formule =SOMME ne fonctionne pas

somme.si.ens critere entre deux dates

Discussions similaires

Newsletters