Creer des bordures à mon tableau

[youki]

Bonjour,
je désire installer par macro des bordures à une partie de feuille excel, je pensais utiliser ce code:

With 
Range("B8:G" & derLig ).CurrentRegion ' ou derlig est ma dernière ligne
        .BorderAround xlContinuous, xlThin, xlAutomatic
    End With

Seulement cela ne fonctionne que partielement -> le cadre fait le tour de ma zone sans faire de tableau(croisillon interieur).
Mais surtout mon cadre englobe aussi une partie des cases se trouvant au dessus exemple B7, B6... se retrouvent avec une ligne à droite.

 

[Moulinois]

Re : Creer des bordures à mon tableau

Bonjour,

Sélectionne ta zone puis :

With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

@+

 

[youki]

Re : Creer des bordures à mon tableau

Merci c'est impeccable.