Supprimer les doublons sur une même colonne

Résolu/Fermé
siamens_duj Messages postés 192 Date d'inscription vendredi 20 juin 2014 Statut Membre Dernière intervention 14 février 2019 - 21 avril 2016 à 15:04
siamens_duj Messages postés 192 Date d'inscription vendredi 20 juin 2014 Statut Membre Dernière intervention 14 février 2019 - 22 avril 2016 à 12:48
Bonjour,

Sauriez-vous m'aider à supprimer les doublons sur une même colonne ?

Mon code me paraît bon mais ne fonctionne pas.

Sub doub()

Dim i As Long
Dim t As Long

i = 2
t = 3

Sheets("Cor").Select

Do While Cells(i, 1).Value <> ""

If Cells(i, 1).Value = Cells(t, 1).Value Then
Cells(t, 1).EntireRow.Delete
t = i + 1
Else

t = t + 1

End If

If Cells(t, 1).Value = "" Then
i = i + 1
t = t + 1
End If
Loop

End Sub


Merci pour votre aide.
A voir également:

5 réponses

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
21 avril 2016 à 16:05
Salut michel

XL>=2007 eh oui mais .....

Bonne journée
1