Affichage des commentaires

Question

Dans la feuille de calcul que j'utilise, habituellement quand je veux afficher les commentaires, ceux-ci apparaissent à côté de la cellule où j'ai rédigé un commentaire. Actuellement quand je veux faire apparaître les commentaires, ceux-ci apparaissent tout en haut de la feuille de calcul, même s'ils sont dans une cellule à la 250ième ligne, je suis obligé d'aller le chercher tout en haut de la feuille où il apparait sur une ligne totalement fermée, je dois chercher les petits points qui me permettent d'agrandir le cadre et ensuite je le redescends à côté de la cellule concernée. J'ignore comment cela est survenu et comme j'ai énormément de commentaires dans ma feuille de calcul, cela me prend un temps fou à chaque fois pour aller les rechercher. Avez-vous une idée de ce qui a bien pu se passer ? et comment résoudre ce problème ?

Answer 1

Fais un clic droit sur un onglet et clique sur "Visualiser le code".  La fenêtre de l'éditeur de code s'ouvre. Repère, à gauche, le projet portant le même nom que ton classeur. Fais un clic droit dessus et clique sur "Insertion" et "Module". Dans la partie droite, colle le code Indiqué au message précédent. Ferme la fenêtre et enregistre le classeur au format .xlsm (classeur Excel prenant en charge les macros). Tu n'es pas obligé d'enregistrer la macro si tu ne comptes pas la réutiliser.

Pour Exécuter la macro, clique sur l'onglet Affichage et sur "Macro". Sélectionne la macro "RePositionComments" et clique sur "Exécuter".

Daniel

Answer 2

La macro suivante, écrite par Bill Manville, traite tous les commentaires de la feuille active. Si tu ne sais pas comment exécuter la macro, dis-le.

Sub RePositionComments()
  Dim WS As Worksheet
  Dim C As Comment
  Dim iSave As Integer
 
  iSave = Application.DisplayCommentIndicator
  Application.DisplayCommentIndicator = xlCommentAndIndicator
  Set WS = ActiveSheet
'  For Each WS In ActiveWorkbook.Worksheets
    For Each C In WS.Comments
      C.Shape.Left = C.Parent.Offset(0, 1).Left + 10
      C.Shape.Top = C.Parent.Offset(0, 1).Top - 10
    Next
'  Next
  Application.DisplayCommentIndicator = iSave
End Sub

Daniel

Answer 3

Bonjour,

Pouvez-vous s’il vous plait, revenir vers nous, et marquer la réponse de Daniel, correspondante à la réponse de votre question, en cochant l’option « Marquer comme réponse » à partir du menu déroulant -**Outils avancés,**en-dessous de la réponse respective qui vous a aidé.

De cette façon, les réponses validées seront promues immédiatement en-dessous de la question initiale, et tous les autres lecteurs ayant le même souci {la même question}, pourront plus aisément retrouver la réponse, lors de leurs recherches dans notre forum et sur internet.

Cordialement,

Boris

Microsoft Engineer

Answer 4

Bonjour,

Je ne sais pas comment c'est arrivé. Peut-être le classeur est-il corrompu ? Essaie de déplacer un commentaire(clic droit sur la cellule, clic sur "Modifier le commentaire". Déplace le commentaire près de la cellule).

Enregistre le classeur, ferme-le, rouvre-le. Si le commentaire est resté en place, je peux te fournir une macro pour replacer les commentaires.

Cordialement.

Daniel

Answer 5

Bonjour,
Il semble que c'est plus le chargement qui est lent pour venir à l'emplacement exact, voir la performance du Pc , car vos fichiers sont très volumineux.