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