Modification des commentaires

[Paschael]

Bonjour à tous,
Désolé si le sujet a déjà été abordé dans ce forum...


J’ai dans une feuille de mon classeur avec plus de 2000 commentaires.
J’aimerai pouvoir changer le format de tous les commentaires en une seule fois.

Pourriez-vous m’aider ?

P.-S. Je n’y connais rien en VBA…

D’avance merci beaucoup.

Thierry

 

[Cousinhub]

Re : Modification des commentaires

Bonjour,
dans ton classeur, appuie sur Alt + F11
apparait alors l'éditeur VBE
clic droit sur une des feuilles de ton classeur apparaissant à gauche de la fenêtre
Insertion/Module
colle le code ci dessous :

Sub ModifierCommentaires()
For Each comt In ActiveSheet.Shapes
    If comt.Type = 4 Then
        With comt.OLEFormat.Object
            .Interior.ColorIndex = 8
            .Font.Name = "Comic Sans MS"
            .Font.ColorIndex = 3
            .Font.Size = 10
            .Font.Bold = True
        End With
    End If
Next
End Sub

insère un dessin (rectangle, rond....) dans ta feuille de calcul, clic droit
Affecter une macro, sélectionne "ModifierCommentaires"

Ici, tous les commentaires auront un fond bleu ciel, écriture rouge, taille 10 et en gras, en Comic sans MS

 

[Paschael]

Re : Modification des commentaires

Un tout grand Merci,

bonne soirée,

Thierry

 

[babap1]

Re : Modification des commentaires

Bonsoir Paschael, bhbh, le forum

J'ai une question à propos des commentaires : j' en affecte automatiquement sur des cellules que je remplis à l'aide d'un userfrom et doc les données changent en fonction de ce que j'ai pu remplir avec l'UF.

Cependant est-il possible que la taille du cadre du commentaire s'ajuste à ce qu'il y a d'écrit dedans ?

Merci, @ bientot.
Bap

 

[Cousinhub]

Re : Modification des commentaires

Bonsoir,
en rajoutant :

.AutoSize = True

peut-être?

tu peux aussi rajouter :

      .HorizontalAlignment = xlJustify
        .VerticalAlignment = xlJustify

 

[JCGL]

Re : Modification des commentaires

Bonjour à tous,

Paschael : Si tu ne souhaites pas utiliser le VBA :

Appuie sur la touche F5
Clique sur "Cellulles" en bas
Coche "Commentaires"
Tout tes commentaires seront sélectionnés
Tu pourras leur appliquer, A TOUS, le format que tu souhaites.

Euh, si j'ai bien tout compris...

A+ à tous

 

[babap1]

Re : Modification des commentaires

Bonjour bhbh, le forum,

merci pour le coup de pouce ! Ca marche niquel..

A+

 

[Cousinhub]

Re : Modification des commentaires

Bonjour,
va dans Outils/Options, onglet Affichage
coche Commentaires/Indicateur seul

Edit : j'ai l'air malin, je répond à une question qui n'apparait plus (éditée par le demandeur)......

 

[babap1]

Re : Modification des commentaires

Bonsoir bhbh, le forum,

Edit : j'ai l'air malin, je répond à une question qui n'apparait plus (éditée par le demandeur)......

Toutes mes excuses si je t'ai froissé... c'est de ma faute car j'ai retiré ma question !

Bonne soirée, baptiste

 

[Cousinhub]

Re : Modification des commentaires

Re-,
ce n'est rien...😉
ça m'apprendra à répondre trop vite....😀😀