Problème pour faire des bordures Excel/VB.netRésolu

Question

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

Renfield · Accepted Answer

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

Renfield · Answer

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

cs_AlexTheDoctor · Answer

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

cs_AlexTheDoctor · Answer

Merci Beaucoup!!!!!!!!!!!!!!!!!!

Alex

Portos67 · Answer

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 ?

Portos67 · Answer

J'ai l'erreur suivante :

Le membre public 'XlBordersIndex' du type 'ApplicationClass' est introuvable.

Problème pour faire des bordures Excel/VB.net

6 réponses

Votre réponse