Regrouper des lignes identiques avec calcul.

[Littleboy]

Bonjour,

Pour regrouper des lignes identiques je passe par un filtre élaboré, pour ça pas de problème.
Mon soucis est que je n'arrive pas a automatiser le calcul du temps passé pour chaque Ville (Voir le fichier joint : a savoir que c'est juste un exemple et que le vrai fichier est beaucoup plus volumineux).

Je veux qu'il recherche chaque durée dans la feuille "interventions" associé à une ville et qu'il en face la somme pour l'intégrer dans la feuil "regroupement".

Merci d'avance pour votre aide.

Littleboy

 

[hoerwind]

Re : Regrouper des lignes identiques avec calcul.

Bonjour et bienvenue dur le forum,

Essaie cette formule en regroupement!B2 et copie la vers le bas :

=SOMME.SI(Interventions!A$2:A$12;A2;Interventions!B$2:B$12)

 

[R@chid]

Re : Regrouper des lignes identiques avec calcul.

Bonjour et Bienvenu sur XLD,
en B2,

=SOMME.SI(Interventions!A:A;A2;Interventions!B:B)

@ tirer vers le bas
Format de Cellule, Personnalisée, [hh]:mm

Amicalement

Edit : Salut Hoerwind 🙂

 

[Littleboy]

Re : Regrouper des lignes identiques avec calcul.

Ouah quelle rapidité ...

C'est nickel
Merci à toi

 

[R@chid]

Re : Regrouper des lignes identiques avec calcul.

Bonjour,
et pourquoi pas un TCD il est très utile en cas de fichier volumineux
Amicalement

 

[job75]

Re : Regrouper des lignes identiques avec calcul.

Bonjour Littleboy, bienvenue sur XLD,

Formule en B2 de la feuille regroupement, à tirer vers le bas :

=SOMME.SI(Interventions!A:A;A2;Interventions!B:B)

Il est bien de mettre la colonne B au format [h]:mm:ss

Edit : salut hoerwind, R@chid 🙂 j'ai loupé le métro précédent 😛

A+

 

[Littleboy]

Re : Regrouper des lignes identiques avec calcul.

En effet, visuellement se sera parfait.

 

[laetitia90]

Re : Regrouper des lignes identiques avec calcul.

bonjour tous 🙂
par macro

Sub es()
Dim c As Variant, m As Object
Set m = CreateObject("Scripting.Dictionary")
With Sheets("Interventions")
For Each c In .Range("a2", .Cells(Rows.Count, "a").End(xlUp))
m(c.Value) = m(c.Value) + c.Offset(, 1).Value
Next c
End With
With Sheets("regroupement")
.[a2].Resize(m.Count, 1) = Application.Transpose(m.keys)
.[b2].Resize(m.Count, 1) = Application.Transpose(m.items)
End With
End Sub

 

[Littleboy]

Re : Regrouper des lignes identiques avec calcul.

je test je te tiens au courant.