Problème pour faire des bordures Excel/VB.net [Résolu]
cs_AlexTheDoctor23
Messages postés jeudi 7 décembre 2000Date d'inscription
8 avril 2010
Dernière intervention
-
18 juil. 2008 à 13:59 - Dernière réponse : Portos6772
Messages postés vendredi 25 février 2005Date d'inscription
14 janvier 2013
Dernière intervention
- 7 sept. 2010 à 13:30
J'ai un petit soucis, je n'arrive pas à faire mes bordures de cellule.
Voic mon code :
worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeLeft).ColorIndex = xlAutomatic
worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeBottom).ColorIndex = xlAutomatic
worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeRight).ColorIndex = xlNone
worksheet.Cells(25, 3).Borders(XlBordersIndex.xlDiagonalUp).ColorIndex = xlNone
Et quand je regarde les résultat, il n'y a que la bordure de gauche qui est présente.
With oSheet.Cells(5, 10)
.Borders(XlBordersIndex.xlDiagonalDown).LineStyle = Constants.xlNone
.Borders(XlBordersIndex.xlDiagonalUp).LineStyle = Constants.xlNone
With .Borders(XlBordersIndex.xlEdgeLeft)
.LineStyle = XlLineStyle.xlContinuous
.Weight = XlBorderWeight.xlThin
.ColorIndex = Constants.xlAutomatic
End With
With .Borders(XlBordersIndex.xlEdgeTop)
.LineStyle = XlLineStyle.xlContinuous
.Weight = XlBorderWeight.xlThin
.ColorIndex = Constants.xlAutomatic
End With
With .Borders(XlBordersIndex.xlEdgeBottom)
.LineStyle = XlLineStyle.xlContinuous
.Weight = XlBorderWeight.xlThin
.ColorIndex = Constants.xlAutomatic
End With
With .Borders(XlBordersIndex.xlEdgeRight)
.LineStyle = XlLineStyle.xlContinuous
.Weight = XlBorderWeight.xlThin
.ColorIndex = Constants.xlAutomatic
End With
End With
Changer la couleur ne suffit pas, faut jouer avec le .LineStyle (xlContinuous)
le plus simple, pour éviter ce genre de question... et d'enregistrer une macro, et d'observer le code généré lorsque du dote une cellule quelconuqe d'une belle bordure :
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 18/07/2008 par THOM31R
'
'
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Si je mets worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeLeft).LineStyle = xlContinous
VB.net me souligne xlContinous comme si c'était une variable qu'il ne connaissait pas.
Portos6772
Messages postés vendredi 25 février 2005Date d'inscription
14 janvier 2013
Dernière intervention - 7 sept. 2010 à 13:23
0
Merci
Bonjour, je reprend ce poste car j'ai eu les mêmes soucis, sauf que moi il ne reconnait pas "XlBordersIndex" et "Constants.xlAutomatic ", je pense avoir oublié quelque chose à un endroit ?
a aidé 102 internautes ce mois-ci