1/5 (9 avis)
Vue 38 093 fois - Téléchargée 1 385 fois
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
1 juil. 2008 à 15:31
1 juil. 2008 à 14:34
Pour les différentes épaisseurs : xlHairline, xlThin, xlMedium, xlThick
Salutations
1 juil. 2008 à 14:16
13 avril 2007 à 23:43
Pouvez vous m'aider ???
Merci!
15 déc. 2006 à 15:16
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.