cadrer tableau

[arnaoke]

Bonjour,

je cherche actuellement à cadrer mon tableau, mais mon code génère une erreur, le voici :

'on cadre le tableau
With Sheets("Elaboration des contrats")
  [U]  .Range("A6:BE" & .Range("A6").End(xlDown).Row).Select[/U]

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
End With

pouvez vous m'aider ? (la ligne de l'erreur se trouve entre )

Excellement

Arnaoke

 

[néné06]

Re : cadrer tableau

Bonjour arnaoke

Chez moi cela fonctionne.
As tu bien la feuille?
"Elaboration des contrats"
Sinon ,où se situe l'erreur?

A+

 

[tbft]

Re : cadrer tableau

Bonjour

j'ai l'impression que c'est le .range de dedans qui n'aime pas.
de plus faire un empilement de with .... je ne sais pas si cela est possible....

Tiens moi au courant

 

[néné06]

Re : cadrer tableau

c'est vrai que pour sélectionner une zone , je préfère la méthode range(cells(x,y),cells(x1,y1)).select
n'a tu pas oublié sheets("ta feuil").select avant?
A+

 

[arnaoke]

Re : cadrer tableau

oui, c'est le .range qu'il n'aime pas ...

ce qui est étrange, c'est que le meme code placer dans la feuille "Elaboration des contrats" fonctionne, mais pas sur une autre feuille (pour cela que j'utilise le with soit dit en passant . . .)

 

[néné06]

Re : cadrer tableau

J'ai remarqué que
sheets("ta feuil").range(cells(x,y),cells(x1,y1)).select
n'est pas accepté mais
sheets("ta feuil").Select
range(cells(x,y),cells(x1,y1)).select
oui

A+