IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Centrer Cellules Excel avec VB.Net


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Inscrit en
    Décembre 2010
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Décembre 2010
    Messages : 6
    Par défaut Centrer Cellules Excel avec VB.Net
    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

  2. #2
    Invité de passage
    Profil pro
    Inscrit en
    Décembre 2010
    Messages
    1
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2010
    Messages : 1
    Par défaut
    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

  3. #3
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    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é.

  4. #4
    Membre à l'essai
    Inscrit en
    Décembre 2010
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Décembre 2010
    Messages : 6
    Par défaut
    Salut Theze

    merci pour ta réponse, je teste ça

    Bonnes Fêtes.

  5. #5
    Membre Expert
    Profil pro
    Inscrit en
    Octobre 2006
    Messages
    700
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2006
    Messages : 700
    Par défaut
    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

Discussions similaires

  1. Réponses: 2
    Dernier message: 13/01/2008, 21h33
  2. excel avec vb.net
    Par kluster dans le forum VB.NET
    Réponses: 3
    Dernier message: 19/12/2007, 14h47
  3. Réponses: 9
    Dernier message: 27/06/2006, 16h55
  4. Comment lire le contenu en arabe d'une cellule excel avec
    Par deneche dans le forum Bases de données
    Réponses: 1
    Dernier message: 17/03/2006, 10h01
  5. Remplir les cellules Excel avec des variables VB
    Par rupeni dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 21/11/2005, 09h31

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo