Remplissage de ligne avec conditions
Résolu
Fitz_Chev
-
Fitz_Chevalerie Messages postés 2 Statut Membre -
Fitz_Chevalerie Messages postés 2 Statut Membre -
Bonjour,
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:
Donc ensuite, pour surligner mes lignes j'ai utilisé ça:
Le problème c'est que rien ne se passe. Je suis certain que cela viens de ma condition
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.
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 = 13551615car 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.
A voir également:
- Remplissage de ligne avec conditions
- Partage de photos en ligne - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
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.