Centrer Cellules Excel avec VB.Net

Version imprimable

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:

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 :ccool:

23/12/2010, 10h50
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 ;)
23/12/2010, 22h04
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:

UsedRange.HorizontalAlignment = -4108

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

Code:

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:

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

Adapte à tes besoins.

Hervé.
24/12/2010, 10h31
machuca

Salut Theze

merci pour ta réponse, je teste ça ;)

Bonnes Fêtes. :D

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:

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:

castRange.HorizontalAlignment = xls.XlHAlign.xlHAlignCenter