Modifier la police par défaut « Tahoma 10 » des « Commentaires » Excel

Nouveau sur le site, bonjour à tous.

J’utilise Excel 2019 FR 16.78 pour Mac.

J’ai crée de nombreux fichiers financiers avec un douzaine de feuilles chacun,

avec beaucoup de « Commentaires » et à chaque fois il faut modifier pour saisir la police/taille que je souhaite.

Comme le parametrage des commentaires ne permet pas le choix d’une autre police par défaut j’ai donc bricolé un petit « biais » .

J’ai crée en bas de chaque feuille une cellule « Commentaires » à la bonne Police/taille que je copie/colle dans les cellules de ma feuille de calcul.

Je pressent qu’avec VBA je pourrais avoir l’automatisation -par défaut- de la Police/taille du commentaire tel que je le souhaite.

Je ne connais rien à VBA et ne souhaite pas trop m’investir là dedans.

J’ai feuilleté le forum et je n’ai rien trouvé qui pourrait convenir à mon besoin.

Aussi j’appelle à l’aide

Y aurait -il un spécialiste sur ce forum qui pourrait me construire cette formule qui pourrait d’ailleurs servir à d’autres utilisateurs d’Excel.

Je résume mon besoin

1. Souhaite supprimer la police par défaut « Tahoma 10 » d’Excel

2. La remplacer -par défaut- avec la police de son choix nom et taille ( pour moi Calibri Light 8 )

3. Que ce soit proposé -par défaut- à chaque création d’un commentaire sur une feuille Excel

Un grand merci par avance

Cordialement

Bonjour,
Dans les options générales d'Excel et dans la partie "lors de la création de classeur" ne pouvez-vous pas modifier la police et la taille par défaut? En revanche je ne sais pas si cela a un impact sur les commentaires.

Bonjour,

code récupéré ici Format all Excel Comment font and font size - VBA - Microsoft Community

Cette macro vous permet de changer la police de tous les commentaires dans le fichier courant. Malheureusement je ne crois pas qu'il y ait de moyen de définir une police par défaut pour les commentaires… Ce sont des objets un peu "délaissés" j'ai l'impression, d'autant plus qu'ils ont été remplacé par les fils de conversation dans les versions 2021+ il me semble.

Sub ChangeCommentFont()
    Dim strFName1 As String
    Dim strFStyle1 As String
    Dim iFSize1 As Integer
    Dim strFName2 As String
    Dim strFStyle2 As String
    Dim iFSize2 As Integer
    Dim r As Range
    Dim ws As Worksheet
    Dim cmt As Comment

    Set r = Range("A1")

    r.Select

    With r.Font
        strFName1 = .Name
        strFStyle1 = .FontStyle
        iFSize1 = .Size

        Application.Dialogs(xlDialogFormatFont).Show

        'Capture the new settings
        strFName2 = .Name
        strFStyle2 = .FontStyle
        iFSize2 = .Size

        'Restore the cell
        .Name = strFName1
        .FontStyle = strFStyle1
        .Size = iFSize1
    End With

    For Each ws In ActiveWorkbook.Worksheets
        For Each cmt In ws.Comments
            With cmt.Shape.TextFrame.Characters.Font
                .Name = strFName2
                .FontStyle = strFStyle2
                .Size = iFSize2
            End With
        Next cmt
    Next ws
End Sub

Bonjour Profiler31, fcyspm30, Saboh12617, et le forum,

Bienvenue sur le forum !

Bon, je n'ai pas trouvé grand chose non plus pour changer nativement les attributs des commentaires et ce n'est pas si évident que cela en VBA.

Cela implique une petite usine à gaz pour modifier à la création du commentaire le changement de police et de taille.

Je passe par le menu contextuel du clic droit ou je créé un nouveau menu "Insérer un commentaire personnalisé" (dernier choix tout en bas), et là je change la police et la taille par macro.

Problème : cela verrouille le clavier, donc je suis obligé d'inhiber ce changement...Bon, cela fonctionne (perso, je ne valide pas tout ceci, mais bon..., je l'ai fait, à vous de voir...).

Tout ceci fonctionne dans n'importe quelle cellule ou n'importe quelle feuille.

Pour reproduire dans vos classeurs pros, il faut copier une série de macros :

Ouvrez le classeur joint, puis ouvrez un classeur pro à vous.
• Dans ThisWorkbook (copier et coller simplement les 2 macros dans votre classeur),
• Module1 (faite glisser le module dans votre classeur)
• Module de classe (même chose, faite glisser le module de classe dans votre classeur)

Comme vous ne semblez pas à l'aise avec les macros, j'ai fait un pas à pas vous permettant de reproduire tout ceci dans vos classeurs (il faudra le faire pour chacun...).

Important : enregistrez vos classeurs avec l'extension .xlsm

Le classeur test :

Cordialement.

AL 22

Bonjour AL 22,

