Bonjour

J'ai un dossier avec des chiffres dans la colonne B via la requête ci-dessous j'insert une colonne en " C" et je compare les valeurs dans la colonne B afin de voir si il n'y a pas de doublons soi oui il m'indique DOUBLE si non il m'indique OK j'y arrive sur une cellule mais je n'arrive pas à le faire sur toutes les cellules de la colonne B

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
Sub Compare()
 
Dim DerCel As String
DerCel = Range("C3").End(xlDown).Address
Columns(3).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C3").Select
ActiveCell.FormulaR1C1 = "Double"
Range("C4").Select
 
If Range("B5").Value = Range("B4").Value Then
Range("C5").Value = "Double"
Else
Range("C5").Value = "OK"
End If
 
 
End Sub