Discussion :

[developpeur82]

Bonjour,

Voila mon bout de code. Mon probleme est que le texte que je selectionne ne veux pas se mettre au Font Name = "Comic Sans MS". Il bloque sur "Calibri"

Je ne sais pas si quelqu'un a deja une ce probleme pour m'aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sheets("Tank Sheet Report").Range("A8:Q" & (Sheets("Scratch Pad").Cells(15, 4).Value)).Select
       With Selection.Font
        .Name = "Comic Sans MS"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With

Merci,

[gFZT82]

Bonjour,

Lance l'enregistreur de macro et modifie directement la police d'une cellule sous Excel pour voir le code résultant.

Cordialement.

[developpeur82]

ok merci ca marche