Position Commentaires & Masquage Lignes

[SergiO]

Bonjour le Forum,

Dans mon fichier, je dois masquer des lignes suivant les utilisateurs.
Certaines cellules contiennent des commentaires.

Quand je veux modifier ces commentaires, leurs positions subissent un décalage du nombre de lignes masquées (20 lignes dans mon exemple).

Si je crée le commentaire avant le masquage, le décalage se fait vers bas.
S'il est créé après le masquage, le décalage se fait vers le haut.

Pourquoi et comment y remédier afin qu'ils restent positionnés à droite de la cellule contenant le commentaire?

Merci à ceux qui se pencheront sur le problème.

 

[pierrejean]

Re : Position Commentaires & Masquage Lignes

bonjour Sergio

une macro pour definir la propriété Placement des commentaires de la feuille 1

ensuite les commentaires suivront la cellule

Sub test()
For n = 1 To Sheets("Feuil1").Shapes.Count
 If Left(Sheets("Feuil1").Shapes(n).Name, 7) = "Comment" Then
   Sheets("Feuil1").Shapes(n).Placement = xlMove
 End If
Next n
End Sub

 

[SergiO]

Re : Position Commentaires & Masquage Lignes

Bonjour pierrejean,

Merci pour ton code, il me permettra de changer automatiquement la propriété pour tous les commentaires existants.

Dans mon fichier exemple, après exécution de ton code, le premier commentaire en C23 suit la cellule mais pas le second en F23.

Pourquoi?

 

[pierrejean]

Re : Position Commentaires & Masquage Lignes

re

parceque le commentaire ayant été créé en position décalée , l'effet de la macro est de conserver le decalage

si tu en as besoin je chercherai s'il est possible de definir le decalage a l'origine mais j'ai des craintes !!

je regarde et te tiens au courant

 

[SergiO]

Re : Position Commentaires & Masquage Lignes

Re,

J'ai une trentaine de fichiers avec chacun 12 onglets contenant des commentaires à repositionner.
Je cherche un code permettant de les remettre à côté de la cellule concernée mais sans succès.

J'ai essayé avec IncrementLeft et IncrementTop mais sans obtenir de résultat concluant.

Donc si quelqu'un trouve une solution, je suis preneur !!!

Merci d'avance

 

[pierrejean]

Re : Position Commentaires & Masquage Lignes

re

vois si cette macro peut t'aider (a adapter pour le positionnement)

Sub essai2()
For Each cel In Sheets("Feuil1").UsedRange
  If Not cel.Comment Is Nothing Then
   cel.Comment.Shape.Left = cel.Offset(-1, 2).Left
   cel.Comment.Shape.Top = cel.Offset(-1, 2).Top
   cel.Comment.Shape.Placement = xlMove
  End If
Next cel
End Sub

 

[SergiO]

Re : Position Commentaires & Masquage Lignes

Re,

Je te remercie pierrejean.
Ce code répond parfaitement à ce que je recherchais.
Il me reste à l'adapter pour l'appliquer à toutes les feuilles et le tour est joué.

@ bientôt

 

[pierrejean]

Re : Position Commentaires & Masquage Lignes

Re

pour t'avoir croisé sur quelques posts , je n'ai pas le moindre souci sur ton aptitude a adapter

@+

 

[skoobi]

Re : Position Commentaires & Masquage Lignes

bonjour sergiO ,pierrejean,

Merci pierrejean pour ta solution, je l'ai adapté à ma macro lors de la création du commentaire. Nikel

skoobi

 

[SergiO]

Re : Position Commentaires & Masquage Lignes

Re pierrejean et merci,

Si je sais le faire aujourd'hui c'est grâce aux compétences de piliers de XLD comme toi car leurs réponses quotidiennes sont mon seul support d'apprentissage du VBA.

@+