position d'un commentaire

[f69815]

bonjour le forum,

j'ai fait des recherches sur le forum à propos de ma question, mais rien de concret.

je crée des commentaires si la longueur du contenu de la cellule > 220 caractères.

est-il possible de forcer l'affichage des commentaires à gauche de la cellule qui le contient, en vba bien entendu, et sans masquer les colonnes comme je l'ai lu dans certains posts, car il est impératif de pouvoir lire les cellules à droite et le commentaire en l'état le masque.

merci pour vos réponses

 

[tototiti2008]

Re : position d'un commentaire

Bonjour f69815,

un sujet qui pourrait te donner des idées :

https://www.excel-downloads.com/threads/comment-replacer-les-commentaires.104909/

 

[jeanpierre]

Re : position d'un commentaire

Bonjour f69815, tototiti,

Forcer l'affichage d'un commentaire à gauche n'est pas possible, sauf s'il est en affichage permanent.

Fais une recheche sur "commentaire gauche", tu trouveras quelques fils dont un de _Thierry et celui-ci par exemple : https://www.excel-downloads.com/threads/gerer-le-commentaire-avec-vba.38916/

Bonne journée.

Jean-Pierre

 

[BOISGONTIER]

Re : position d'un commentaire

Bonjour,

Positionnement à gauche sur Clic dans la cellule:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  On Error Resume Next
  If m <> "" Then Range(m).Comment.Visible = False
  If Not Target.Comment Is Nothing Then
      Target.Comment.Visible = True
      Target.Comment.Shape.Left = Target.Left - Target.Comment.Shape.Width - 10
      m = Target.Address
  Else
      m = ""
  End If
End Sub

JB
Formation Excel VBA JB

 

[f69815]

Re : position d'un commentaire

merci à tous pour vos réponses,

le lien fourni par ong alain (Ce lien n'existe plus) m'a permis de structurer mon code.
comme le précise jeanpierre:Forcer l'affichage d'un commentaire à gauche n'est pas possible, sauf s'il est en affichage permanent.
alors le code de BOISGONTIER, est un palliatif très intéressant, que je vais utiliser.

merci à tous

 

[quattropiloctomie]

Re : position d'un commentaire

Cette réponse est tardive

Enfin, voici un bout de solution pour aligner à droite = aligner en fonction de la largeur du commentaire. C'est pas parfait mais ça fonctionne :

For Each MyCell In myRng.Cells

If Not (MyCell.Comment Is Nothing) Then
MyCell.Comment.Visible = True

LCol = MyCell.ColumnWidth
LCom = MyCell.Comment.Shape.Width
LDif = (LCol * 0.01) - LCom

With MyCell.Comment
.Shape.Top = .Parent.Top - 50
.Shape.Left = .Parent.Offset(0, 1).Left + LDif
End With



End If

 

[f69815]

Re : position d'un commentaire

bonjour quattropiloctomie et bievenue sur le forum,

intéressante ta proposition, cela ma permet d'ajouter à mes connaissances.

à bientôt

 

[pat66]

bonjour le forum,

RIP Boisgontier

peut on aussi positionner le commentaire sur la colonne précédente (donc à gauche) à la même hauteur que la cellule saisie ?

exemple : je saisi en G5, le commentaire s'affiche en G4 ou en tout cas de suite à gauche de G5, etc....

merci

 

[job75]

Bonjour pat66,

exemple : je saisi en G5, le commentaire s'affiche en G4 ou en tout cas de suite à gauche de G5, etc....

G4 n'est pas à gauche de G5 !!!

A+

 

[pat66]

Bonjour Job75,

Mille excuses, je voulais dire :
je saisi en G5, le commentaire s'affiche en F5 ou en tout cas de suite à gauche de G5, etc....à la même hauteur que la cellule saisie ?

 

[TooFatBoy]

Bonjour,

je saisi en G5

Tu "saisis" en G5 ???

Est-ce à dire que tu saisis une valeur dans la cellule G5 ?
Ou alors tu sais un texte dans le commentaire de la cellule G5 ?
Si c'est le premier cas, tu mets bien le commentaire que tu veux sur la cellule que tu veux.

Je crois qu'il faudrait être un poil plus précis dans ta question.

 

[pat66]

re,

je saisi dans la cellule G5 un chiffre et le commentaire s'affiche de suite à gauche contre G5 au lieu de s'afficher à droite

merci

 

[TooFatBoy]

Dans ce cas il suffit d'assigner le commentaire à la cellule F5 au lieu de G5.

 

[pat66]

Non car la cellule F5 est déjà utilisée

 

[TooFatBoy]

Non car la cellule F5 est déjà utilisée

Dans ce cas, pourquoi poser la question si la réponse est non ?