MISE EN COULEUR CELLULE SELON CRITERE

CISCO

XLDnaute Barbatruc

• 21 Janvier 2018

• #2

Bonsoir

Et pourquoi ne pas le faire avec une MFC ?

@ plus

 

Vote positif 0 Vote négatif

M

moutchec

XLDnaute Occasionnel

• 21 Janvier 2018

• #3

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

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 22 Janvier 2018

• #4

Bonjour

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

@ plus

 

Pièces jointes

• PLAN2018.xlsx

  17.5 KB · Affichages: 69

Vote positif 0 Vote négatif

M

moutchec

XLDnaute Occasionnel

• 22 Janvier 2018

• #5

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.

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 22 Janvier 2018

• #6

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

 

Vote positif 0 Vote négatif

M

moutchec

XLDnaute Occasionnel

• 22 Janvier 2018

• #7

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

 

Vote positif 0 Vote négatif

M

moutchec

XLDnaute Occasionnel

• 22 Janvier 2018

• #8

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.

 

Vote positif 0 Vote négatif