Recupérer les valeurs d'une colonne sans doublons
Résolu
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.
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.
3 réponses
-
j'ai trouvée ce code mais j'arrive pas a l'adapter a mon besoin
https://www.cjoint.com/c/GEwlAqLftuM-
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
-
