Bordures de cellules fusionnées

[sev]

Bonjour,
à la fin de ce code je voudrais encadrer la cellule fusionnée avec une bordure de ce style :.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic

If derlig > 63 Then
        ' Remettre les cellules fusionnées pour les colonnes M,N,O,P
        For Lig = 63 To derlig
            With Range("M" & Lig & ":P" & Lig)
                .MergeCells = True
                .HorizontalAlignment = xlLeft
                .Locked = False
            End With

J'ai essayé avec l'enregistreur de macro sans succès !

 

[pierrejean]

Re : Bordures de cellules fusionnées

bonjour sev

A tester

With Range("M63:P" & derlig)
    .MergeCells = True
    .HorizontalAlignment = xlLeft
    .Locked = False
    .Borders.LineStyle = xlContinuous
    .Borders.Weight = xlThick
 End With

le For Lig = 63 To derlig est de trop !!!