Discussion :

[foxer98]

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 :

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

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

[mickdu90]

Bonjour,

Code :

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

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

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

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

[asxasx]

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

Code :

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

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.

[foxer98]

Merci pour toute vos réponce.

[asxasx]

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