fonction eliminant les doublons

[hobine]

bonjour,
j'ai besoin de votre aide,
j'ai un tableau virtuel qui contient de doublon, j'aimerai savoir la fonction ou l'ecriture me permettant de l'eliminer les doublons. Je ne travaille pas dans une feuille mais plutôt dans vba excel
expl: mon tableau vietuell contient a,b, c, c, d, e, e a, r et j'aimerai plutot transformer ce nouveau tableau virtuel doit contenir a,b,c,d,e,r.

Merci de votre retour d'avance

 

[JCGL]

Re : fonction eliminant les doublons

Bonjour à tous,

Tu n'es pas sur le bon Forum (Forum / Forum Excel) :

Dans un module et si tes données sont en A :

Option Explicit
Sub Efface_Doublons()
Dim X As Integer
Range("A2:A65000").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
For X = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(X, 1) = Cells(X - 1, 1) Then Rows(X).Delete
Next X
Range("A1").Select
End Sub

A+ à tous