Commentaire visible sur une colonne variable en fonction d'une donnée

[piga25]

Bonjour,

Je ne suis vraiment pas doué pour les commentaires (ceux d'excel).
Je cherche à rendre visible tous les commentaires d'une colonne, mais uniquement ceux de la colonne qui correspondent à l'année choisie dans une cellule dont la valeur change avec un Scrollbar.
Merci

 

[pierrejean]

Re : Commentaire visible sur une colonne variable en fonction d'une donnée

Bonjour piga25

Vois si cela te convient

 

[piga25]

Re : Commentaire visible sur une colonne variable en fonction d'une donnée

Bonjour PierreJean,

C'est parfait.
Juste un petit ajout si cela est possible, c'est en voyant le résultat que j'y pense.
Y a t'il moyen que les commentaires se positionnent obligatoirement sur la droite de la cellule avec la même hauteur que la ligne, et cela même si lors de la création ils ont été mis à gauche.
Déjà merci, je regarde bien les codes pour tout comprendre.

 

[piga25]

Re : Commentaire visible sur une colonne variable en fonction d'une donnée

Bonjour à toutes et à tous,

J'ai trouvé un code du Grand Chaman Excel qui répond à ma demande
https://www.excel-downloads.com/threads/conserver-la-position-des-commentaires.184240/

Sub ReplacerCommentaires()
    Dim cmtr As Comment
    For Each cmtr In ActiveSheet.Comments
       cmtr.Shape.Top = cmtr.Parent.Top + 6
       cmtr.Shape.Left = cmtr.Parent.Offset(0, 1).Left + 6
    Next
End Sub

 

[pierrejean]

Re : Commentaire visible sur une colonne variable en fonction d'une donnée

Re

D’où le nouveau fichier (Merci Grand Chaman)

 

[piga25]

Re : Commentaire visible sur une colonne variable en fonction d'une donnée

Re

Merci PierreJean

Et avec un ajustement auto des commentaires en plus :

Sub invisibles()For Each cmtr In ActiveSheet.Comments
  cmtr.Visible = False
Next
End Sub


Sub visibles()
For n = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
  If Cells(2, n) = Range("B1") Then
    For Each cmtr In ActiveSheet.Comments
      If cmtr.Parent.Column = n Then
        cmtr.Visible = True
        cmtr.Shape.Top = cmtr.Parent.Top + 6
        cmtr.Shape.Left = cmtr.Parent.Offset(0, 1).Left + 6
        cmtr.Shape.TextFrame.AutoSize = True
      End If
    Next
  End If
Next
End Sub