J'ai un petit souci sur une de mes macros.
Je cherche à identifier mes doublons sur ma colonne I et ensuite surligner toute la ligne en gris.
Pour identifier mes doublons j'ai fait une mise en forme conditionnelle sur ma colonne I. Je l'ai fait avec l'enregistrement de macro et ça me donne donc ça:
Columns("I:I").Select Selection.FormatConditions.AddUniqueValues Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority Selection.FormatConditions(1).DupeUnique = xlDuplicate With Selection.FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False
Donc ensuite, pour surligner mes lignes j'ai utilisé ça:
For i = [I65000].End(xlUp).Row To 2 Step -1 If Cells(i, 9).Interior.Color = 13551615 Then Rows(i & ":" & i).Interior.ColorIndex = 48 Next i
Le problème c'est que rien ne se passe. Je suis certain que cela viens de ma condition
If Cells(i, 9).Interior.Color = 13551615
car avec une autre condition cela marche.
Donc ma question est, quel est le problème dans ma condition, et comment y remédier?
Merci d'avance pour vos réponse.
PS: Je précise que j'ai besoin que ça sois sous forme de macro car cela viens s'intégrer dans une macro plus grande.
Bonjour,
Je me suis mal exprimé car je voulais dire qu'il fallait faire le même test que dans ta MFC mais "DupeUnique = xlDuplicate" est propre aux MFC.
Tu peux reprendre ta condition en déterminant les doubles ainsi :
For i = [I65000].End(xlUp).Row To 2 Step -1
If Application.WorksheetFunction.CountIf(Range("I2:I" & [I65000].End(xlUp).Row), Cells(i, 9).Value) > 1 Then Rows(i & ":" & i).Interior.ColorIndex = 48
Next i
Avec NB.SI(ta_plage;ta_cellule) tu comptes les occurrences et s'il y en a plus d'une c'est un double.
Car avec la première, j'ai une erreur 438 et la seconde me colorie toute mes lignes...
Je me suis mal exprimé car je voulais dire qu'il fallait faire le même test que dans ta MFC mais "DupeUnique = xlDuplicate" est propre aux MFC.
Tu peux reprendre ta condition en déterminant les doubles ainsi :
For i = [I65000].End(xlUp).Row To 2 Step -1 If Application.WorksheetFunction.CountIf(Range("I2:I" & [I65000].End(xlUp).Row), Cells(i, 9).Value) > 1 Then Rows(i & ":" & i).Interior.ColorIndex = 48 Next iAvec NB.SI(ta_plage;ta_cellule) tu comptes les occurrences et s'il y en a plus d'une c'est un double.