Bonjour,
J'ai une colonne C et je doit comparer chaque cellule de cette colonne à la colonne A, si je trouve un doublon je supprime la cellule active de ma colonne C.Mon probleme est que le code ne reconnait pas les doublons.Auriez vous une idée?.Merci
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 Worksheets("feuil2").Activate 'TRI DOUBLONS COLONNE C AVEC A Dim rngTrouve As Range Dim strChaine As String Range("C1").Select strChaine = ActiveCell.Value Set rngTrouve = ActiveSheet.Columns("A:A").Cells.Find(what:=strChaine) While ActiveCell.Value <> "" If rngTrouve Is Nothing Then ActiveCell.Offset(1, 0).Select Else ActiveCell.Delete ActiveCell.Offset(1, 0).Select 'Cells.Find(what:=strChaine).Activate End If Set rngTrouve = Nothing Wend
Partager