Problème pour faire des bordures Excel/VB.net [Résolu]

cs_AlexTheDoctor 23 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 : Portos67 72 Messages postés vendredi 25 février 2005Date d'inscription 14 janvier 2013 Dernière intervention
- 7 sept. 2010 à 13:30
Bonjour tout le monde!

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.

Pouvez-vous m'aider?

Merci par avance....

Alex
Afficher la suite 

Votre réponse

6 réponses

Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 18 juil. 2008 à 16:45
+3
Utile
ajoutes le nom de l'Enum...

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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Renfield
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 18 juil. 2008 à 14:19
0
Utile
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
Commenter la réponse de Renfield
cs_AlexTheDoctor 23 Messages postés jeudi 7 décembre 2000Date d'inscription 8 avril 2010 Dernière intervention - 18 juil. 2008 à 15:04
0
Utile
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.

Quand je met:
      worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeLeft).ColorIndex = xlAutomatic
        worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeLeft).LineStyle = xlAutomatic
        worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeBottom).ColorIndex = xlAutomatic
        worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeBottom).LineStyle = xlAutomatic
        worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeRight).ColorIndex = xlNone
        worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeRight).LineStyle = xlNone
        worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeTop).ColorIndex = xlNone
         worksheet.Cells(25, 3).Borders(XlBordersIndex.xlEdgeTop).LineStyle = xlnone

J'ai un message d'erreur: "impossible de définir la propriété Linestyle de la classe Border".

Merci pour votre aide...

Alex
Commenter la réponse de cs_AlexTheDoctor
cs_AlexTheDoctor 23 Messages postés jeudi 7 décembre 2000Date d'inscription 8 avril 2010 Dernière intervention - 5 août 2008 à 11:50
0
Utile
Merci Beaucoup!!!!!!!!!!!!!!!!!!

Alex
Commenter la réponse de cs_AlexTheDoctor
Portos67 72 Messages postés vendredi 25 février 2005Date d'inscription 14 janvier 2013 Dernière intervention - 7 sept. 2010 à 13:23
0
Utile
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 ?
Commenter la réponse de Portos67
Portos67 72 Messages postés vendredi 25 février 2005Date d'inscription 14 janvier 2013 Dernière intervention - 7 sept. 2010 à 13:30
0
Utile
J'ai l'erreur suivante :

Le membre public 'XlBordersIndex' du type 'ApplicationClass' est introuvable.
Commenter la réponse de Portos67

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.