aide sur MFC

[fr832]

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.

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.

 

[JCGL]

Re : aide sur MFC

Bonjour à tous,

Peux-tu essayer en rajoutant +1 à DerL :

With Range(Cells(DerLig + 1, 1), Cells(DerLig + 1, 7))

A+ à tous

 

[fr832]

Re : aide sur MFC

Bonsoir JCGL super ça fonctionne impec je te remercie, cordialement