Comment replacer les commentaires?

[CelluleVide]

Bonjour,

Dans un fichier, un utilisateur a modifier les propriétés des commentaires vers "Déplacer et dimensionner avec les cellules" du coup comme il y a des filtre auto, j'ai des commentaires qui se retrouvent n'importe où et le message suivant "Les objet fixes seront déplacés" quand je filtre le lignes.

Existe t- il un moyen de faire les choses suivantes:
1) Remettre les propriétés des commentaires a "Déplacer avec les Cellules"
J'avais penser a quelchose mais ça bug:

Dim Cel As Range
For Each Cel In Selection
Cel.Comment.Shape.Select
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
Next Cel
End Sub

2)Replacer les commentaires pres des cellules liées

 

[Catrice]

Re : Comment replacer les commentaires?

Bonjour,

1) Pour redifinir les propriétés de tous les commentaires de la feuille à "Déplacer avec les Cellules" :

Sub Test()
For Each X In ActiveSheet.Comments
X.Shape.Placement = xlMoveAndSize
Next
End Sub

2) Pour replacer les commentaires pres de cellules liées, quels sont les critères ?
comment retrouver le bon commentaire qui va sur la bonne cellule ?

Il faudrait voir un bout de fichier...

 

[CelluleVide]

Re : Comment replacer les commentaires?

Bonjour Catrice,

Merci pour le premier point c'est OK.

Pour le second je te joins un petit fichier...

A+

 

[tototiti2008]

Re : Comment replacer les commentaires?

Bonjour à tous,


une piste à tester :

Sub Test()
Dim x As Comment
For Each x In ActiveSheet.Comments
x.Shape.Top = x.Parent.Offset(-2, 0).Top
x.Shape.Left = x.Parent.Offset(0, 2).Left - 30
Next
End Sub

 

[CelluleVide]

Re : Comment replacer les commentaires?

Bonjour tototiti2008,

Merci a vous. La combinaison des deux solutions me convient.

Bonne journée.