fonction eliminant les doublons

hobine · 10 Mars 2011

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 · 10 Mars 2011

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 :

VB:

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

fonction eliminant les doublons

hobine

XLDnaute Nouveau

JCGL

XLDnaute Barbatruc

Discussions similaires