Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FORMAT DE CELLULES EXCEL (VB2005)


Information sur la source

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é: 24 709 / 1 040

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

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

Pour les "Membres Club", vous pouvez 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.

Commentaires et avis

signaler à un administrateur
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.

signaler à un administrateur
Commentaire de us_30 le 26/05/2006 23:05:26

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

Désolé...

signaler à un administrateur
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 ...

signaler à un administrateur
Commentaire de jejelebogosse le 04/07/2006 14:34:10

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

signaler à un administrateur
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...

signaler à un administrateur
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!

signaler à un administrateur
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

signaler à un administrateur
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

signaler à un administrateur
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...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



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
Temps d'éxécution de la page : 1,014 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.