Discussion :

[Ninoushka]

Bonjour le forum,

Après pas mal de recherche et de bidouillage, je n'arrive pas à régler mon problème.
J'ai en colonne A une liste avec des valeurs numériques et je souhaiterai avoir en colonne N une liste de ces valeurs unique.
Il y a plein de solutions proposées en utilisant dictionnaire mais je n'arrive pas à le faire fonctionner sur des nombres et non du texte ou encore en proposant une liste dans une box avec menu déroulant mais pas pour coller cette liste dans ma colonne N.

Savez-vous quelle est la formule à utiliser ?

Merci d'avance,
Ninoushka.

PS. Actuellement j'utilise une formule dans une cellule mais ça alourdit le fichier et surtout il y a des risque de modification/suppression de la formule par les autres utilisateurs.

[joe.levrai]

Bonjour,

tu peux utiliser un filtre avancé, avec export des résultats sans doublon

exemple :

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
    With ThisWorkbook.Worksheets("Feuil2")
        .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).AdvancedFilter _
                                                        Action:=xlFilterCopy, _
                                                        CopyToRange:=.Cells(1, 14), _
                                                        Unique:=True
    End With
End Sub

tuto sur les filtres avancés : https://philippetulliez.developpez.c...dvancedfilter/

[Pierre Fauconnier]

Salut.

Utilise Power Query. Réalisé en 6 clics












Si par la suite les données sont modifiées en A, il suffira d'actualiser la requête Power Query, par exemple par clic droit sur une des cellules de N

[Igloobel]

Bonjour à tous

juste pour donner une autre façon de faire


c'est pas très joli je vous l'accorde mais on peut demander à l'assistant macro de le faire puis on change un peu et on obtient ceci en moins de 5mn

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
    Application.CutCopyMode = False
    Columns("A:A").Copy
    Columns("N:N").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveSheet.Range("$N$1:$N$65536").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("A1").Select
End Sub