Bonjour,
comme formule, il y a un code vba qui élimine directement les lignes concernées : un extrait du Fichier de Doublons Macros - 1 - :
à placer dans un module, naturellement en fonction des plages, ajuster le Range :
Option Explicit
Option Private Module
'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 A
M = 1
N = 1
ReDim Preserve Tableau(M) 'tableau valeurs uniques colonne A
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
tu peux aller charger ce tutorial dans la centrale de téléchargement,
maintenant aussi si tu veux les identifier tu peux aussi aller télécharger l'autre fichier, tout en formules, Doublons
Voilà, c'était le moment Pub de Celeda !!! de XLD !!of course!!!
Celeda
