Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

gestion de doublons d'un tableau

m.esig

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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

XLDnaute Barbatruc
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+
 

david84

XLDnaute Barbatruc
Re : gestion de doublons d'un tableau

Re
sinon, en utilisant un dictionnaire :
Code:
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+
 

Discussions similaires

Réponses
5
Affichages
199
Réponses
5
Affichages
283
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…