Valeurs distinctes vba

**matthedemon** · 22/05/2009, 15h11

Salut tout le monde.
Petite question, y aurait-il une propriété de range que permettrait de récupérer un range avec les valeurs sans doublon d'un colonne??

Je cherche un façon simple de récupérer les valeurs distinctes d'une colonne.

**Jean-Philippe André** · 22/05/2009, 15h15

Bonjour,
utilise le macro recorder pour avoir la mnip suivante :
- Sélection de la colonne en question
- Données>Filtre>Filtre élaboré>Extraction sans doublon
- Copier/Coller où tu voudras

**matthedemon** · 22/05/2009, 15h27

En fait je voudrai surtout avoir le code vba qui le permet, car c'est juste pour utiliser cette derrière et non la coller dans une feuille...

**ucfoutu** · 22/05/2009, 15h35

Bonjour,

touit pareil, donc, sauf le "coller"

**Pierre Fauconnier** · 22/05/2009, 16h52

Envoyé par ucfoutu

Bonjour,

touit pareil, donc, sauf le "coller"

Je doute que tu aies essayé cette "solution"...

Voici une solution parmi d'autres, avec l'utilisation d'un objet Dictionary, au cas où tu ne dois tester qu'une seule colonne

Code :

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

1
2
3
4
5
6
7
    Dim Dico As Object
    Dim Cellule As Range
 
    Set Dico = CreateObject("scripting.dictionary")
    For Each Cellule In Range("a2:a5")
        If Not Dico.Exists(Cellule.Value) Then Dico.Add Cellule.Value, Cellule.Value
    Next Cellule

A adapter à ton cas.

Si tu dois filtrer sur plusieurs colonnes, il serait judicieux d'utiliser le filtre élaboré vers une feuille cachée, si tu ne veux pas qu'on la voit.

Si tu veux vraiment te passer d'une plage de destination, tu peux alors mémoriser dans le dictionnaire uniquement l'adresse de la cellule, après avoir créé un test sur plusieurs colonnes, ligne par ligne