Discussion :

[kinganasius]

bonjour !
j'utilise l'automation excel dans mon projet VB.net pour générer des tableaux excel à partir d'une flexgrid rempli à l'avance.
voici un extrait du code que j'utilise:

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
 
Dim excel_file As New excel.Application
excel_file.Workbooks.Add()
For i = 0 To flx_gener_paie.Rows - 1
            excel_file.Range("A".Trim + (i + 1).ToString.Trim).Value = mat
            excel_file.Range("B".Trim + Str(i + 1).Trim).Value = name
            excel_file.Range("C".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 2).ToString
            excel_file.Range("D".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 3).ToString
            excel_file.Range("E".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 4).ToString
            excel_file.Range("F".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 5).ToString
            excel_file.Range("G".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 6).ToString
            excel_file.Range("H".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 7).ToString
            excel_file.Range("I".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 8).ToString
            excel_file.Range("J".Trim + Str(i + 1).Trim).Value = flx_gener_paie.get_TextMatrix(i, 9).ToString
 
Next

j'aimerais savoir comment je peux activer les bordures de chaque cellule rempli ?
et merci

[supersnail]

Dans ton code,rajoute

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
23
24
25
26
 
Sub AjoutBordures(ByVal Ref As String,ByRef AppExcel As excel.Application)
 excel_file.Range(Ref).Select
    excel_file.Selection.Borders(5).LineStyle = -4142        
    excel_file.Selection.Borders(6).LineStyle = -4142
    With excel_file.Selection.Borders(xlEdgeLeft)
        .LineStyle = 1
        .Weight = 2
        .ColorIndex =  -4105
    End With
    With excel_file.Selection.Borders(xlEdgeTop)
        .LineStyle = 1
        .Weight = 2
        .ColorIndex =  -4105
    End With
    With excel_file.Selection.Borders(xlEdgeBottom)
        .LineStyle = 1
        .Weight = 2
        .ColorIndex =  -4105
    End With
    With excel_file.Selection.Borders(xlEdgeRight)
        .LineStyle = 1
        .Weight = 2
        .ColorIndex =  -4105
    End With
End Sub

Note,si le code marche pas,les constantes:
-xlEdgeLeft = 7
-xlEdgeTop = 8
-xlEdgeBottom = 9
-xlEdgeRight = 10

[joKED]

Si ton but est simplement d'encadrer une cellule ou un range, rien ne t'empeche d'utiliser la fonction BorderAround de l'objet Range. Cette fonction peut prendre en paramètre (d'après mes souvenirs) les types de bordure (haché, plein etc) et la couleur.