Discussion :

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Unprotect

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

Merci beaucoup, Bonne journée

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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