Déterminer les valeurs unique d'une colonne

**l.a.bdx** · 27/01/2010, 09h44

Bonjour
Par exp, j'ai la colonne suivante :
col1
A
A
A
B
B
C
Je voudraisdans une nouvelle colonne écrire les valeur unique, soit :
col2
A
B
C
Merci
@+

**rvtoulon** · 27/01/2010, 10h53

Salut,
a défault de formules magiques, (il y en a peut-être une mais je ne la connais pas, dsl), voici un code vba qui fait très bien ce que tu souhaites.
Il sélectionne toutes les cellules à partir de A1 jusque la dernoère cellule pleine de la colonne A, colle ces données dans la colonne B et applique un filtre pour supprimer les doublons. voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Macro1()
'Je copie toute les cellules pleines de la colonne A dans la colonne B
ActiveSheet.Range("A1:A" & Range("A65356").End(xlUp).Row).Copy Range("B1")
 
Application.CutCopyMode = False
'Je filtre les données et enlève les doublons
ActiveSheet.Columns(2).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

A+

**l.a.bdx** · 27/01/2010, 13h59

Salut
La macro recopie les toutes valeurs mais plante sur
ActiveSheet.Columns(2).RemoveDuplicates Columns:=1, Header:=xlNo

erreur execution 438
Propriété ou méthode non géré par cet objet

A+

**Daranc** · 27/01/2010, 14h34

admettons que tu aies tes valeurs en B5:B49 tu mets en E5 tri
et en dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(NB.SI($B$5:$B$49;"<"&E5);INDEX($B$5:$B$49;EQUIV(SOMME(NB.SI(E5:E$5;$B$5:$B$49));NB.SI($B$5:$B$49;">"&$B$5:$B$49);0);0);"")

tu valides par Ctrl+Shift+Entrée
et tu recopies vers le bas
(formule de Jean-marie)

**rvtoulon** · 27/01/2010, 14h54

slt et en remplaçant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Columns(2).RemoveDuplicates Columns:=1, Header:=xlNo

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("B1").RemoveDuplicates Columns:=1, Header:=xlNo

les deux fonctionnent bien chez moi.
A+

**l.a.bdx** · 27/01/2010, 17h12

J'ai la même erreur
peux tu m'envoyer un fichier avec ta macro
merci

**rvtoulon** · 27/01/2010, 17h56

Re,
j'ai testé ton fichier il fonctionne tres bien je sais pas quoi dire de plus.
moi j'utilise excel 2007, je sais pas si ceci à de l'importance.
dsl

edit: dans le code tu peux enlever cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CutCopyMode = False

**rvtoulon** · 28/01/2010, 18h27

Re, à tous,
après une petite recherche dans les tutos de Silkyroad j'ai vu que la commande "removeduplicates" fonctionne seulement avec excel 2007.
voici le lien verse ce tutos qui te montrera les différentes façons pour supprimer les doublons
http://silkyroad.developpez.com/excel/doublons/#LIV-F

A+

**BenjGe** · 28/01/2010, 19h29

si ton but est simplement d'obtenir la liste des valeurs de cette colonne sans doublon, tu peux utiliser un TCD en plaçant ce champ en zone de ligne

ou alors tu as le filtre élaboré.

Mais si tu dois faire ça très souvent il faudra pencher pour une autre solution.

Perso j'utilise la technique des rapports: modèle de classeur contenant une plage de données externes

En gros je laisse la base dans un classeur à part, à une adresse fixe sur l'ordinateur, puis dans un nouveau classeur j'utilise MS Query (données/données externes/créer une requête) pour rappatrier les données. MS Query permet de faire des requêtes sur un fichier et d'obtenir notamment une liste d'éléments sans doublon (Affichage/Propriétés de la requête/Valeurs distinctes).

Enfin on enregistre le classeur en modèle