Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

VBA : obtenir les valeurs uniques d'un tableau

ayi

Existe-t-il une fonctionnalité intégrée en <a href="/questions/tagged/vba">vba</a> pour obtenir les valeurs uniques d’un tableau unidimensionnel ? Ou même simplement pour supprimer les doublons ?
Si non, comment pourrais-je obtenir les valeurs uniques d’un tableau ?

ayi_2

<a href="http://www.vbaexpress.com/forum/showthread.php?t=24917">Cette publication</a> contient 2 exemples. Je préfère le 2ème :
<pre><code class="lang-auto">Sub unique()
Dim arr As New Collection, a
Dim aFirstArray() As Variant
Dim i As Long

aFirstArray() = Array("Banana", "Apple", "Orange", "Tomato", "Apple", _
"Lemon", "Lime", "Lime", "Apple")

On Error Resume Next
For Each a In aFirstArray
arr.Add a, a
Next
On Error Goto 0 ' added to original example by PEH

For i = 1 To arr.Count
Cells(i, 1) = arr(i)
Next

End Sub

</code></pre>