Macro et taille police ?

Bonsoir, ecnore moi, alors cette fois ci j'ai un autre petit soucis, quand j'utilise ce code, il me ralentit énormément ma macro, y-at-il un code plus leger ? le but étant d'avoir une police en taille 11, merci bien.

    Cells.Select
    With Selection.Font
        .Name = "Calibri"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With

Bonsoir,

Il te faut récupérer seulement les cellules non vide afin de réduire la plage et ôter les propriétés qui n'ont pas besoin d'être modifiées car la plage a déjà ces propriétés à la valeur voulue :

Sub Fonte()

    Dim Fe As Worksheet
    Dim LaPlage As Range

    Set Fe = ActiveSheet

    Set LaPlage = Plage(Fe)

    With LaPlage.Font
        .Name = "Calibri"
        .Size = 11
    End With

End Sub

Function Plage(Fe As Worksheet) As Range

    With Fe
        Set Plage = .Range(.Cells(1, 1), _
                    .Cells( _
                    .Cells.Find("*", .[A1], -4123, , _
                    1, 2).Row, _
                    .Cells.Find("*", .[A1], -4123, , _
                    2, 2).Column))
    End With

End Function

Hervé

Bonsoir,

Cells.Font.Size = 11

Amicalement

Claude

dubois a écrit :

Bonsoir,

Cells.Font.Size = 11

Amicalement

Claude

Aussi simple que ça ! merci à vous deux.