VBA Mettre des MFC

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 With

Je ne comprend pas pourquoi je ne pourrais pas définir de bordures de gauche et de droite ?

Merci d'avance

Bonjour tenders_vba

Les MFC concernant les "bordures" sont souvent capricieuses... Avec un fichier exemple ce serait plus facile de t'aider !

Rechercher des sujets similaires à "vba mettre mfc"