Format de cellules excel (vb2005)
Soyez le premier à donner votre avis sur cette source.
Vue 37 649 fois - Téléchargée 1 356 fois
Description
Exemple de formattage de cellules Excel (police, alignement, bordure) en VB2005
Ajouté surtout pour combler le manque de ressources VB2005
Ceci est un extrait d'un programme de gestion des employés, chargement de la feuille Excel depuis un DataSet.
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.
Codes Sources
A voir également
- Xlhalignleft
- Xlhalign - Meilleures réponses
- Format de cellule excel ✓ - Forum - VB.NET
- Formater des cellules excel ✓ - Forum - VB.NET
- Obtenir-avoir-recuperer le format d'une cellule EXCEL ✓ - Forum - VB.NET
- Format de cellule dans excel ✓ - Forum - VB.NET
- Problème sur format cellule excel ✓ - Forum - Visual Basic 6
Commentaires
Pour les différentes épaisseurs : xlHairline, xlThin, xlMedium, xlThick
Salutations
Pouvez vous m'aider ???
Merci!
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.