Discussion :

[Profiler31]

Nouveau sur le site, Bonjour à tous.
Je souhaite pouvoir modifier la Police par défaut des Commentaires dans Microsoft 2019 (Mac) ; j'ai trouvé une piste en créant une VBA pour mes fichiers Excel concernés.
Je ne suis jamais entré dans le VBA
J'ai tenté de la créer mais j'ai un message qui "me jette". Voici le "texte" que j'ai trouvé et que j'ai adapté à mon besoin ainsi que le message d'erreur.
Un spécialiste du VBA pourrait-il me dire ce qui ne va pas, corriger ou me donner des pistes.
Cette formule devait s'appliquer à un fichier qui comporte une douzaine de feuilles qui ont toutes de commentaires.
Merci d'avance pour votre concours.
Cordialement

Profiler 31 (Toulouse)

[Nain porte koi]

Hello,

pour mac je ne sais pas, mais pour PC ça ça fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub FormatAllComments()
Dim xWs As Worksheet
Dim xComment As Comment
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        With xComment.Shape.OLEFormat.Object.Font
            .Name = "Times New Roman"
            .Size = 14
        End With
    Next
Next
End Sub

[Profiler31]

Hello,

pour mac je ne sais pas, mais pour PC ça ça fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub FormatAllComments()
Dim xWs As Worksheet
Dim xComment As Comment
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        With xComment.Shape.OLEFormat.Object.Font
            .Name = "Times New Roman"
            .Size = 14
        End With
    Next
Next
End Sub

Merci Je ne sais pas si c'est compatible entre PC et Mac ; je vais tenter ta formulation quelque peu différente et te tiens au courant