Format de cellules excel (vb2005)

Soyez le premier à donner votre avis sur cette source.

Vue 37 460 fois - Téléchargée 1 316 fois

Télécharger le projet
Commenter

Description

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

Source / Exemple : 


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.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
crownstud
Messages postés
16
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
29 juin 2011
 -
parfait!!! merci
Signaler
dp_favresa
Messages postés
132
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
11 mai 2010
 -
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
crownstud
Messages postés
16
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
29 juin 2011
 -
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
cs_Usaf
Messages postés
9
Date d'inscription
vendredi 13 avril 2007
Statut
Membre
Dernière intervention
4 août 2008
 -
Merci c'est ce qu'il me fallait, mais je n'arrive plus a les enlevées!

Pouvez vous m'aider ???

Merci!
Signaler
XGuarden
Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012
 -
Moi je serait curieux de savoir comment change le format ou bien savoir quelle est le format actuelle. Genre text , decimal, date...
Afficher les 9 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (dp_favresa)