Bonjour à tous,

Je crée une macro pour une mise en forme conditionnelle de la cellule B2.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub MFC()
    With Range("B2")
        'Supprime les MFC existantes
        .FormatConditions.Delete
 
        'Ajoute une condition (Vrai lorsque la cellule est non vide)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=NON(ESTVIDE($B$2))"
 
        With .FormatConditions(1)
            'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
            .Interior.ColorIndex = 15   'Gris
 
            'Affecte le style "gras" à la police
            .Font.Bold = True
                'Voir aussi:
                '.Font.Italic = True
                '.Font.Strikerkethrough = True
                '.Font.Underligne = True
 
            'Styles de ligne:
            'xlNone, xlSolid, xlDash, xlDot, xlDashDot, xlDashDotDot, xlGray50, xlGray75, et xlGray25.
            .Borders.LineStyle = xlContinuous
 
            'Couleur bordure
            .Borders.ColorIndex = 5     'Bleu
 
            'Epaisseur trait de la bordure
            .Borders.Weight = xlThin  'Autre constante disponible: xlHairLine
        End With
    End With
End Sub
Je voudrais pouvoir faire une bordure plus épaisse. J'essaye le style xlMedium ou xlThick mais j'ai une erreur :
"Impossible de définir la propriété Weight de la classe Borders".

Quelqu'un pourrait-il m'aider
Merci