Modifier Commentaires via VBA

  • Initiateur de la discussion Initiateur de la discussion Startus
  • 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 !

Startus

XLDnaute Occasionnel
Bonjour le forum,

Je n'arrive pas à modifier l'ensemble des commentaires sur une de mes feuilles...

Code:
Sub ModComt ()
Dim Cellule as Comments
For each Cellule in Selection
    With Selection.Font
        .Name = 'Tahoma'
        .FontStyle = 'Gras'
        .Size = 10
End With
  With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Orientation = xlHorizontal
    End With
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
    Selection.ShapeRange.Fill.Transparency = 0.5
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.ScaleHeight 0.53, msoFalse, msoScaleFromTopLeft
    Range('A1').Select
Next
End Sub

Malheureusement, ceci ne marche pas
Merci
 
hello all,

Je ne comprends pas grand chose à ton post, peux-tu être plus claire.

IDEALEMENT : Mettre un petit exemple en ZIP <50Ko

Bizarre, j'ai une impression de deja 'ecrit'

++

Creepy

PS : Déjà, une petite remarque pour optimiser ton code :

With Selection.ShapeRange.fill
.Visible = msoTrue
.Solid
.ForeColor.SchemeColor = 22
.Transparency = 0.5
end with
With Selection.ShapeRange.line
.Weight = 0.75
.DashStyle = msoLineSolid
.Style = msoLineSingle
.Transparency = 0#
.Visible = msoFalse
end with

Selection.ShapeRange.ScaleHeight 0.53, msoFalse, msoScaleFromTopLeft
 
Bonjour,

Il est vrai que je n'ai pas été très clair, je reformule...

En fait, je voudrais qu'une macro me modifie tous les commentaires d'une feuille dans un format d'un commentaire Type

Voila le fichier, qui montre ce que je veut...

Est-il possible également qu'un bouton m'ajoute à chaque clic dessus, un commentaire du type prédéfinie dans la cellule sélectionnée ?

Merci, pour vos remarque et votre aide
Startus
 
- 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

A
Réponses
11
Affichages
2 K
A
Retour