Discussion :

[Equus]

Bonjour,

Je developpe une macro pour Excel2000 en VB6.0 et rencontre un problème pour créer un style :

J'ai la fonction suivante qui fonctionne très bien.

Code :

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

1
2
3
 
ActiveWorkbook.Styles.Add Name:="st_Title", _
        BasedOn:=ActiveCell

Sauf que si je souhaite protéger ma feuille, l'erreur 1004 apparaît : je ne peux exécuter cette commande sur une feuille protégée.
Or il faut que je protège ma feuille.

Comment faire ?

Merci

[Megaxel]

Il faut que tu déprotèges" ta feuille juste avant de faire ta modif sur le style. Et tu la reprotèges juste après.

[Equus]

L'ajout de la ligne suivante ne change rien : toujours le meme message d'erreur.

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
 
ActiveSheet.Unprotect
 
    ActiveWorkbook.Styles.Add Name:="st_Title", _
        BasedOn:=ActiveCell
 
    With ActiveWorkbook.Styles("st_Title")
        .Font.Name = "Times New Roman"
        .Font.Size = 14
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
    End With
ActiveSheet.protect

[SfJ5Rpw8]

c'est ton classeur ou ta feuille qui est protégé ... essai :

Code :

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

ActiveWorkbook.Unprotect

[Equus]

C'est bien ma feuille.
Mais j'ai toute de même essayé de protéger mon classeur au lieu de ma feuille ( ActiveWorkbook.Protect) et de le déprotéger avant de créer le style ( ActiveWorkbook.Unprotect).
=> toujours le même pb

[Equus]

Alors, pas d'idée pour me débloquer ???

[Equus]

Dans le même ordre d'idée, la doc de VB indique que l'argument BasedOn de la methode Add est facultative. Pourtant si je ne le spécifie pas, j'ai une erreur d'execution....

Bizzard

[ouskel'n'or]

Hello,
Juste une idée comme ça (je n'ai aucun outil pour vérifier mon hypothèse) Tu ne penses pas que ton style est à créer indépendemment de ta cellule ? Tu peux vérifier en le créant sans référence à la cellule, et en n'affectant ce style à la cellule qu'ensuite.

Tu dis

A+

[ouskel'n'or]

Voilà, j'ai pu essayer : J'ai sélectionner la feuille entière, ai créé le style, la feuille entière a pris le style créé, je l'ai repassée au style normal, j'ai passé une cellule au style créé et ai pu protéger la feuille sans pb.

Le code ? Tu pourras sans pb le simplifier mais je te laisse tout :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Sub Macro1()
    ActiveSheet.Unprotect
    Cells.Select    'sélection de la feuille
    ActiveWorkbook.Styles.Add Name:="New style"
    With ActiveWorkbook.Styles("New style")
        .IncludeNumber = True
        .IncludeFont = True
        .IncludeAlignment = True
        .IncludeBorder = True
        .IncludePatterns = True
        .IncludeProtection = True
    End With
 
    'Début de la modification du nouveau style - tout n'est pas modifié
    ActiveWorkbook.Styles("New style").NumberFormat = "# ##0,00"
    With ActiveWorkbook.Styles("New style").Font
        .Name = "Roman"     'ici
        .Size = 10
        .Bold = True        'ici
        .Italic = False
        .Underline = xlUnderlineStyleNone
        .Strikethrough = False
        .ColorIndex = 3     'ici
    End With
    With ActiveWorkbook.Styles("New style")
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter   'ici
        .WrapText = True                'ici
        .Orientation = 0
        .IndentLevel = 0
        .ShrinkToFit = False
    End With
 
    'Modification de l'encadrement de la cellule
    With ActiveWorkbook.Styles("New style").Borders(xlLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With ActiveWorkbook.Styles("New style").Borders(xlRight)
        .LineStyle = xlDot
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With ActiveWorkbook.Styles("New style").Borders(xlTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With ActiveWorkbook.Styles("New style").Borders(xlBottom)
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
    ActiveWorkbook.Styles("New style").Borders(xlDiagonalDown).LineStyle = xlNone
    ActiveWorkbook.Styles("New style").Borders(xlDiagonalUp).LineStyle = xlNone
 
    'Modif du fond
    With ActiveWorkbook.Styles("New style").Interior
        .ColorIndex = 35
        .PatternColorIndex = xlAutomatic
        .Pattern = xlSolid
    End With
 
    'On remet toute la feuille au style normal
    Selection.Style = "Normal"
 
    'Selection de la cellule à modifir et effectation du style créé
    Range("F12").Select
    Selection.Style = "New style"
 
    'On re-protège la feuille
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Tu ne manqueras pas de nous donner des nouvelles

A+