Discussion :

[Bugzy1963]

Bonjour le forum

J'ai attrapé une routine sur le net pour tracer les bordures d'un tableau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
With rng
            For b = xlDiagonalDown To xlInsideHorizontal '
               Select Case b
                    Case xlEdgeLeft To xlEdgeRight '
                        .Borders(b).LineStyle = xlDouble
                        .Borders(b).Weight = xlThin
                    Case xlInsideHorizontal
                        .Borders(b).LineStyle = xlContinuous
                        .Borders(b).Weight = xlThin
                    Case xlInsideVertical
                        .Borders(b).LineStyle = xlContinuous
                        .Borders(b).Weight = xlThin
                    Case Else
                        .Borders(b).LineStyle = xlNone
                End Select
            Next b
      End With

Dans le "For b" le code semble passer par toutes les lignes possible.
Est-ce que quelqu'un pourrait me donner la séquence en ordre des lignes ?
C-A-D est-ce que XlEdgeRight vient avant XLEdgeTop ainsi de suite.

Merci

[mercatog]

Code :

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

1
2
3
4
5
With rng
     .Borders.LineStyle = xlContinuous
     .Borders(xlEdgeLeft).LineStyle = xlDouble
     .Borders(xlEdgeRight).LineStyle = xlDouble
End With

Edit

xlDiagonalDown 5 Bordure de l'angle supérieur gauche à l'angle inférieur droit de chaque cellule de la plage.
xlDiagonalUp 6 Bordure de l'angle inférieur gauche à l'angle supérieur droit de chaque cellule de la plage.
xlEdgeLeft 7 Bordure sur le bord gauche de la plage.
xlEdgeTop 8 Bordure en haut de la plage.
xlEdgeBottom 9 Bordure au bas de la plage.
xlEdgeRight 10 Bordure sur le bord droit de la plage.
xlInsideVertical 11 Bordures verticales de toutes les cellules de la plage, sauf celles situées en dehors de la plage.
xlInsideHorizontal 12 Bordures horizontales de toutes les cellules de la plage, sauf celles situées en dehors de la plage.

[Bugzy1963]

Merci