macro supprimer les doublons

[NATHALIE]

bonjour a tous je seche j'ai une erreur à la ligne 13 (porte bonheur)
qui peux m'aider le but de cette macro est de supprimer les doublons dans la colonne choisie

merci à tous

Sub trouveDoublons()
Dim bas, lign, i, col, valeur, r
col = InputBox('Entrez la lettre de la colonne a dé-doublonner', , 'A')
'bas:n° de ligne la plus basse utilisée dnas la colonne col
bas = Range(col & '65535').End(xlUp).Row
'ReDim doublons(bas) As integer
For lign = 1 To bas
valeur = Range(col & lign).Value
'pour toutes les lignes situées en dessous de lign
For i = lign + 1 To bas
If valeur = Range(col & i).Value Then
doublons(i) = 1
End If
Next i
Next lign
For i = 1 To bas
'if doublons(i)= 1 then r = r & col & i & ','
If doublons(i) = 1 Then r = r & i & ':' & i & ','
Next i
's'il y a au moins un doublon
If Not IsEmpty(r) Then
'supprime la dernière virgule
r = Left(r, Len(r) - 1)
Ranger(r).Select
End If

 

[Visiteur]

Bonjour Nathalie
Est-ce que ceci te convient ?

Sub Doublons()
With Selection
.Range('A1').Sort Key1:=.Range('A1'), Order1:=xlAscending
Set currentcell = .Range('A1')
Application.ScreenUpdating = False
Do While Not IsEmpty(currentcell)
Set nextcell = currentcell.Offset(1, 0)
If nextcell.Value = currentcell.Value Then
currentcell.Delete (xlUp)
End If
Set currentcell = nextcell
Loop
End With
End Sub

Bonne fin de journée à toi
Marc

 

[NATHALIE]

merci marc
je vais essayer celle-ci, il faut dire que je suis un peu novice en macro alors.......

 

[NATHALIE]

C'est ok ca me supprime bien les doublons dans une colonne, mais est il possible qui me les selectionnes pour que je puisse verifier avant la suppression

Merci

 

[NATHALIE]

C'est ok ca me supprime bien les doublons dans une colonne, mais est il possible qui me les selectionnes pour que je puisse verifier avant la suppression

Merci

 

[Visiteur]

Nath,
J'ai compresser fichier sur doublons, mais 210K zippé alors si tu peux me communiquet ton mail car ici limité à 50K
Marc

 

[Visiteur]

Nath,
J'ai retrouvé le lien qui te donneras je n'en doute pas toutes les explications et comblera tes désirs les plus secrets (sur les doublons)
et Merci à Michel XLD

'http://www.excel-downloads.com/html/French/forum/messages/1_66002_66002.htm
''michelxld@yahoo.fr
'le 18.01.2004
'Doublons_Macros France/Québec.......2004
Cordialement à toi en te souhaitant une excellente soirée
Marc