Bonjour,
je cherche actuellement à cadrer mon tableau, mais mon code génère une erreur, le voici :
pouvez vous m'aider ? (la ligne de l'erreur se trouve entre )
Excellement
Arnaoke
je cherche actuellement à cadrer mon tableau, mais mon code génère une erreur, le voici :
Code:
'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
Dernière édition: