Aide Macro changement couleur cellule avec condition %
Hello,
Dans une colonne je cherche à changer la couleur des cellules en fonction de leur contenu.
J'y arrive avec la macro si dessous mais cela ne marche pas avec les pourcentages ...
Je voudrais que les cellules en % changent de couleur en fonction d'une condition ">" ou "<" à.
Exemple si : cell.value > "50%" Then cell.Interior.ColorIndex = 10
Mais cela ne fonctionne pas.
Voici la Macro actuelle
Sub ChangeColor()
lRow = Range("C" & Rows.Count).End(xlUp).Row
Set MR = Range("C2:C" & lRow)
For Each cell In MR
If cell.Value = "Yes" Then cell.Interior.ColorIndex = 10
If cell.Value = "Yes" Then cell.Font.ColorIndex = 10
If cell.Value = "No" Then cell.Interior.ColorIndex = 3
If cell.Value = "10%" Then cell.Interior.ColorIndex = 3
Next
End Sub
Merci d'avance à celui qui m'aidera.
Bonjour,
Peu-être que :
cell.value > 0.5...fonctionnera.
NB- A 18 messages, tu devrais au moins avoir compris l'utilisation des balises Code, et les utiliser !
Merci pour ta réponse mais ça ne fonctionne pas.
lorsque je rentre plusieurs occurence pour les % (car j'aurais plusieurs conditions, par ex >50%, <75% etc)
cela me coller TOUT en rouge ...
Sub ChangeColor()
lRow = Range("C" & Rows.Count).End(xlUp).Row
Set MR = Range("C2:C" & lRow)
For Each cell In MR
If cell.Value = "Yes" Then cell.Interior.ColorIndex = 10
If cell.Value = "Yes" Then cell.Font.ColorIndex = 10
If cell.Value < 50 Then cell.Interior.ColorIndex = 10
If cell.Value > 50 Then cell.Interior.ColorIndex = 3
Next
End Sub
Je vois que tu ne tiens compte d'aucune remarque...
Bonne soirée !
Je vois pas pourquoi tu dis ça ...
Avec 0.5 ça ne marche que si la valeur de ma cellule est =5% ...
Donc j'ai essayé avec une valeur de cellule à 50% ... dans la logique j'ai essayé avec 5, puis 50 ...
C'est pas que je tiens pas compte des remarque juste que je débite en VBA ...