Tracer une diagonale dans une cellule excel

Version imprimable

Bonjour,
J'aimerai tracé une diagonale dans une cellule Excel.
J'ouvre Excel de cette Façon :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim appExcel As Excel.Application
        Dim Classeur As Excel.Workbook
        Dim Feuille As Excel.Worksheet
       ''Ouverture de l'application
        'appExcel = New Excel.Application
        appExcel = CreateObject("Excel.Application")
 
        appExcel.Visible = False
 
        ''Path du fichier à ouvrir
        Dim ExcelFile As String = Application.StartupPath & "\MatriceFeuilleStandPistolet.xlsx"
        ''Ouverture du fichier xlsx
        Classeur = appExcel.Workbooks.Open(excelfile)
        ''Premiere feuille du classeur
        Feuille = Classeur.Worksheets(1)

J'ai le code d'une macro enregistrée dans Excel je n'arrive pas à la convertir sous vb.net

Code:

1
2
3
4
5
6
7
Feuille.Range("X3").Select()
 
        With Selection.Borders(xldigonalDown)
            .LineStyle = xlcontinuous()
            .ColorIndex = xlAutomatic
 
        End With

J'ai fait pas mal de recherche et de test mais je sèche. :?
Merci d'avance à tous
FikoU :P

Bonjour,

Code:

1
2
 Dim rangeValue As Excel.Range = worksheet.Range(1, 1), worksheet.Cells(2, 2)
rangeValue.Borders(Excel.XlBordersIndex.xldigonalDown).LineStyle = Excel.XlLineStyle.xlcontinuous

26/03/2014, 13h49
fikou
Merci Sankasssss :P

Cela fonctionne comme ça :
Code:

1 2 Dim rangeValue As Excel.Range = Feuille.Cells(3, 8) rangeValue.Borders(Excel.XlBordersIndex.xlDiagonalDown).LineStyle = Excel.XlLineStyle.xlContinuous
J'ai une petite erreur "la variable feuille est utilisée avant qu'une valeur ne lui ait été assignée" :(

J'aimerai avoir le trait de la diagonale en plus épais

Je programme occasionnelement et à chaque fois je galère pour ce genre de chose. Ou peut ont trouver une doc sur ces commandes.

Merci encore
FikoU
26/03/2014, 15h11
Sankasssss

Citation:

Envoyé par fikou

Je programme occasionnelement et à chaque fois je galère pour ce genre de chose. Ou peut ont trouver une doc sur ces commandes.

Ça c'est une question que j'aime bien :D

Rien de plus simple, une petite recherche dans google avec comme terme : "Borders Interop excel"
Et j'obtiens tout ce qu'il faut.

Si je rajoute MSDN dans les termes de la recherche je trouve directement Border Interface me donne en dessous un lien vers Border members qui contient tout ce qui nous intéresses dont Border.Weight
26/03/2014, 15h39
fikou

:oops: OK merci,
J'ai fais des recherches mais apparement pas assez ciblées. :?
Je cherchais plutot des truc du genre "excel et vb.net". :rouleau:

FikoU