Bonjour à tous,

Lorsque je fais appel à une plage nommé dans une autre feuille, elle apparaît sans ses formats (Gras, fill, couleurs...)

De plus les blancs sont remplacés par des 0 car le format de la cellule est "devise(currency)".

J'ai essayé via vba mais j'ai une erreur 1004 méthode manquante.

QQun pourrait-il m'aider ?

Habiler

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
21
22
23
Sub OptBtn_Wag_4_Click()

'Plage nommée = "b"

    Range("b").Select
    'ActiveCell.Formula2R1C1 = "=b"
    
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Montserrat"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    
End Sub