VBA Mettre des MFC
t
Bonjour,
J'ai un outil dont les lignes sont régulièrement ajoutées supprimées, ce qui met le bordel dans mes mises en forme conditionnelle. J'ai donc décidé de réaliser une macros pour les réinitialiser automatiquement afin de gagner du temps à le faire à la main.
Petit problème je n'arrive pas à définir LineStyle de mes bordures dans mon cas :
Dim rng As Range, ws As Worksheet
Set ws = Feuil1
Set rng = ws.Range("U2")
With ws.Range(rng, rng.End(xlToRight))
.EntireColumn.FormatConditions.Delete
.EntireColumn.FormatConditions.Add xlExpression, Formula1:="=ET(AUJOURDHUI()>=U$2;AUJOURDHUI()<V$2)"
With .EntireColumn.FormatConditions(.EntireColumn.FormatConditions.Count)
.Font.Bold = True
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.color = -16776961
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.color = -16776961
End With
End With
End With
With ws.Range(rng.Offset(1, 0), ws.Cells(ws.Rows.Count, ws.Columns.Count))
With .FormatConditions.AddColorScale(ColorScaleType:=3)
With .ColorScaleCriteria(1)
.FormatColor.color = RGB(99, 190, 123)
.Type = xlConditionValuePercent
.Value = 0
End With
With .ColorScaleCriteria(2)
.FormatColor.color = RGB(255, 235, 132)
.Type = xlConditionValuePercent
.Value = 25
End With
With .ColorScaleCriteria(3)
.FormatColor.color = RGB(248, 105, 107)
.Type = xlConditionValuePercent
.Value = 100
End With
End With
End WithJe ne comprend pas pourquoi je ne pourrais pas définir de bordures de gauche et de droite ?
Merci d'avance
G
Bonjour tenders_vba
Les MFC concernant les "bordures" sont souvent capricieuses... Avec un fichier exemple ce serait plus facile de t'aider !