problème macro bordures

Version imprimable

Bonjour à tou(te)s,

Par l'enregistruer, j'ai une macro que j'ai adapté pour définir les bordures de mon tableau mais une erreur se produit dès la première ligne, mon code n'est pas reconnu

"impossible de définir la propriété linestyle..."

Code:

1
2
3
4
5
6
7
8
9
10
11
12
.Range("a9:f" & x).Borders(xlDiagonalDown).LineStyle = xlNone
        .Range("a9:f" & x).Borders(xlDiagonalUp).LineStyle = xlNone
        .Range("a9:f" & x).Borders(xlEdgeLeft).LineStyle = xlNone
        .Range("a9:f" & x).Borders(xlEdgeTop).LineStyle = xlNone
        .Range("a9:f" & x).Borders(xlEdgeBottom).LineStyle = xlNone
        .Range("a9:f" & x).Borders(xlEdgeRight).LineStyle = xlNone
        With .Range("a9:f" & x).Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
        End With

Merci de vos réponses

Salut,
cela vient probablement de la définition (on non définition) de x, mais comme tu ne montre pas tout ....:aie:

J'ai testé avec ceci et ça passe bien, sauf pour le .TintAndShade que j'ai du enlever.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim x As Integer
x = 44
With ActiveSheet
.Range("a9:f" & x).Borders(xlDiagonalDown).LineStyle = xlNone
        .Range("a9:f" & x).Borders(xlDiagonalUp).LineStyle = xlNone
        .Range("a9:f" & x).Borders(xlEdgeLeft).LineStyle = xlNone
        .Range("a9:f" & x).Borders(xlEdgeTop).LineStyle = xlNone
        .Range("a9:f" & x).Borders(xlEdgeBottom).LineStyle = xlNone
        .Range("a9:f" & x).Borders(xlEdgeRight).LineStyle = xlNone
        With .Range("a9:f" & x).Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        '.TintAndShade = 0
        .Weight = xlThin
        End With
End With

03/03/2009, 13h41
casefayere

Bonjour Godzestla

Merci de ta réponse mais entre temps j'ai revérifié, j'ai même consulter la page

sans résultat. J'ai enfin trouvé mon problème, comme mes posts précédents, tout vient de ma procédure dans un évenement change (je suis buté)
j'ai résolu le problème temporairement en ajoutant des

Code:

ActiveSheet.Unprotect

partout où ca coince et en attendant d'adapter la solution de Gorfael

Merci beaucoup, Bonne journée

enfin une solution

Bonsoir,

Aprè avoir relu les propositions diverses, un peu partout, j'ai retenu cette solution qui marche jusqu'à présent, plus de problème pour travailler en VBA sur des feuilles protégées :
Code:

1 2 3 4 Private Sub Worksheet_Activate() ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True, UserInterfaceOnly:=True 'grace à ça, ca marche End Sub
Bonne soirée