Impressionnant, comme d'habitude…

Difficile selon moi de faire mieux au vu des limitations d'Excel. Bravo !

Bonjour à tous,

Tardé à donner suite car tous les messages sont arrivés dans les SPAM. Je n'en ai pris connaissance que ce matin !

Merci à tous et particulièrement à AL22 pour son cours magistral ; je vais me lancer dans le "pas à pas" pour mettre en pratique.

Je reviendrai vers vous pour le bilan.

Cordialement

Bonjour Saboh12617

J'ai bien tout relu ; votre phrase me laisse perplexe

d'autant plus qu'ils ont été remplacé par les fils de conversation dans les versions 2021+ il me semble.

car j'ai un macbookpro équipé de la version 2021; quand j'insère un message j'ai en standard du Tahoma 10 . J'ai la même réponse qu'avec la version 2019 ; qu'est ce que cette version pourrait proposer que je n'ai pas décelé ?

Cordialement

Je réfère à ceci La différence entre les commentaires à thread et les notes - Support Microsoft

Cependant il semble que je me sois trompé, c'est peut-être disponible uniquement sur O365, ou sur Excel Windows, non MAC, comme suggéré par l'aide en ligne ici Insérer des commentaires et des notes dans Excel - Support Microsoft, plus réduite pour la version MAC.

OK ; bien compris la différence ; tout ça c'est sous 365 en plus je suis sous Excel pour Mac . Je ne sais pas quel format est retenu pour "commentaires" et "notes" sous 365 pour Mac ; toujours Tahoma ou bien paramétrage perso ?

Bonjour à tous,

moins usine à gaz, les commentaires sont mis en forme à l'activation de la feuille.
Ca pourrait être par un bouton sur la feuille ou tout autre événement.

Private Sub Worksheet_Activate()
    Dim com As Comment, i As Long
    For Each com In ActiveSheet.Comments
        With com.Shape.OLEFormat.Object.Font
            .Name = "Calibri Light"
            .Size = 8
        End With
    Next com
End Sub

eric

Bonjour

eriiic :

Profiler31:

Bonjour Eriic,

Merci pour votre info.

Je présume que la pièce jointe

font-commentaires.xlsm

a été réalisée avec la macro ; donc si je clique sur "activer les macros" , sur la feuille ouverte si -j'"insère(r) un commentaire"- je devrais avoir "xxxxxxx" en Calibri Light : or j'ai le standard "Tahoma".

J'avais déjà tenté cette macro, sans effet. Donc retour à la cas départ.

Je suis toujours sur la tentative de notre collègue "AL22" mais je redoute d'être là aussi en échec.

Cordialement

Bonjour,

il faut lire la phrase d'introduction : les commentaires sont mis en forme à l'activation de la feuille.
Ca pourrait être par un bouton sur la feuille ou tout autre événement.
eric

Bonjour à tous

juste en passant
dans cette vidéo j'explique tout
https://www.youtube.com/watch?v=57TVYFOEM30

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CommandBars("Cell").Reset
End Sub

Private Sub Workbook_Open(): AddmenuCellItem: End Sub

'Menu contextuel des cellules
Sub AddmenuCellItem()
    Dim b, menucell
    Set menucell = Application.CommandBars("Cell"): menucell.Reset
    Set b = menucell.Controls.Add(msoControlButton, , , 13, True) 'Création menu perso
    With b
        .FaceId = 597
        .OnAction = "Thisworkbook.commPerso"
    End With
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Set menucell = Application.CommandBars("Cell")
    With ActiveCell
        Set comm = .Comment
        If Not comm Is Nothing Then
            menucell.Controls(13).Caption = "Supprimer le commentaire Perso"
            menucell.Controls(13).Tag = "1"
            menucell.Controls(14).Visible = True
            menucell.Controls(15).Visible = False
            DoEvents
        Else
            menucell.Controls(13).Caption = "Insérer un commentaire Perso"
            menucell.Controls(13).Tag = "0"
            menucell.Controls(14).Visible = False
            DoEvents
        End If
    End With
End Sub

Public Sub commPerso()
    With ActiveCell
        Select Case Val(Application.CommandBars.ActionControl.Tag)
            Case 0 'mode ajout
                .AddComment
                With .Comment.Shape.TextFrame.Characters.Font 'Attributs du commentaire
                    .Name = "Calibri Light" 'Police de caractères
                    .Size = 10 'Taille de la police de caractères
                End With
            Case 1
                ActiveCell.Comment.Delete
        End Select
    End With
End Sub

et le fichier exemple joint

Bonjour à tous,

Merci pour vos différentes suggestions ; rien de vraiment aisé pour modifier en "standard par défaut" . Je ne veux pas me lancer dans des procédures trop complexes donc je vais poursuivre avec ma méthode "artisanale" du copié/collé. J'aurai toutefois appris pas mal de choses sur le VBA

Bien cordialement