Sujet Précédent Sujet Suivant

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.

3 réponses

Réponse 1 / 3
NLAH
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
 1
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
 1
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
Réponse 2 / 3
ccm81
Messages postés
10356
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 juin 2022
 2 299
Modifié le 22 mai 2017 à 17:44
Bonjour

Un exemple (méthode différente)
http://www.cjoint.com/c/GEwpPngWTkH

RQ. Un Tableau Croisé Dynamique (TCD) éviterait une macro

Cdlmnt
0
NLAH
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
 1
22 mai 2017 à 17:52
merci pour votre réponse, moi je voulais ajouter cette macro à un autre code et je peux pas savoir les constants pk il varient à chaque fois, que devrai je faire??
0
Réponse 3 / 3
ccm81
Messages postés
10356
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 juin 2022
 2 299
22 mai 2017 à 18:41
et je peux pas savoir les constants pk il varient à chaque fois, que devrai je faire?
Tu les déclares en variable dans ta procedure et tu leur affecte la valeur variable

Cdlmnt
0
NLAH
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
 1
22 mai 2017 à 18:57
mercii
0