VBA Excel : creation de style

Version imprimable

Bonjour,
2 questions au sujet de la craetion de styles :

1 - 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.... Pourquoi ?

2 - Il ne semble pas possible de créer des styles et de protéger la feuille en même temps. Ni même de déprotéger - créer le style - et reprotéger la feuille (cf code ci). Il se produit une erreur 1004.
Pourquoi ?
Code:

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
Merci

Hello,

A tout hasard, as-tu essayé ça

Code:

1
2
3
4
5
6
7
8
9
10
    With ActiveWorkbook.Styles.Add(Name:="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

Inspiré de l'aide Excel

A+

09/01/2006, 14h11
Equus

Oui, et j'ai une erreur : Impossible de lire la propriété "Add de la classe Styles"...

Je n'ai pas d'erreur avec ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
With Application
    With .ActiveWorkbook.Styles.Add(Name:="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
End With

Tu dis

09/01/2006, 15h25
Equus

J'ai l'erreur suivante :" impossible de définir la propriété Name de la classe Font"...
09/01/2006, 15h30
Equus

Et j'ai toujours la première erreur : Impossible de lire la propriété "Add de la classe Styles"...

C'est vraiment surprenant car complétement contradictoire avec l'aide Excel
09/01/2006, 15h35
ouskel'n'or

Oui, effectivement, surtout que j'ai essayé et que je n'ai pas de pb avec le dernier code donné.
Supprime le style "st_Title"(certainement déjà créé) dans Excel (Format->Style...)
Ferme Excel et relance

Tu dis
09/01/2006, 17h30
Equus

J'ai fais cez que tu m'as recommandé : suppression du style , fermeture Excel. Mais Toujours le même pb : propriété Add non reconnue. Si j'ajoute le BasedOn , ça passe !!
09/01/2006, 17h54
ouskel'n'or

Chez moi, Time ne prend pas de s

Code:

.Font.Name = "Time New Roman"

et non

Citation:

.Font.Name = "Times New Roman"

Tu dis

A+

NB - Sinon, je ne vois pas
09/01/2006, 17h58
Equus

Helas toujours la même réponse .... Pourtant je suis bien VB6.0

Je viens de faire l'essai dans un autre fichier excel et cela fonctionne...
Alors que ce passe t il avec celui ci ?
Cela peut t-il provenir du fait que le Microsoft Scriting Runtime est activé (j'utilise la class Dictionnary)?

Ou bien du fait que ma création de styles est placée dans une fonction que j'appelle via Call ?

Code:

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
 
Function Define_styles()
   ActiveWorkbook.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
 
    ActiveWorkbook.Styles.Add Name:="st_Rubric", _
        BasedOn:=ActiveCell
    With ActiveWorkbook.Styles("st_Rubric")
        .Font.Name = "Times New Roman"
        .Font.Size = 10
        .Font.Bold = True
        .HorizontalAlignment = xlLeft
        .IncludeBorder = False
    End With
 
End Function

09/01/2006, 18h14
ouskel'n'or

Désolé mais je n'ai plus d'idée.

Il y aura bien quelqu'un pour répondre à ta dernière question. En dehors de VBA, je suis pas bon du tout.

Bonne chance

A+