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,
Partager