bonjour comment allez-vous ?
je souhaite réaliser une macro qui va coloriser les cellules d'une zone
selon un critère de calcul ( inférieur ou égal à 1/12ème de A34):
=> Case Is > ActiveCell.FormulaR1C1 = '=R34C1/12'
ce critère ne semble pas êre reconnu
J'ai essayé aussi:
=> Case Is < (A34 / 12)
sans succès...
selon vous cher lecteur, quelle est la bonne formule ?
cordialement
je souhaite réaliser une macro qui va coloriser les cellules d'une zone
selon un critère de calcul ( inférieur ou égal à 1/12ème de A34):
=> Case Is > ActiveCell.FormulaR1C1 = '=R34C1/12'
ce critère ne semble pas êre reconnu
J'ai essayé aussi:
=> Case Is < (A34 / 12)
sans succès...
selon vous cher lecteur, quelle est la bonne formule ?
cordialement
Code:
Sub coloriage()
Dim c As Range
For Each c In Range('ma_zone')
Select Case c
'critère qui ne semble pas marcher
Case Is > ActiveCell.FormulaR1C1 = '=R34C1/2'
'mise en rouge
c.Interior.ColorIndex = 3
Case Else
'sinon en vert
c.Interior.ColorIndex = 4
End Select
Next
End Sub