fr832
XLDnaute Occasionnel
Bonjour j'utilise ce code, qui fonctionne trés bien mis a part que la dernière ligne saisie n'est pas soulignée par les pointillées.
Comment dois je modifier ?
Par avance merci.
Code:
Sub mfc()
With Range(Cells(DerLig, 1), Cells(DerLig, 7))
With .Borders
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlInsideVertical).Weight = xlHairline
End With
End Sub
Comment dois je modifier ?
Par avance merci.