Macro résuisant le cadre des commentaires

[anthoYS]

Bonjour,

Comment procéder pour que cette macro ne fonctionne qu'en colonne F?

Qu'elle ne réduise pas la taille des autres cadres de commentaires par ailleurs dans le classeur -lorsque je maintien le raccourci clavier de celle-ci-?

Sub tailleZoneCommentaire()
For Each c In ActiveSheet.Comments
c.Shape.Width = 20
c.Shape.Height = 16
Next c
End Sub

Pour plus d'informations, si ceci ne vous suffis pas, se référez au fichier joint.

Merci.

 

[ROGER2327]

Re : Macro résuisant le cadre des commentaires

Bonjour anthoYS

[COLOR="DarkSlateGray"]Sub tailleZoneCommentaire()
Dim c As Object
   For Each c In ActiveSheet.Comments
      [B]If c.Parent.Column = 6 Then[/B]
         c.Shape.Width = 20
         c.Shape.Height = 16
      [B]End If[/B]
   Next c
End Sub[/COLOR]

ROGER2327

 

[eriiic]

Re : Macro résuisant le cadre des commentaires

Bonjour tout le monde,

on peut aussi compléter le test de roger pour que la macro ne soit pas active sur les autres classeurs en cas d'erreur de manip :
If c.Parent.Column = 6 and (ActiveWorkbook.Name = ThisWorkbook.Name) Then
...
et peut-être aussi sur 1 feuille précise de ce classeur...
eric

 

[anthoYS]

Re : Macro résuisant le cadre des commentaires

Impeccable, merci à tous les deux.