Commentaire avec forme automatique

[natorp]

Bjr à toutes et tous,

J'ai récupéré un commentaire qui est fait comme une forme automatique. Mais je n'arrive pas à le reproduire, je ne vois pas comment on fait. J'ai bien vu pour l'image, mais pas la forme.

Merci de votre aide, cordialement, Gérard

 

[stefan373]

Re : Commentaire avec forme automatique

Bonjour natorp et le forum,

Positionnez-vous sur la cellule commentée puis cliquer droit sur "Modifier le commentaire", ensuite positionnez-vous avec la souris dans l'angle en bas à droite du commentaire, jusqu'à faire apparaître la petite double flèches et clic droit lorsque vous y êtes et sélectionnez "Format du commentaire". Après sélectionnez la combo de couleur et enfin motifs et textures. Voilà vous y êtes. 🙂

A+ Stéfan

 

[DoubleZero]

Re : Commentaire avec forme automatique

Bonjour, natorp, stefan373, le Forum,

...J'ai récupéré un commentaire... Mais je n'arrive pas à le reproduire...

Il me semble le reconnaître 😀 !

Voici la procédure :

Option Explicit
Sub Commentaire()
'Merci, BOISGONTIER !
Dim com As Comment
  For Each com In ActiveSheet.Comments
    com.Shape.AutoShapeType = msoShapeFoldedCorner
  Next
End Sub

A bientôt 🙂

 

[natorp]

Re : Commentaire avec forme automatique

Oui oui tout à fait Doublezero

J'ai bien vu que l'image vient de vous...., impecc', on lance la macro et après on peut la supprimer, c'est pour ça que dans le fichier d'origine je ne la voyais pas. Je me permets une autre question, comment fait-on pour mettre le coin en couleur ?

PS : Je suis allé voir sur le site de Boisgontier, mais je n'avais pas trouvé

Cordialement, Gérard

 

[BOISGONTIER]

Re : Commentaire avec forme automatique

Bonsoir,

Liste des formes en pj

Sub coinReplie()
  For Each c In ActiveSheet.Comments
     c.Shape.AutoShapeType = msoShapeFoldedCorner
  Next c
End Sub

JB

 

[MJ13]

Re : Commentaire avec forme automatique

Bonjour à tous

En reprenant le dernier fichier de JB 🙂, vous pouvez tester (en fait je ne savais même pas qu'on pouvait modifier le type de commentaire 😱):

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub RectangleArrondi()
    For Each c In ActiveSheet.Comments
        For n = 1 To 100
            Sleep 100
            c.Shape.AutoShapeType = n
            Cells(1, 1).Select
        Next n
    Next c
End Sub

 

[natorp]

Re : Commentaire avec forme automatique

Bjr JB et MJ13,

JB : merci pour cette liste que je vais traduire et garder précieusement
MJ13 : très impressionnant...

Question subsidiaire : comment se fait-il que dans le fichier que je joins dans le post 1, le coin soit en couleur ? alors que tous les exemples qui tournent avec la macro de MJ13 c'est gris ?

Merci beaucoup, cordialement, Gérard

 

[MJ13]

Re : Commentaire avec forme automatique

Re

Question subsidiaire : comment se fait-il que dans le fichier que je joins dans le post 1, le coin soit en couleur ? alors que tous les exemples qui tournent avec la macro de MJ13 c'est gris ?

La, je ne sais pas, mais, cette macro sur Excel 2013, ne fonctionne pas bien pour afficher les commentaires en boucle, il ne fait pas la MAJ, mais cela fonctionne en mode deboggage (avec F8) 😕. Si quelqu'un a une idée 🙂.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub RectangleArrondi()
    For N = 1 To 100
        Sleep 500
        Range("A2").Comment.Shape.Select True
        Range("A2").Comment.Shape.AutoShapeType = N
        Range("A2").Comment.Shape.Visible = msoCTrue
        Range("A2").Comment.Shape.Fill.ForeColor.RGB = RGB(20, 255, 255)
        Range("A2").Comment.Shape.TextFrame.Characters.Caption = N
        Range("A2").Comment.Shape.TextFrame.Characters.Font.Size = 12
        Range("A2").Comment.Shape.TextFrame.Characters.Font.ColorIndex = 12
        Range("A2").Comment.Shape.TextFrame.Characters.Font.Color = RGB(255, 0, 0)
    Next N

 

[Guest]

Re : Commentaire avec forme automatique

Bonjour à tous,

@MJ, tu as essayé en enlevant ou commentant la ligne : Range("A2").Comment.Shape.Select True ?

A+

 

[natorp]

Re : Commentaire avec forme automatique

Re,

comme le dis Hasco, la 1ère ligne en commentaire et ça passe...
mais cela ne reproduit pas le sujet de ma question précédente, je me suis permis de demander en MP en DoubleZero qui est à l'initiative de cette forme de commentaire colorisée, si j'ai la réponse, je la posterai... A moins que d'ici-là....

Cordialement, Gérard

 

[MJ13]

Re : Commentaire avec forme automatique

Re , Bonjour Ges


Merci Ges 🙂. MAis sur Xl 2013, cela ne focntionne pas même en décochant la ligne Range("A2").Comment.Shape.Select True. Cela mouline sans afficher les commentaires.

Cela doit être un bug 😕.

 

[natorp]

Re : Commentaire avec forme automatique

Re,

Oups, j'ai réussi : en fait, on met un commentaire avec une image via le remplissage et on passe ces lignes de codes :

Range("A2").Comment.Shape.AutoShapeType = msoShapeFoldedCorner
Range("A2").Comment.Shape.Fill.ForeColor.RGB = RGB(204, 102, 0) 'couleur de remplissage

Merci à vous de votre aide, cordialement, Gérard

 

[DoubleZero]

Re : Commentaire avec forme automatique

Bonjour, le Fil 🙂, le Forum,

... Question subsidiaire : comment se fait-il que dans le fichier que je joins dans le post 1, le coin soit en couleur ? alors que tous les exemples qui tournent avec la macro de MJ13 c'est gris ?..

Cf.le fichier joint.

A bientôt 🙂

 

[MJ13]

Re : Commentaire avec forme automatique

Re

Ouh la, la, 00 🙂, ça devient compliqué Excel 😱.

Sinon, voici une macro qui ne fonctionne pas sur Xl2013. Why 😕

Code VBA:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Commentaires_Types()
Application.DisplayCommentIndicator = xlCommentAndIndicator
Sheets.Add
Range("A2").AddComment
For N = 1 To 100
'Range("A2").Comment.Shape.Select True
Range("A2").Comment.Shape.AutoShapeType = N
Range("A2").Comment.Shape.Visible = msoCTrue
Range("A2").Comment.Shape.Fill.ForeColor.RGB = RGB(20, 255, 255)
Range("A2").Comment.Shape.TextFrame.Characters.Caption = N
Range("A2").Comment.Shape.TextFrame.Characters.Font.Size = 12
Range("A2").Comment.Shape.TextFrame.Characters.Font.ColorIndex = 12
Range("A2").Comment.Shape.TextFrame.Characters.Font.Color = RGB(255, 0, 0)
Sleep 100
Next N
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

 

[DoubleZero]

Re : Commentaire avec forme automatique

Re-bonjour,

...voici une macro qui ne fonctionne pas sur Xl2013. Why 😕...

Sous 2013, je ne sais pas 🙁...

Sous 2007, c'est parfait 😀.

A bientôt 🙂🙂