Affichage commentaires qui bouge

[Christian FUEHRER]

Salut,
j'ai un petit problèmes avec des commentaires dans une feuille EXCEL.
C'est un document assez chargé, sur lequel je travaille régulièrement, et sur lequel certaines cellules sont commentées.
Or, il se trouve qu'avec le temps, le format vertical des commentaire bouge; certains voient leur hauteur augmenter, et d'autres diminuer tellement qu'on ne voit plus le commentaire..., ce qui devient gênant.

Quelqu'un a-t-il déjà rencontré ce problème, et surtout trouvé une solution ?

J'utilise EXCEL 2002 SP-1

Salutations à tous

 

[Celeda]

Bonjour,

En fait merci d'avoir posté ce ''commentaire'' car je rencontre le même problème.
Cela se passe sur des gros fichiers et j'ai noté aussi quand j'ai des colonnes cachées ou des lignes cachées, et là hop, le commentaire va se mettre 2000 lignes plus loin et parfois il reste un trait et si tu tires bien, tu fais apparaître le commentaire. Il faut ensuite revenir dans la colonne, replacer le commentaire. C'est la pagaille à chaque fois et on pert du temps!!

Je suis désolée car je n'ai pas trouvé de solution et je me demande même s'il y en a vraiment une - car il y a peut-être aussi une limite aux commentaires dans un fichier ???

à suivre

Celeda

 

[Jean-Marie]

Bonjour Celeda, Christian

Il y a un an, pratiquement jour pour jour, Alain avait le même problème, Vériland et @Thierry avait répondu, voici le lien Lien supprimé

@+Jean-Marie

 

[Celeda]

Bonjour,

Merci merci JM je vais tenter la manip et je te ferais part de mes résultats.

Celeda

 

[Nephenie]

Bonjour à tous,

Je rencontre le même problème que Christian. Malheureusement le lien avec la réponse de Jean-Marie ne fonctionne plus. J'ai déjà fait quelques recherches sur ce forum et ailleurs sur le net, pas moyen de trouver une solution :-/

Est-ce que l'un d'entre vous saurez m'aider ?

Je travaille avec : Microsoft Office Famille et Petite Entreprise 2013
Version : 15.0.4893.1002

Merci d'avance,
Séverine

 

[DoubleZero]

Bonjour à toutes et à tous,

Comme ceci ?

Option Explicit
Sub Commentaire_emplacement_modifier()
    Dim com As Comment
    For Each com In ActiveSheet.Comments
        com.Shape.Left = com.Parent.Left + 20
        com.Shape.Top = com.Parent.Top + 20
    Next
End Sub

A bientôt

 

[Si...]

Salut

Moi qui cherche à mincir, ÓÒ, j’ajouterais (pour une cellule)

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  If R.Address = [A1].Address Then R.Comment.Shape.TextFrame.AutoSize = 1
End Sub

mais je changerais aussi de position

 

[DoubleZero]

Re-bonjour, bonjour, Si

... Moi qui cherche à mincir...

Mi chercher à "re-grandir". Peut-être devrais-je prendre quatre douches par jour avec un savon à base d'engrais ( ? )...

A bientôt

 

[Nephenie]

Bonsoir Ce lien n'existe plus et Ce lien n'existe plus

Merci pour votre aide, par contre ça ne fonctionne pas tout à fait.

Il me reste des commentaires pour lesquels j'ai à peine un trait de visible (que je passe ma souris dessus ou que je passe par "Afficher tous les commentaires").

Du coup même en utilisant un 'scale' ça n'y change rien (0 x n'importe quel ratio est toujours égale à 0 ).

Ce qui m'inquiète c'est que même si je déplace et change la taille de mes commentaires ; après enregistrement, fermeture et ré-ouverture du document; certains commentaires ont à nouveau bougés

Une idée ?

 

[Si...]

Re

A première vue ^ tu as tout d’une Grande Dame pour qu’on te passe un savon !

