position d'un commentaire

  • Initiateur de la discussion Initiateur de la discussion f69815
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

f69815

XLDnaute Occasionnel
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
 
re,

qu'est ce qui n'est pas clair dans cette requête ??

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 F5 ou en tout cas de suite à gauche de G5, etc....

et je dois préciser au dessus de F5

merci
 
re,

voilà la solution, fort heureusement il y a des personnes qui comprennent plus vite que d'autres, permettez moi d'en faire profiter à tout le monde, un grand merci à Boisgontier (RIP) car j'ai pu adapter une de ses solutions même si je suis certain qu'elle peut être améliorée, cdt

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'    On Error Resume Next
'    Cells(Target.Row, 1).Comment.Visible = True
Dim cmt, c
Set cmt = ActiveSheet.Comments
For Each c In cmt
c.Visible = False
Next
If Not Target.Comment Is Nothing Then
Target.Comment.Visible = True
Target.Comment.Shape.Top = Target.Top - 1
Target.Comment.Shape.Left = Target.Left - 65
'Target.Comment.Shape.TextFrame.AutoSize = True   ' taille auto mais il faur recadrer le top et le left
Target.Comment.Shape.Height = 15
Target.Comment.Shape.Width = 65
Target.Comment.Shape.Fill.ForeColor.RGB = RGB(0, 0, 255)
Target.Comment.Shape.TextFrame.Characters.Font.Bold = True   'ecriture gras
Target.Comment.Shape.OLEFormat.Object.Font.Name = roboto ' type de police
Target.Comment.Shape.OLEFormat.Object.Font.Size = 8 ' taille texte
Target.Comment.Shape.TextFrame.Characters.Font.Color = RGB(255, 255, 255) ' vbYellow '  pour couleur différente du premier caractères = Characters(i, j - i + 1).
Target.Comment.Shape.TextFrame.HorizontalAlignment = xlCenter
Target.Comment.Shape.TextFrame.VerticalAlignment = xlCenter
cmt = Target.Address
End If
End Sub
 
Dernière édition:
Je suis ravi pour pour toi et pour lui que M. Boisgontier ait compris plus rapidement que d'autres le vrai problème que tu posais.
Merci à toi d'avoir partagé ta solution.

Tu parlais d'afficher un commentaire suite à une saisie et tu utilises SelectionChange... pas très logique.
Mais si ça te convient c'est parfait ainsi. 👍
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
154
Réponses
2
Affichages
530
Retour