Epaisseur bordure par VBA

Version imprimable

Bonjour à tous,

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

Code:

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

25/09/2019, 09h40
Menhir
Histoire de réduire le périmètre de recherche, essaye de voir ce que ça donne avec ces lignes :
Code:

1 2 .Borders(xlEdgeLeft).Weight = xlMedium .Borders(xlDiagonalDown).Weight = xlMedium
25/09/2019, 10h23
eriiic

Bonjour à tous,

Fais-le manuellement et tu verras qu'une MFC ne peut pas avoir de bordure épaisse, ce n'est pas dans la liste de choix.
A part changer la couleur ou mettre des pointillés pour la différencier, guère d'autre solution.
eric
25/09/2019, 11h23
boulser
Citation:
Envoyé par Menhir

Histoire de réduire le périmètre de recherche, essaye de voir ce que ça donne avec ces lignes :

Code:

1 2 .Borders(xlEdgeLeft).Weight = xlMedium .Borders(xlDiagonalDown).Weight = xlMedium
merci, mais j'ai le même message d'erreur.
25/09/2019, 11h24
boulser

Citation:

Envoyé par eriiic

Bonjour à tous,

Fais-le manuellement et tu verras qu'une MFC ne peut pas avoir de bordure épaisse, ce n'est pas dans la liste de choix.
A part changer la couleur ou mettre des pointillés pour la différencier, guère d'autre solution.
eric

Je me doutais de ce problème. Merci