Bonjour,

Cette macro efface les lignes à chaque fois qu'est détecté des doublons dans la colonne C.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub supprimeDoublons()
MaCellule = ("C2")
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
 
While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
J'aimerai adapter cette macro pour qu'elle efface une des 2 lignes si et seulement si elle trouve 2 doublons dans la colonne C ET la colonne F de 2 lignes différentes.

Merci de votre aide.