Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 12 PS5 Orange Livebox ChatGPT Mini PC
Entraide Applications Microsoft Office Excel Copier des styles

Copier des styles

1 réponse
Avatar
Fredo(67)
Bonjour,

J'ai cr=C3=A9=C3=A9 une macro pour appliquer des styles d=C3=A9finis 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'=C3=A0 l'appuie d'une touche sur l'userform de ma mac=
ro, tous les style se cr=C3=A9ent dans mon ficher excel ?

Merci
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichD
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