gestion de doublons d'un tableau

[m.esig]

Bonjour,
j'ai un tableau excel sous la forme suivante:

Ref Duree
1 4
2 2
3 3
3 1
4 5
5 2
3 1

l'objectif est de copier les donné dans un autre tableau de la façon suivante: toutes les reférences identique seront copier une seule fois en sommant la durée de toutes les lignes ayant la même référence. du coup mon nouveau tableau sera sous la nouvelle forme suivante.

Ref Duree
1 4
2 2
3 5(3+1+1)
4 5
5 5

merci d'avance pour vos conseils!

 

[david84]

Re : gestion de doublons d'un tableau

Bonjour,
la manière la plus simple sur 2007 :copier ta colonne A ailleurs=>onglet Données=>Supprimer les doublons.
Ensuite utiliser la fonction SOMME.SI pour obtenir les sommes.
A+

 

[m.esig]

Re : gestion de doublons d'un tableau

Ouuups, dsl j'ai oublier de préciser que je voulais réaliser sa avec du vba. je vous remercie pour votre aide mais je voudrais résoudre le problème avec des macros!!!

 

[david84]

Re : gestion de doublons d'un tableau

Re
Lance l'enregistreur de macro et fait la manipulation que je t'ai indiquée : tu obtiendra ainsi le code qu'il te faudra ensuite adapter.
Attention, ce code ne tournera que sur les versions 2007 et 2010.
A+

 

[Habitude]

Re : gestion de doublons d'un tableau

Bonjour

Envoie un fichier.....

 

[david84]

Re : gestion de doublons d'un tableau

Re
sinon, en utilisant un dictionnaire :

Sub DoublonsTotal() 'adapté de http://boisgontierjacques.free.fr/fichiers/Cellules/DoublonsTotal.xls
Set d = CreateObject("Scripting.Dictionary")
For Each c In Range("a2", Range("A" & Rows.Count).End(xlUp))
    d(c.Value) = d(c.Value) + c.Offset(, 1).Value
Next c
[A2:B1000].ClearContents
[a2].Resize(d.Count, 1) = Application.Transpose(d.keys)
[b2].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub

A adapter à ton fichier.
A+

 

[R@chid]

Re : gestion de doublons d'un tableau

Bonsoir @ tous,
pourquoi faire simple quand on peut faire compliquer???
Un TCD sera très utile dans ton cas
Amicalement

 

[R@chid]

Re : gestion de doublons d'un tableau

Bonsoir @ tous,
deux solutions sans passer par les formules...
Voir PJ
Amicalement