tableau créé à partir de VBA, urgent!

Question

Salut,
en faite , voila mon grave probl&#233;me , il parait simple et pourtant il ne l'est pas, en effet, je travaille sous vba excel et je dois faire une page de compte rendu o&#249; je dois dessinner un tableau avec bordure.
Le probl&#233;me c'est que ce tableau que je cr&#233;e ne se finit pas, il s'arr&#234;te &#224; la colonne T, et pose un autre probl&#233;me puisque je lui demande de mettre en gras tout une ligne et il ne mets pas la ligne d&#233;sir&#233;e en gras mais la ligne inf&#233;rieur.
J'ai relu plusieur fois le prog et je suis vraiment coincer, surtout que le tableau que je le dessine &#224; la fin ou au d&#233;but &#231;a ne change rien, il poss&#233;de les m&#234;mes d&#233;faut par contre qd je prend une page vierge et que je lui impute mon prog de cr&#233;ation de tableau, il n'y a aucune erreur.
Please help me!
Merci d'avance,
Cordialement C&#233;dric

jpleroisse · Answer

Faudrait  pouvoir essayer ton code ???

jpleroisse

sobeit1 · Answer

J'aimerai bien pouvoir mais le code est trop long et qd je prend le code ind&#233;pendament du reste il marche: voici la partie qui ne marche pas ou que partiellement: 
    Sheets("feuil1").select
    Range("B4:AG40").Select
    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
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

merci

Tableau créé à partir de VBA, urgent!

2 réponses

Discussions similaires