Bonjour,

Je cherche une macro qui pourrait réaliser ceci :

Compter les heures de chaque date dates distinctes d'une autre colonne.

J'ai en colonne B les dates et en colonne H le temps.

Colonne B COLONNE H
01/01/2021 08:00 1:00
01/01/2021 08:00 1:00
01/01/2021 08:00 1:00
01/01/2021 09:00 2:00
01/01/2021 09:00 2:00
01/01/2021 09:00 2:00

Je voudrais faire la somme de chaque date unique, soit 3 : 00

J'ai essayer en vain avec cette macro :

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
Option Explicit
 
Dim dico As Object, f As Worksheet, i&
 
Sub ValeursUniques()
 
    Set dico = CreateObject("Scripting.Dictionary")
    Set f = Sheets("Feuil2")
 
    For i = 2 To f.Range("B" & Rows.Count).End(xlUp).Row
        dico(f.Range("B" & i).Value) = dico(f.Range("B" & i).Value) + Val(f.Range("H" & i))
        f.Range("AF1").Value = f.Range("S2").Value
    Next i
 
    Range("AC1").Resize(dico.Count, 1) = Application.Transpose(dico.keys)
    Range("AD1").Resize(dico.Count, 1) = Application.Transpose(dico.items)
End Sub
Merci pour votre retour.