Bonjour

J'utilise ce code pour afficher les doublons de grosses listes Excel.

J'aimerais le modifier afin que les valeurs des cellules dans la colonne I passent à 1 lorsqu'un doublon est détecté.

Est ce possible ?

Merci par avance pour votre aide

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
Option Explicit
Sub Affich_Doublons_I()
Dim plage As Range
Dim Cel As Range
Dim L As Integer, lig As Integer, col As Integer, i As Byte
 
Application.ScreenUpdating = False
L = ActiveSheet.Range("A10000").End(xlUp).Row
 
Set plage = ActiveSheet.Range("A2:A" & L)
For Each Cel In plage
lig = Cel.Row - 1
col = 8
If Application.CountIf(ActiveSheet.Range("A2:A" & lig), Cel) > 0 Then Cel.Interior.ColorIndex = 6
Next Cel
Application.GoTo Reference:="R2C1"
Application.ScreenUpdating = True
End Sub