Copier des styles

Le
Fredo(67)
Bonjour,

J'ai créé une macro pour appliquer des styles définis aux ce=
llules d'un nouveau classeur.

Mais, si ces style n'existent pas dans la feuille, la macros me renvoie une=
erreur.

Comment faire pour qu'à l'appuie d'une touche sur l'userform de ma mac=
ro, tous les style se créent dans mon ficher excel ?

Merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #26450299
Bonjour,
Je ne suis pas certain de comprendre la question...
Pour créer un Style dans un classeur :
La liste des propriétés du style est plus grande que
celles que j'ai utilisées.
'-------------------------------------------------------
Sub test1()
On Error Resume Next
'S'assure que le style n'existe pas avant
'de le créer...
ActiveWorkbook.Styles("TotoM").Delete
With ActiveWorkbook.Styles.Add("totoM")
.Font.Size = 18
.Interior.ColorIndex = 25
.Interior.ColorIndex = 10
'Ou .interior.color = ...
End With
End Sub
'-------------------------------------------------------
et pour affecter une plage de cellules d'un style particulier
Worksheets("Feuil1").Range("A1:A10").Style = "NomDuStyle"
MichD
Publicité
Poster une réponse
Anonyme