doublon

[apprenti]

Bonjour le forum

J'ai un tableau assez grand, et j'aimerai supprimer les doublons.
En fait j'aimerai supprimer la ligne entière si il y a un doublon dans la première colonne.

J'espere que vous pourriez m'aider

Merci d'avance

 

[Temjeh]

Bonjour

À adapter ...rép de pierrejean:

Met en Col B les valeurs de Col A sans doublons

Option Explicit
Sub sansdoublons()
Dim n As Integer
Dim lign As Integer
Dim col As Collection
Set col = New Collection
For n = 1 To Range('A65536').End(xlUp).Row
On Error Resume Next
col.Add Range('A' & n), CStr(Range('A' & n))
On Error GoTo 0
Next n
lign = 1
For n = 1 To col.Count
Range('B' & lign) = col(n)
lign = lign + 1
Next n
End Sub

A+

Temjeh

 

[porcinet82]

Bonjour a tous,

Comme j'etais en train de rédiger je poste quand meme. Une solution qui te permet directement de supprimer les doublons de la colonne A.

Sub sup_doublons()
Dim i%, k%, x As Boolean

For i = 1 To Range('A65536').End(xlUp).Row
    x = False
    nom1 = Range('A' & i).Value
    For k = i + 1 To Range('A65536').End(xlUp).Row
        nom2 = Range('A' & k).Value
        If nom2 = nom1 Then
            x = True
            Rows(k).Delete
            k = k - 1
        End If
    Next k
    If x = False Then Rows(k).Delete
Next i
End Sub

@+

 

[Temjeh]

Oui c'est mieux adapter a sa question:

Voici le combat entre toi et Hervé que je venaais juste de trouvé:

Lien supprimé

Temjeh

 

[porcinet82]

re,

Je me rappel tres bien de ce post ou j'avais apris pas mal de chose et ou je m'étais dis que j'allais me mettre au tableau, résultats, je n'ai toujours pas trouvé le courag de m'y mettre :sick: :sick:

@+

 

[apprenti]

Merci beaucoup à tous les deux

 

[YannLC]

Re : doublon

salut,

Post qui m interesse aussi !!! en quoi la premiere solution est moin performante que la deuxieme ?

Si je veux extraire les données qui se trouvent en face de chaque ligne de text qui se trouve dans les colonnes a coté ? sachant que chaque info en face de chaque doublon est la meme pour chaque doublon :

ADAM STEFAN ADS DUSSELDORF
ADAM STEFAN ADS DUSSELDORF
ADAM STEFAN ADS DUSSELDORF
ADAM STEFAN ADS DUSSELDORF
ADDISON GRAHAM ADG LONDON
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
ANCELLE JEROME ANJ PARIS
BATTALIA PAULO BAP MILAN
BATTALIA PAULO BAP MILAN
BATTALIA PAULO BAP MILAN
BATTALIA PAULO BAP MILAN
BATTALIA PAULO BAP MILAN
BATTALIA PAULO BAP MILAN
BATTALIA PAULO BAP MILAN

resultat dans le meme sheet ou en sheet voulu :

ADAM STEFAN ADS DUSSELDORF
ADDISON GRAHAM ADG LONDON
ANCELLE JEROME ANJ PARIS
BATTALIA PAULO BAP MILAN

A Plus.

 

[Darnel]

Re : doublon

Bonjour

Juste pour info au sujet des doublons, Il y a cette petite application bien pratique de MydearFriend: