Commentaire et Lignes/Colonnes masquées

Bonjour Ablobaka,

Voici deux exemples de macro pour visualiser les emplacements des commentaires et les déplacer :

' ************************************************
Sub EmplacementCommentaires()
Dim wComment As Comment, Msg As String
Application.DisplayCommentIndicator = xlCommentAndIndicator
For Each wComment In ActiveSheet.Comments
Msg = Msg & vbCr & "Le commentaire de " & wComment.Parent.Address(0, 0) _
& " est en cellule " & wComment.Shape.TopLeftCell.Address(0, 0)
Next wComment
MsgBox Msg
End Sub

Sub ReplaceCommentaires()
Dim wComment As Comment
For Each wComment In ActiveSheet.Comments
wComment.Shape.Placement = xlMove
wComment.Shape.Top = wComment.Parent.Top + wComment.Parent.Height + 10
wComment.Shape.Left = wComment.Parent.Left + wComment.Parent.Width + 10
Next wComment
End Sub
' ************************************************


A+
Benead

Ablobaka a écrit:

Bonjour,

j'ai un tableau avec de temps en temps des commentaires toujours visibles.
A l'aide d'une macro, je fais des requêtes qui masquent les lignes et
colonnes superflux.
Le prob. c'est qu'après cette opération de masquage, mes commentaires se
trouvent éloignés de leurs cellules liées.

Avez vous une idée pour remédier à ce Pb ?


Merçi

Ablobaka