Alors ça, ça a l'air de fonctionner !
Mais je n'ai pas bien compris comment ça marchait ^^
C'est donc du VBA ?
Je pige ce qu'il faut modifier au niveau du contenu (occupant 1, 2, 3..), j'imagine que je peux rajouter autant de ligne que j'aurai de condition?
Pour lire les données (occupant), c'est " Range("E4:E" & DerLig) " ? je ne comprend pas trop comment indiquer de où à où il faut lire la donnée, et de où à où il faut appliquer la couleur.
Pour la couleur, je suppose que le nombre que l'on voit après Interior.Color c'est le code de la couleur?
Dsl je ne connais pas le VBA, même si ça ne semble pas trop compliquer à lire je préfère demander ^^
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLig As Long
If Target.Count > 1 Then Exit Sub
DerLig = Range("E" & Rows.Count).End(xlUp).Row
If Not Application.Intersect(Range("E4:E" & DerLig), Target) Is Nothing Then
With Target.Offset(, -4)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.NumberFormat = "General"
With .Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 6
End With
Select Case Target.Value
Case "occupant 1"
.Font.ThemeColor = xlThemeColorDark1
.Interior.Color = 255
Case "occupant 2"
.Font.ColorIndex = xlAutomatic
.Interior.Color = 16751052
Case "occupant 3"
.Font.ThemeColor = xlThemeColorDark1
.Interior.Color = 16711680
Case Else
.Interior.Pattern = xlNone
End Select
End With
End If
End Sub