Forcer style de texte dans excel

Bonjour,

J'utilise sur une colone le style widdings afin d'avoir des smeylis cependant quand je rajoute une ligne au decus je pers la police widdings et ce transforme en Arial, comment faire pour forcer cette police sur cette colone. Merci

Ps : J'ai fais ca le font size fonctionne mais pas celui pour l'ecriture :)

Code:

---

1 2	Range("K3").Font.FontStyle = Wingdings Range("K3").Font.Size = 22

---

Citation:

---

Envoyé par foxer98

Bonjour,

Code:

---

1 2	Range("K3").Font.FontStyle = Wingdings Range("K3").Font.Size = 22

---

---

Ce que tu eux faire aussi, c'est lancer un enregistrement de macro, changer ta police manuellement, et voir quel code a été enregistré ! Je pourrais le faire, mais je te laisse ce plaisir :mrgreen:

[Edit]

Dans ma grande bonté, je l'ai fait : Voici le code que j'ai obtenu, à toi de prendre ce dont tu as besoin

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 20/08/2007 par CORELOAD '   ' Range("A1").Select With Selection.Font .Name = "Webdings" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With End Sub

---

A+

Il me semble avoir un soucis une fois aussi avec les polices appliquées sur une colonne du style :

Code:

---

1 2 3

Columns("K:K").Select Selection.Font.Name = "Arial Narrow"

---

Et quand tu ajoutes une ligne ça merde en rechangeant le style à cause d'un copier-coller de données qui ramène son style avec lui.

Donc en fait plutôt que de me casser à ne copier que les valeurs, je copiais-collais tout ce dont j'avais besoin et j'appliquais mon style à la fin.

Merci pour toute vos réponce.

De rien on est là pour ça, si on sait on partage...