Mettre toutes les bordures à une plage de cellules

bonjour à tous,

j'ai un tableau de taille variable et j'aimerais pouvoir mettre des bordures normal autour de toutes les cellules sélectionnées.

pouvez vous m'aider ?

Jawst

Bonjour :

Une fois que tu as sélectionné tes cellules :

Range(TA VARIABLE).Borders(xlDiagonalDown).LineStyle = xlNone
    Range(ta variable).Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

merci beaucoup

Si tout fonctionne comme tu le souhaite :

bonsoir atro, jawst et le forum

tu eux simplifier le code en mettant juste cette ligne

 Range(ta variable).Borders.LineStyle = 1

qui remplace toutes les autres

merci grisan29

en effet c'est beaucoup plus propre ^^