Discussion :

[Equus]

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 :

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

Merci

[ouskel'n'or]

Hello,

A tout hasard, as-tu essayé ça

Code :

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

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+

[Equus]

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

[ouskel'n'or]

Je n'ai pas d'erreur avec ça

Code :

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

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

[Equus]

J'ai l'erreur suivante :" impossible de définir la propriété Name de la classe Font"...

[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

[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

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

[ouskel'n'or]

Chez moi, Time ne prend pas de s

Code :

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

        .Font.Name = "Time New Roman"

et non

.Font.Name = "Times New Roman"

Tu dis

A+

NB - Sinon, je ne vois pas

[Equus]

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

[Equus]

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 :

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

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