Bonjour,
J ai ajouté 2 conditions pour les mfc. Elles fonctionnaient avant de mettre la condition avec les bordures mais je n arrive pas à les faire fonctionner ensemble.
J ai mis With .FormatConditions(1) et With .FormatConditions(2) parce que ca mettais une erreur lorsque je mettais With .FormatConditions(9) et With .FormatConditions(10)
J'ai essayé de modifier un peu mais la seule chose que j obtiens c est que toutes les lignes de A à R se colorie d une seule couleur.
Ca concerne la derniere partie en italique souligné.
Peux tu jeter un coups d'oeil à l'occasion ?
With ft.Range("D6:D100") 'Sélection des plages où doit s'appliquer la MeF
'Ajoute une condition (Vrai lorsque la cellule est non vide)
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Supplay"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""RAS"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Crit"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Randstad"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""CDI"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""CDD"""
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""Aquila"""
With .FormatConditions(1)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
.Interior.Color = RGB(255, 80, 80) '.Interior.ColorIndex = 15 'Gris
End With
With .FormatConditions(2)
.Interior.Color = RGB(224, 255, 64)
End With
With .FormatConditions(3)
.Interior.Color = RGB(192, 192, 192)
End With
With .FormatConditions(4)
.Interior.Color = RGB(51, 255, 212)
End With
With .FormatConditions(5)
.Interior.Color = RGB(119, 255, 51)
End With
With .FormatConditions(6)
.Interior.Color = RGB(51, 255, 85)
End With
With .FormatConditions(7)
.Interior.Color = RGB(255, 153, 255)
End With
With ft.Range("A6:R" & derLn) 'Sélection des plages où doit s'appliquer la MeF
'Ajoute une condition (Vrai lorsque la cellule est non vide)
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6<>"""""
With .FormatConditions(8)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
With .Borders(xlTop)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.TintAndShade = 0
.Weight = xlThin
End With
'With ft.Range("A3:C100,E3:F100") 'Sélection des plages où doit s'appliquer la MeF
'Ajoute une condition (Vrai lorsque la cellule est non vide)
' .FormatConditions.Add Type:=xlExpression, Formula1:="=$G3=""équipe après-midi"""
' .FormatConditions.Add Type:=xlExpression, Formula1:="=$G3=""équipe matin"""
' With .FormatConditions(1)
'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
' .Interior.Color = RGB(255, 229, 204) '.Interior.ColorIndex = 15 'Gris
' End With
' With .FormatConditions(2)
' .Interior.Color = RGB(229, 255, 204)
' End With
'End With
End With
End With
End With