XIBOOX
XLDnaute Nouveau
Bonsoir J'aimerai pouvoir colorer une cellule en fonction de la valeur et selon un critère
pour prévoir des activités dans un centre de loisir je dois distinguer dans un listing les enfants selon fille garçon mineur majeur avec quatre couleurs en l2 l3 m2 m3
si fille mineur alors l2.Interior.ColorIndex sinon m2.Interior.ColorIndex
si garcon mineur alors l3.Interior.ColorIndex sinon m3.Interior.ColorIndex
j'utilise le code suivant mais j'arrive pas a faire le "sinon"
pour prévoir des activités dans un centre de loisir je dois distinguer dans un listing les enfants selon fille garçon mineur majeur avec quatre couleurs en l2 l3 m2 m3
si fille mineur alors l2.Interior.ColorIndex sinon m2.Interior.ColorIndex
si garcon mineur alors l3.Interior.ColorIndex sinon m3.Interior.ColorIndex
Code:
Option Explicit
Dim plage As Range, cellule As Range
Private Sub Worksheet_Change(ByVal Target As Range)
Set plage = Application.Union(Range("J7:U33"), Range("V7:V33"))
For Each cellule In plage
cellule.Interior.ColorIndex = xlNone
Next
For Each cellule In plage
If cellule = "F" And cellule.Offset(1, 3) < 17 Then cellule.Interior.ColorIndex = [l2].Interior.ColorIndex
If cellule = "M" And cellule.Offset(1, 3) < 17 Then cellule.Interior.ColorIndex = [l3].Interior.ColorIndex
Next
End Sub
j'utilise le code suivant mais j'arrive pas a faire le "sinon"