MISE EN COULEUR CELLULE SELON CRITERE

[moutchec]

Bonjour le forum,
bonjour à tous,
je cherche un code macro à mettre sur la feuille Planning pour mettre en évidence en colonne G, de préférence fond rouge et police jaune, les numéros de lots qui sont également repris sur la feuille "Doublons" en colonne A.

en fait toutes les données du classeur sont extraites par macro à partir d'autres classeurs du réseau et je souhaite ajouter le code en question au code déjà existant sur la feuille planning afin qu'une fois les données extraites, mon attention soit attiré sur les lots qui existent plusieurs fois.

merci d'avance pour votre aide.
cordialement.
Moutchec.

 

[CISCO]

Bonsoir

Et pourquoi ne pas le faire avec une MFC ?

@ plus

 

[moutchec]

Bsr, une suggestion de formule en mfc s'il vous plait

 

[CISCO]

Bonjour

Cf. en pièce jointe. Il faut adapter les plages utilisées à ton fichier réel, ou mieux, utiliser des plages dynamiques.

@ plus

 

[moutchec]

bonjour,
la formule fonctionne très bien mais la mise en forme conditionnelle est supprimée à chaque mise à jour du fichier puisque la macro va chercher les nouvelles données puis écrase les anciennes.
l'idéal serait donc une solution via macro.
merci.
Moutchec.

 

[CISCO]

Bonjour

Tu dois pouvoir faire du "copier valeur" dans la macro, et pas du "copier tout", ce qui aurait l'avantage de garder la MFC présente dans ces cellules.

@ plus

 

[moutchec]

bonjour,
j'essaye avec ce code mais qlqch bloque, merci de m'aider svp.

For z = 2 To Sheets("Planning").Range("G" & Rows.Count).End(xlUp).Row
For y = 2 To Sheets("Doublons").Range("A" & Rows.Count).End(xlUp).Row
If CStr(Sheets("Planning").Range("G" & z)) = CStr(Sheets("Doublons").Range("A" & y)) Then
Sheets("Planning").Range("G" & z).Interior.ColorIndex = 21
End If
Next

 

[moutchec]

ok, j'ai trouvé la solution.
il fallait enlever l'option explicit au début, je tatonne pour y arriver . qlq peut-il m'expliquer pquoi?

merci à @CISCO pour son intervention.
la solution vba est la meilleure.

Moutchec.