begin process at 2012 02 12 19:05:10
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VB.NET

 > FORMAT DE CELLULES EXCEL (VB2005)

FORMAT DE CELLULES EXCEL (VB2005)


 Information sur la source

Note :
9,75 / 10 - par 4 personnes
9,75 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VB.NET Source .NET ( DotNet ) Classé sous :cellule, excel, format, vb2005 Niveau :Débutant Date de création :24/05/2006 Date de mise à jour :29/06/2006 08:36:33 Vu / téléchargé :33 411 / 1 208
Auteur : dp_favresa

Ecrire un message privé
Site perso
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description

Exemple de formattage de cellules Excel (police, alignement, bordure) en VB2005
Ajouté surtout pour combler le manque de ressources VB2005

Source

  • With ds.Tables("Employés")
  • m = 10
  • For i = 0 To .Rows.Count - 1
  • k = CellDépart
  • For j = 0 To .Columns.Count - 1
  • If j = 0 Then
  • Feuille.Cells(m, 1) = .Rows(i)(.Columns(j))
  • ' Choix de la police
  • Feuille.Cells(m, 1).Font.Name = "Arial Narrow"
  • ' Taille de la police
  • Feuille.Cells(m, 1).Font.Size = 11
  • ' Caractères gras
  • Feuille.Cells(m, 1).Font.Bold = True
  • ' Couleur de fond (jaune clair)
  • Feuille.Cells(m, 1).Interior.ColorIndex = 36
  • End If
  • If j = 1 Then
  • Feuille.Cells(m, 7) = .Rows(i)(.Columns(j))
  • Feuille.Cells(m, 7).Font.Bold = True
  • m = m + 1
  • End If
  • If j > 1 Then
  • Feuille.Cells(m, k) = .Rows(i)(.Columns(j))
  • ' Alignement horizontal gauche, vertical centré
  • Feuille.Cells(m, k).HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft
  • Feuille.Cells(m, k).VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
  • k = k + 1
  • End If
  • Next j
  • ' Bordure inférieure des cellules (très fin)
  • If i < .Rows.Count - 1 Then
  • For k = 1 To 12
  • With Feuille.Cells(m, k).Borders(Excel.XlBordersIndex.xlEdgeBottom)
  • .Weight = Excel.XlBorderWeight.xlHairline
  • End With
  • Next
  • End If
  • k = CellDépart
  • m = m + 1
  • Next i
  • ' Bordure inférieure des dernières cellules (fin)
  • For k = 1 To 12
  • With Feuille.Cells(m - 1, k).Borders(Excel.XlBordersIndex.xlEdgeBottom)
  • .Weight = Excel.XlBorderWeight.xlThin
  • End With
  • Next
  • End With 
With ds.Tables("Employés")
                m = 10
                For i = 0 To .Rows.Count - 1
                    k = CellDépart
                    For j = 0 To .Columns.Count - 1
                        If j = 0 Then
                            Feuille.Cells(m, 1) = .Rows(i)(.Columns(j))
                            '   Choix de la police
                            Feuille.Cells(m, 1).Font.Name = "Arial Narrow"
                            '   Taille de la police
                            Feuille.Cells(m, 1).Font.Size = 11
                            '   Caractères gras
                            Feuille.Cells(m, 1).Font.Bold = True
                            '   Couleur de fond (jaune clair)
                            Feuille.Cells(m, 1).Interior.ColorIndex = 36
                        End If
                        If j = 1 Then
                            Feuille.Cells(m, 7) = .Rows(i)(.Columns(j))
                            Feuille.Cells(m, 7).Font.Bold = True
                            m = m + 1
                        End If
                        If j > 1 Then
                            Feuille.Cells(m, k) = .Rows(i)(.Columns(j))
                            '   Alignement horizontal gauche, vertical centré
                            Feuille.Cells(m, k).HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft
                            Feuille.Cells(m, k).VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
                            k = k + 1
                        End If
                    Next j
                    '   Bordure inférieure des cellules (très fin)
                    If i < .Rows.Count - 1 Then
                        For k = 1 To 12
                            With Feuille.Cells(m, k).Borders(Excel.XlBordersIndex.xlEdgeBottom)
                                .Weight = Excel.XlBorderWeight.xlHairline
                            End With
                        Next
                    End If
                    k = CellDépart
                    m = m + 1
                Next i
                '   Bordure inférieure des dernières cellules (fin)
                For k = 1 To 12
                    With Feuille.Cells(m - 1, k).Borders(Excel.XlBordersIndex.xlEdgeBottom)
                        .Weight = Excel.XlBorderWeight.xlThin
                    End With
                Next
            End With

 Conclusion

Ceci est un extrait d'un programme de gestion des employés, chargement de la feuille Excel depuis un DataSet.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

29 juin 2006 08:36:33 :
29 juin 2006 : pour répondre aux commentaires sur cet extrait, j'ajoute le source complet du programme.

 Sources du même auteur

Source avec Zip Source .NET (Dotnet) (VB 2005) CHARGER UN COMBOBOX À PARTIR D'EXCEL
Source avec Zip Source .NET (Dotnet) REQUÊTE SQL MULTI-TABLES CHARGÉE DANS UN DATAGRID ET EXPORTA...
EXEMPLE D'INSERTION DE DONNÉES SQL DANS EXCEL
Toutes les sources de dp_favresa

 Sources de la même categorie

