Format de cellules excel (vb2005)

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

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)