Doublons

[renaud]

Bonjour,

je voudrais savoir comment faire pour supprimer les doulons d un tableau.
Les doublons sont a chercher dans la colonne 1, et j aimerais que les informations de la ligne ou se trouve le doublon soient supprimees.


merci

renaud

 

[Celeda]

Bonjour,

Voici une procédure (parmi d'autres du forum) issue de l'appli Doublons Macros qui répondait à une question sur les doublons, à adapter selon la colonne où se trouve les doublons, à placer dans un module (AltF11) :

'http://www.excel-downloads.com/html/French/forum/messages/1_62749_62749.htm
'michelxld@yahoo.fr le 24.12.2003
'Doublons_Macros France Mars 2004
'=================================================================
'Module pour la feuille Suppression 2
'=================================================================
Sub SupprimerLignesDoublons()
Dim Cell As Range
Dim Ligne As Integer, I As Integer
Dim M As Byte, U As Byte, N As Byte
Dim Tableau(), Tableau2()
Dim Resultat As String

Ligne = Range("B65536").End(xlUp).Row ' derniere ligne non vide colonne B
M = 1
N = 1
ReDim Preserve Tableau(M) 'tableau valeurs uniques colonne B
ReDim Preserve Tableau2(N) ' tableau pour numero de lignes doublons

Application.ScreenUpdating = False
For Each Cell In Range("B4:B" & Ligne)
U = 0
For I = 1 To M
If Cell = Tableau(I - 1) Then '
Tableau2(N - 1) = Cell.Row ' recupere numero de ligne quand un doublon est detecté
N = N + 1
ReDim Preserve Tableau2(N)
U = 1
End If
Next I

If Tableau(M - 1) = "" And U = 0 Then
Tableau(M - 1) = Cell ' remplissage tableau valeurs uniques si pas de doublon détecté
M = M + 1
ReDim Preserve Tableau(M)
End If
Next Cell

For I = N - 1 To 1 Step -1 ' boucle pour supprimer les lignes de doublons
Rows(Tableau2(I - 1)).Delete
Next I
Application.ScreenUpdating = True

End Sub

(ici colonne B)


à voir si cela peut t'aider

Celeda

 

[renaud]

OK merci.
J ai finalement utilise le filtre elabore.


renaud