Bonjour,

je veux mettre une bordure inférieure sous une rangée de cellule (par ex A3 à A8)

J'ai commencé par regarder ce que faisait l'enregistreur de macro

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
bien lourd…

ensuite dans la doc j'ai trouvé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
activesheet.shapes.addline(beginx, beginy, endx, endy).select
ce qui me semble mieux

mais peut-on juste en donnant le nom la plage de cellules mettre cette bordure inférieure ?

merci