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,