Nephenie, as-tu essayé de Modifier un commentaire récalcitrant ?

D’une version d’Excel à l’autre : comme pour certains boutons la version peut-être allergique à ce type de « Shape ».

 

[Nephenie]

J'ai du mal à te comprendre Si...

Oui j'arrive à modifier les commentaires récalcitrant en passant par "Format de commentaire ...", j'y arrive aussi en cliquant directement dessus. Tout rentre dans l'ordre jusqu'à ce que je me rende compte après x modif et x sauvegarde que les commentaires en questions ont à nouveau bougé.

J'ai un document à 18 feuillets (et bientôt plus) avec par feuillet en moyenne une trentaine de commentaire. Donc je cherche plutôt une solution qui règle le problème d'un coup pour l'ensemble des commentaires.

Est-ce qu'il existe un code pour donner une taille définit à l'ensemble des commentaires ?

 

[Si...]

re,

il y a des dysfonctionnements d’une version d’Excel à une autre.
As-tu essayé de recréer le classeur avec des copier /coller ?
Sinon voici un code général (à lancer à l'ouverture.

Sub Commentaire_modifier()
  Dim F As Worksheet, com As Comment
  For Each F In Sheets
      For Each com In F.Comments
          com.Height = h 'à fixer
          com.Width = w 'à fixer
     Next
  Next
End Sub

il a le désavantage de donner à tous les commentaires la même hauteur et la même largeur. Il ne règlera pas le problème de la sauvegarde (propre à ta version). Tu pourras au moins travailler mieux avant de sauvegarder.

 

[DoubleZero]

Re-bonjour,

... 18 feuillets (et bientôt plus) avec par feuillet en moyenne une trentaine de commentaire. Donc je cherche plutôt une solution qui règle le problème d'un coup pour l'ensemble des commentaires...

En attendant mieux... Dans "ThisWorkbook" :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal o As Object)
    Dim c As Range, com As Comment
    For Each o In Worksheets
        For Each com In ActiveSheet.Comments
            com.Shape.Left = com.Parent.Left + 20
            com.Shape.Top = com.Parent.Top + 20
            com.Shape.TextFrame.AutoSize = 1
        Next
    Next
End Sub

A bientôt

P. S. : Bienvenue sur XLD, Nephenie !

 

[VIARD]

Re-bonjour,

En attendant mieux... Dans "ThisWorkbook" :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal o As Object)
    Dim c As Range, com As Comment
    For Each o In Worksheets
        For Each com In ActiveSheet.Comments
            com.Shape.Left = com.Parent.Left + 20
            com.Shape.Top = com.Parent.Top + 20
            com.Shape.TextFrame.AutoSize = 1
        Next
    Next
End Sub

A bientôt

P. S. : Bienvenue sur XLD, Nephenie !

Bonjour Nephenie, DoubleZero, SI et à tous

Voilà, j'ai préparé une petite démo, avec des commentaires de différentes tailles.
En enjolivant un peu.

fichier joint

A+ Jean-Paul

 

[Nephenie]

Bonjour,

Merci beaucoup pour votre aide à tous !

J'ai un peu mixé vos différentes propositions et ai utilisé ceci dans "ThisWorkbook" :

Option Explicit
Sub Modifier_commentaires()
  Dim F As Worksheet, com As Comment
  For Each F In Sheets
      For Each com In F.Comments
        com.Shape.Left = com.Parent.Left + 75
        com.Shape.Top = com.Parent.Top - 12
        com.Shape.TextFrame.AutoSize = True
        If com.Shape.Width > 140 Then
        com.Shape.Width = 140
        com.Shape.Height = ((Len(com.Text) / 25) + 1) * 12
        End If
      Next
  Next
End Sub

Au moins maintenant si les commentaires bougent à nouveau je peux rapidement remettre le tout en place.

A l'occasion j'essayerai de sauvegarder depuis un autre PC / une autre version d'Excel ; peut-être qu'alors les commentaires resteront définitivement en place.

Bonne journée,
Séverine