Epaisseur des bordures

[maval]

Bonjour,

Suivant mon code ci dessous est il possible de régler l'épaisseur du trait horizontal ?

   Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count = 1 Then
    If Target.Column = 1 Then
      With Range("A" & Target.Row & ":H" & Target.Row) ' De la colonne A à H
       If Target.Value = "" Then 'Supprimer bordure si cellule A est vide
         .Borders.LineStyle = xlNone
         
        Else
                 .Borders.Weight = xlThick  'xlMedium
          .Borders.ColorIndex = 3
          .Borders(xlInsideVertical).LineStyle = xlDot
        End If
      End With
    End If
  End If
End Sub

je vous remercie d'avance

Cordialement

MV

 

[Dull]

Re : Epaisseur des bordures

Salut maval, le Forum

Regarde ce qu'en dit l'aide d'Excel Touche F1



donc remplacer dans ton code

.Borders.Weight = xlThick

par xlHairline pour très fin à xlThick pour large

Bonne Journée

 

[maval]

Re : Epaisseur des bordures

Bonjour Dull

Et merci de la réponse je pensé que l'on avait la possibilité de donner l'épaisseur désiré

Bonne fin d’après-midi

Maval