wbExcel.Sheets(lngSheetNumber).Range(strRange).Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Enum eExcelConst xlToRight = -4161 xlDown = -4121 xlNone = -4142 xlEdgeLeft = 7 xlEdgeTop = 8 xlEdgeBottom = 9 xlEdgeRight = 10 xlContinuous = 1 xlThin = 2 xlAutomatic = -4105 xlInsideVertical = 11 xlInsideHorizontal = 12 End Enum
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub DrawGrid(appExcel As Object, wbExcel As Object, lngSheetNumber As Long, strRange As String)
wbExcel.Sheets(lngSheetNumber).Range(strRange).Borders(wbExcel.xlDiagonalDown).LineStyle = wbExcel.xlNone
...
End Sub