Bonjour tt le monde

j'ai un problème au niveau de bordure de plage des cellules, j'ai essayé ce code
mais il le fait ca cellule par cellule et bord par bord (gauche, droit, haut, bas), ce qui allonge le temps d'execution car j'ai pas mal de ligne dans le fichier.

svp une idée

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
18
19
20
21
22
 
 Dim rngx As Excels.Range
                    rngx = xlWorkSheet.Range(xlWorkSheet.Cells(k + 4, iCol + 1), xlWorkSheet.Cells(k + 4, iCol + 1))
                    rngx.HorizontalAlignment = Excels.XlHAlign.xlHAlignCenter
                    rngx.Font.Bold = True
                    'Mettre des bordures
 
                    With rngx
                        .Borders(Excels.XlBordersIndex.xlEdgeRight).Color = 0
                        .Borders(Excels.XlBordersIndex.xlEdgeRight).LineStyle = Excels.XlLineStyle.xlContinuous
                        .Borders(Excels.XlBordersIndex.xlEdgeRight).Weight = 2
                        .Borders(Excels.XlBordersIndex.xlEdgeBottom).Color = 0
                        .Borders(Excels.XlBordersIndex.xlEdgeBottom).LineStyle = Excels.XlLineStyle.xlContinuous
                        .Borders(Excels.XlBordersIndex.xlEdgeBottom).Weight = 2
                        .Borders(Excels.XlBordersIndex.xlEdgeLeft).Color = 0
                        .Borders(Excels.XlBordersIndex.xlEdgeLeft).LineStyle = Excels.XlLineStyle.xlContinuous
                        .Borders(Excels.XlBordersIndex.xlEdgeLeft).Weight = 2
                        .Borders(Excels.XlBordersIndex.xlEdgeTop).Color = 0
                        .Borders(Excels.XlBordersIndex.xlEdgeTop).LineStyle = Excels.XlLineStyle.xlContinuous
                        .Borders(Excels.XlBordersIndex.xlEdgeTop).Weight = 2
 
                    End With