Source .NET (Dotnet) MODIFICATION DATE DE WINDOWS EN VB.NET ET VBA par us_30
Source avec Zip Source avec une capture Source .NET (Dotnet) ENVOI DE MAIL AVEC PIÈCE JOINTE par EhJoe
Source .NET (Dotnet) AMUSONS NOUS AVEC UN LABEL ^^ par Adn56
Source avec Zip Source avec une capture Source .NET (Dotnet) UN NAVIGATEUR INTERNET EN VB.NET par azrti
Source avec Zip Source .NET (Dotnet) CONVERSION DE DEVISE MONAITAIRE VIA UN SERVICE WEB par bigmonkey7
Toutes les sources de la catégorie VB.NET

 Sources en rapport avec celle ci

FONCTION SOMME EN MACRO EXCEL par xgluk
Source avec Zip GÉRER MODIFICATION DE DONNÉE DANS CELLULE EXCEL (CODE VBA) par JM247L
Source avec Zip Source avec une capture MISE EN FORME CONDITIONNELLE POUR EXCEL par draluorg
LECTURE DE TEXTBOX LIGNE PAR LIGNE ET ENREGISTREMENT DANS LE... par spluiss
CONVERTIT UN NR DE COL. ET DE LIGNE EN CELLULE EXCEL par ols

Commentaires et avis

Commentaire de us_30 le 26/05/2006 23:04:18

Bonsoir dp_favresa,

Sans vouloir critiquer de manière virulante, je ne vois pas bien l'intérieur de ton code, surtout qu'il ne peut pas fonctionner privé du début du codage qui devrait servir à appeler l'objet Excel pour le pilotage... JE ne suis pas très sur qu'un extrait de codage, taillé dans le vif, soit vraiment utile à quelque chose... IL serait meilleur de faire plus court et complet (enfin fonctionnel), à mon avis...

Amicalement,
Us.

Commentaire de us_30 le 26/05/2006 23:05:26

oupss... lire intérêt au lieu de l'intérieur...

Désolé...

Commentaire de morsi le 28/06/2006 11:33:17

je suis du même avis que us_30 !
mon souci est de trouver comment ouvrir un objet Excel déja pour le piloter aprés ...

Commentaire de jejelebogosse le 04/07/2006 14:34:10

Ben moi c'est qu'il me fallait :-)

Commentaire de XGuarden le 15/12/2006 15:16:48

Moi je serait curieux de savoir comment change le format ou bien savoir quelle est le format actuelle. Genre text , decimal, date...

Commentaire de Usaf le 13/04/2007 23:43:53

Merci c'est ce qu'il me fallait, mais je n'arrive plus a les enlevées!

Pouvez vous m'aider ???

Merci!

Commentaire de crownstud le 01/07/2008 14:16:02 9/10

es t'il possible d'avoir un code pour tout le tour de la cellule et en differente épaisseur.Sinon c'est ce qu'il me fallait merci

Commentaire de dp_favresa le 01/07/2008 14:34:00

Pour le tour de la cellule, il faut jouer sur xlEdgeRight, xlEdgeLeft, xlEdgeBottom, xlEdgeTop
Pour les différentes épaisseurs : xlHairline, xlThin, xlMedium, xlThick
Salutations

Commentaire de crownstud le 01/07/2008 15:31:10

parfait!!! merci

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Format numérique d'une cellule excel [ par cuicui ] BONJOUR A tous, jr voudrai savoir comment tester si une cellule excel est au format numériquemerci Format de cellule Excel [ par pimousse75 ] Salut,j'exporte le contenu d'une listview vers excel et je voudrai formater une colonne au format numérique pour faire des calculs. Comment faire ?Mer Format de cellule excel [ par phasmes ] Je voudrai dans un prog en VB6 formater les cellules d'un classeur excel que j'ai ouvert en texte.Pourriez vous me dire comment faire ?Si y'a moyen de format cellule excel en texte (vb6) [ par lhonolulu ] bonjour,lors de l'export des résultats d'une requête sql, j'ai un problème de format. J'aimerai que toute mes cellules soient en format texte et non e format d'une cellule excel vers asp [ par patou06 ] Bonjour a tousactuellement j'utilise:Response.Write feuille.Cells(i,j)pour importer une cellule dans ma pagemais la mis en forme n'est pas sauvegarder changer un format de cellule excel en vba [ par stephG01 ] Bonjourje cherche a automatiser une mie en page sous excelet je voudrais modifier le format de certaine colonne .exemple :Columns("H:I").SelectSelecti VB6 et Excel format d'une cellule [ par JeffC1977 ] Bonjour à tous...Je veux me programmer un petit programe en VB6 qui utilise un fichier Excel...Dans mon fichier Excel ma variable (C97 par exemple) es prblme format sur recupération de donnée dans une cellule excel [ par triskel13 ] Bonjour,voici mon problème avec vb pour excel:Je veux récupérer le contenu d'une cellule dedans il y a une heure du type 10:30.Avec la commande suivan Cellule Excel dans vb [ par XGuarden ] Je travail sur un control personalisé qui poura reproduire une cellule excel avec validation et format et tout... Mais je désire etre certain de ne pa Centrer le contenu d'une cellule excel avec vb2005 [ par Zachs ] Bonjour j'aimerai pouvoir centrer du texte dans une cellule excel masi le code:  -&gt; Globals.Feuil1.Range("A1").HorizontalAlignment = xlCenter &lt;-


Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (16 Go)
Entre 0€ et 0€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Photo aérienne de Saintes Maries de la Mer
Photo Monument Valley Utah known as The Mittens 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,671 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)