Recupérer les valeurs d'une colonne sans doublons

Résolu/Fermé
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 - 22 mai 2017 à 12:13
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 - 22 mai 2017 à 18:57
Bonjour,
je suis débutant,et je suis réellement dans l'impasse.
j'ai besoin de recuperer les noms des articles de la colonne A1 dans une autre feuille sans doublons
Je m'explique :
dans la colonne A, j'ai des noms des articles, chaque nom peut être répété
plusieurs fois. J'aimerais récupérer chaque nom une seule fois, et les
copier en colonne dans une autre feuille.toute en sommant la colonne B1
Exemple:
Colonne A: Colonne B

A 5
B 2
C 6
A 5
D 2
B 2


resultats:
colonne A Colonne B
A 10 (5+5)
B 4 (2+2)
C 6
D 2

je vous remercie.
A voir également:

3 réponses

NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 2
22 mai 2017 à 13:26
j'ai trouvée ce code mais j'arrive pas a l'adapter a mon besoin

https://www.cjoint.com/c/GEwlAqLftuM
0
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 2
Modifié le 22 mai 2017 à 16:53
j'ai essayé le code suivant:

Dim c As Range, Plage As Range, Ctr As Long
Sheets("Sheet1").Activate
Set Plage = Range("A1", Range("A65536").End(xlUp))
Ctr = 1
Sum = 0
For Each c In Plage
If Not IsNumeric(Application.Match(c.Value, Sheets("Sheet2").Range("A:A"), 0)) Or Ctr = 1 Then
Sheets("Sheet2").Range("A" & Ctr).Value = c.Value
Sheets("Sheet2").Range("B" & Ctr).Value = c.Offset(0, 1)
Ctr = Ctr + 1

End If
Next c

pouvez vous me corriger l'erreur
0