Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[RÉSOLU] Mise en forme commentaires de la feuille active

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion aubelix
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

aubelix

XLDnaute Impliqué
Bonjour à tous les Amis du Forum.

Je reviens de nouveau vers vous, pour solliciter votre aide.
J'aurai souhaité adapter le code suivant pour modifier les
commentaires de "la feuille active" et non de toutes les feuilles
car le temps d'exécution est extrêmement long.
D'autre part, j'ai essayé d'avoir un fond rouge pour une police en blanc
je n'ai pas réussi.
Par avance, Merci pour aide.

Code: 
Sub MODIFIER_POLICE_COMMENTAIRES()
    On Error Resume Next
    Dim wks As Worksheet, MyCmt As Comment
    For Each wks In Worksheets
        For Each MyCmt In wks.Comments
            MyCmt.Shape.OLEFormat.Object.AutoSize = True
            With MyCmt.Shape.OLEFormat.Object.Font
                .Name = "Arial"
                .Size = 30
                .ColorIndex = 11
                .Bold = False
            End With
            MyCmt.Shape.OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor = 35
            MyCmt.Shape.AutoShapeType = msoShapeRoundedRectangle
        Next MyCmt
    Next wks
    Call MsgBox("  La mise en forme s'est déroulée avec succès    ", vbInformation Or vbDefaultButton1, "MEF Commentaire")
End Sub

Cordialement.
 
Dernière édition:
Trier par date Trier par votes
Re : Mise en forme commentaires de la feuille active

Bonjour, aubelix, le Forum,

Peut-être ainsi :

Code: 
Option Explicit
Sub Commentaire_personnaliser()
    On Error Resume Next
    Dim MyCmt As Comment
    For Each MyCmt In ActiveSheet.Comments
        MyCmt.Shape.OLEFormat.Object.AutoSize = True
        With MyCmt.Shape.OLEFormat.Object.Font
            .Name = "Arial"
            .Size = 30
            .ColorIndex = 2
            .Bold = False
        End With
        With MyCmt.Shape
            .OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor = 2
            .OLEFormat.Object.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
            .OLEFormat.Object.ShapeRange.Fill.ForeColor.SchemeColor = 10
            .AutoShapeType = msoShapeRoundedRectangle
        End With
    Next MyCmt
    Call MsgBox("  La mise en forme s'est déroulée avec succès    ", vbInformation Or vbDefaultButton1, "MEF Commentaire")
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : Mise en forme commentaires de la feuille active

Re-bonjour, aubelix, le Forum,

En attendant mieux... la macro mentionnée en #2 pourrait devenir :

Code: 
Option Explicit
Sub Commentaire_personnaliser_V2()
    Dim MyCmt As Comment
    For Each MyCmt In ActiveSheet.Comments
        MyCmt.Shape.TextFrame.AutoSize = True
        MyCmt.Shape.AutoShapeType = msoShapeRoundedRectangle
        With MyCmt.Shape.OLEFormat.Object
            .Font.Name = "Arial"
            .Font.Size = 30
            .Font.ColorIndex = 2
            .Font.Bold = False
            .ShapeRange.Fill.ForeColor.SchemeColor = 2
            .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
            .ShapeRange.Fill.ForeColor.SchemeColor = 10
        End With
    Next
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : [RÉSOLU] Mise en forme commentaires de la feuille active

Bonjour DoubleZero et tous les Amis du Forum.

Merci pour ta nouvelle réponse.
Elle paraît plus rapide.
Mille Mercis.

Cordialement.​
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
548
spike29
S
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
597
Julien_B
J
S
  • Question Question
XL 2013 planning : récupérer le nom de la feuille pour l'inclure dans une formule
Réponses
6
Affichages
1 K
shushen
S
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
1 K
macseb
M
A
  • Résolu(e)
XL 2016 VBA - Conserver la mise en forme lors d'une extraction
Réponses
5
Affichages
2 K
cp4
F
  • Résolu(e)
Microsoft 365 Copier en VBA sans la mise en forme
Réponses
6
Affichages
1 K
patricktoulon
L
  • Question Question
XL 2016 Mettre en gras et souligné la date dans une macro
Réponses
9
Affichages
927
fanch55
L
  • Question Question
vba bug sur macro "back-up" (mise en forme caractère spécial)
Réponses
7
Affichages
1 K
Laliepomm
L
M
  • Question Question
Microsoft 365 Mise en forme conditionnelle
Réponses
10
Affichages
827
Moreno076
M
M
  • Résolu(e)
Microsoft 365 Effacer cellules pleines en conservant mise en forme sauf bordures
Réponses
11
Affichages
819
Moreno076
M
  • Question Question
Microsoft 365 Garder la mise en forme après une action d'une macro
Réponses
8
Affichages
954
bobjazz
°
  • Question Question
XL 2013 Sélection automatique des couleurs similaires d'une mise en forme conditionnelle
Réponses
11
Affichages
1 K
patricktoulon
L
  • Question Question
XL 2019 Problème de boucle ou de variables
Réponses
1
Affichages
1 K
Lucien31
L
  • Question Question
XL 2016 Conserver Mise en forme lors d'une recopie sous une autre feuille
Réponses
0
Affichages
705
Marjo2
C
  • Question Question
XL 2010 Somme en fonction de la taille
Réponses
2
Affichages
483
coline741
C
D
  • Question Question
XL 2013 mise en forme conditionnelle sur plusieurs onglets
Réponses
0
Affichages
1 K
Dombal
D
F
  • Question Question
Protection avec mise en forme & MDP
Réponses
6
Affichages
954
Fred76
F
P
  • Question Question
Colorier doublon sauf l'original
Réponses
9
Affichages
2 K
Pierkai
P
  • Question Question
XL 2013 Compter couleurs MFC (mise en forme conditionnelle)
2
Réponses
22
Affichages
8 K
apnart
  • Question Question
XL 2016 copier la couleur de fond d'une base de donnée vers une autre feuille
Réponses
3
Affichages
976
yule bwinner
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…