ECXEL VBA : Liste des valeurs uniques des cellules visibles uniquement ?

Anonyme
2020-02-14T05:46:07+00:00

Bonjour à tous,

j'utilise ce petit bout de code pour copier les valeurs visibles d'une plage nommée sur une autre feuille....

Range("maplage").SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("listes").Range("A1")Savez-vous s'il est possible de l'améliorer pour n'obtenir que la liste des valeurs uniques des valeurs visibles ?En fait je parviens à le faire mais de façon lourde en multipliant les étapes...MerciDomi
Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

Réponse acceptée par l’auteur de la question

DanielCo 107.7K Points de réputation
2020-02-14T10:05:31+00:00

Bonjour,

Il faut utiliser un dictionnaire :

  Dim C As Range, Dico As Object

  Set Dico = CreateObject("Scripting.Dictionary")

  For Each C In Range("maplage").SpecialCells(xlCellTypeVisible)

    If Not Dico.exists(C.Value) Then Dico.Add C.Value, C.Value

  Next C

  Sheets("listes").Range("A1").Resize(Dico.Count) = Application.Transpose(Dico.items)

Cordialement.

Daniel

Cette réponse a-t-elle été utile ?

2 personnes ont trouvé cette réponse utile.
0 commentaires

1 réponse supplémentaire

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2020-02-14T10:24:53+00:00

    Merci beaucoup ;o)

    Cette réponse a-t-elle été utile ?

    0 commentaires