VBA pour sommer des valeures entre deux dates (nombreuses données)

**maxhor** · 11/04/2014, 15h29

Bonjour,

J'ai un fichier Excel qui contient deux colonnes une aux formats "date" toutes les heures et l'autre avec des valeurs de "pluie". Le but est de passer par VBA (si possible) pour qu'il me somme les valeurs de pluie par journée. Je connais la fonction SOMME.SI.ENS mais elle ne me permet pas de réaliser mes calculs "automatiquement"

Date Pluie (mm)
01/01/1993 05:00 0.8
01/01/1993 06:00 1.2
01/01/1993 07:00 0.0
01/01/1993 08:00 0.4
01/01/1993 .
01/01/1993 .
01/01/1993 .
02/01/1993 05:00 1.8
02/01/1993 06.00 0.2

Dans mon exemple, j'aimerais en sortie avoir un cumul des pluies ente le 01/01 06:00 et le 02/01 05:00 (inclus). Et que ce calcul se répète dans cette intervalle (de 06h à 06h sur la journée) sur toute ma feuille. (7ans de données au pas de temps horaires !!!!)

J'espère avoir été assez clair..
Par avance merci de l'aide

!

**mercatog** · 11/04/2014, 16h02

Un tableau croisé dynamique est fait pour ce genre de traitement.

**maxhor** · 11/04/2014, 16h06

Ah d'accord je pensais pas du tout passer par là, je vais tester ! c'est pas un problème le nombre important (trés important° de données?

Merci !

**Kimy_Ire** · 11/04/2014, 16h23

Bonjour maxhor,

Une petite macro rapide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub pluie()
Dim cell_ori As Range
Dim compteur As Double
Dim prev_date As Date
 
With Worksheets("Feuil6")
Set cell_ori = .Range("A1")
prev_date = cell_ori.Offset(1, 0) - 1
compteur = 0
For I = 1 To .Columns(1).Find("*", , , , , xlPrevious).Row
    If cell_ori.Offset(I, 0) = prev_date Then
        compteur = compteur + cell_ori.Offset(I, 2)
    ElseIf cell_ori.Offset(I, 0) = prev_date + 1 And Hour(cell_ori.Offset(I, 1)) < 6 Then
        compteur = compteur + cell_ori.Offset(I, 2)
    Else
        cell_ori.Offset(I - 1, 3) = compteur
        prev_date = cell_ori.Offset(I, 0)
        compteur = 0
    End If
Next I
 
End With
 
End Sub

Elle passe sur l'ensemble de ta colonne A place en colonne D la somme en fonction des critères que tu as décrit. Il y a beaucoup d'évolutions possible je pense.
Précisions complémentaires :
- il faut que ta colonne B soit en "heure"
- il faut que ta colonne C soit en "nombre"

Dis-moi si ca peut te convenir.

Cordialement,
Kimy