Discussion :

[retraite83]

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

[Jean-Philippe André]

Bonjour,
...

bien lourd…
....
ce qui me semble mieux

La notion de lourdeur étant toute subjective, cela reste néanmoins la bonne syntaxe et approche

Tu peux te limiter à cette partie du code en principe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

[retraite83]

merci je vais essayer

mais comment je spécifie la plage Ax:Fx ("A & x: F & x")

[Jean-Philippe André]

SAlut,

tu remplaces Selection dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Selection.Borders(xlEdgeBottom)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Range("A3:A8").Borders(xlEdgeBottom)

[retraite83]

ok nos messages se sont croisés
merci

[scalpa98]

La notion de lourdeur étant toute subjective, cela reste néanmoins la bonne syntaxe et approche

Tu peux te limiter à cette partie du code en principe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

Peut-on réaliser la même chose sans faire de sélection mais plutôt avec range ?
Du genre : Range("K8:K13").Borders.(xlEdgeBottom).ColorIndex = 2

merci
pascal

[Jean-Philippe André]

Bonjour,
j'ai répondu
https://www.developpez.net/forums/d1.../#post10393908