Discussion :

[machuca]

Bonjour à tous,

j'ai créé un petit programme en VB.Net 2008 (environnement VB express).
Dans une de mes Forms, j'ai un Datagridview qui s'affiche (plusieurs colonnes (variable) et 500 lignes + 1 lignes pour le nom des colonnes).

Grâce à vous j'ai pu exporter les valeurs de mon Datagridview vers une nouvelle feuille de calcul Excel, de la manière suivante:

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
27
28
29
30
'---------------------------------------------------------------------- 
Imports Microsoft.Office.Interop.Excel 
Imports System.MissingMemberException 

Private Sub Vers_Excel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Vers_Excel.Click 

Dim c, l As Integer 
Dim xl As New Microsoft.Office.Interop.Excel.Application 

' Pour info: mon Datagridview se nomme "result". 

xl.Visible = True 
xl.Workbooks.Add() 
xl.Cells.Columns(1).ColumnWidth = 10 'je fixe la largeur de la 1ere colonne 
For c = 0 To result.Columns.Count - 1 
' j'affiche sur la 1ere ligne, les noms des colonnes du Datagridview 
xl.Cells(1, c + 1) = result.Columns(c).HeaderText 
Next 

' je remplis les cellules du fichiers excel avec les valeurs de result: 
For l = 0 To result.Rows.Count - 1 
   For c = 0 To result.Columns.Count - 1 
   ' je fixe la largeur des colonnes: 
        xl.Cells.Columns(c + 2).ColumnWidth = 21 
        xl.Cells(l + 2, c + 1) = result.Rows(l).Cells(c).Value 
   Next 
Next 

End Sub 
' ----------------------------------------------------------------------

Voilà ma question: je souhaiterai centrer le contenu des cellules du fichier excel généré.
Comment faire également pour faire des bordures autour des cellules, ecrire en gras pour le nom des colonnes, etc... ?

J'ai effectué de nombreuses recherches sur le forum, les tutos et les sources, en vain.
Si quelqu'un peut m'aider ce serait super

[waterworld]

Salut machuca

Sympa d'avoir mis un bout de code, ça m'a vachement aidé. Merci.
Je me pose la même question que toi pour la mise en page.
J'espere que quelqu'un nous filera de l'aide.

Bonnes fêtes à tous

[Theze]

Bonsoir,

Soit tu défini une plage (ce qui est fortement conseillé), soit tu utilise UsedRange de la façon suivante pour centrer toutes les cellules utilisées :

Code :

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

UsedRange.HorizontalAlignment = -4108

De la façon dont tu as codé, je suppose que tu travaille sur la feuille 1, donc :

Code :

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

Worksheets("Feuil1").UsedRange.HorizontalAlignment = -4108

Toutes fois, attention avec UsedRange car cette méthode réserve des surprises sur les feuilles où on travaille souvent (ce qui n'est pas ton cas puisque tu crée ta feuille).
Pour mettre en gras :

Code :

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

Worksheets("Feuil1").Range("A1:F1").Font.Bold = True

Adapte à tes besoins.

Hervé.

[machuca]

Salut Theze

merci pour ta réponse, je teste ça

Bonnes Fêtes.

[chrismonoye]

Bonjour,
il faut rendre les objets excel exploitable par VB.NET, voir :http://msdn.microsoft.com/fr-fr/library/3xxe951d.aspx
Et si possible Option Strict sur "On" pour un code précis.
Voici un début (je redécouvre Excel) donc à tester :

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
27
28
29
30
31
32
Imports xls = Microsoft.Office.Interop.Excel
 
Public Class Form1
 
    Private Sub Vers_Excel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Vers_Excel.Click
 
        Dim c, l As Integer
        Dim xl As New xls.Application
 
        xl.Workbooks.Add()
 
        For c = 0 To result.Columns.Count - 1
            ' j'affiche sur la 1ere ligne, les noms des colonnes du Datagridview
            '*** Cast de la cellule pour y accéder depuis VB.NET.
            Dim castRange As xls.Range = CType(xl.Cells(1, c + 1), xls.Range)
            Select Case c + 1
                Case 1 : castRange.ColumnWidth = 50
                Case 2 : castRange.ColumnWidth = 20
                    ' ETC....
            End Select
 
            castRange.Font.Bold = True
            castRange.Value = result.Columns(c).HeaderText
        Next
 
        ' je remplis les cellules du fichiers excel avec les valeurs de result: 
        '*** SUITE DU CODE
 
        '*** A placer à la fin pour éviter de visualiser le temps de chargement.
        xl.Visible = True
 
    End Sub

PS : pour le centrage des titres, c'était quand même le titre de la discussion :

Code :

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

castRange.HorizontalAlignment = xls.XlHAlign.xlHAlignCenter