Commentaire à gauche

Bonjour, étant débutant sur excel, j'aimerai positionné mes commentaires à gauche de ma cellule pour pouvoir visualiser en même temps mon commentaire et mes cellules de droite.

Merci à vous de me guider sur la manip a suivre

bonjour,

Tu ne peux positionner ton commentaire que si tu l'affiches (clic droit), si tu le masques il apparaît en pop-up à son emplacement prédéfini.

A+

Bonjour,

Un "PETIT" site qui t'ouvrira les possibilités avec les commentaires de Mr BOISGONTIER

http://boisgontierjacques.free.fr/pages_site/commentaire.htm#AffichePosition

merci pour ces infos, mais ou dois je mettre les codes ????

Re,

Ah là , c'est une toute autre histoire.

Mais si tu fouilles bien dans le site en PJ, et que "tu retiens TOUT" je suis sur que tu n'auras plus besoin du forum

Bref, le code, tu le mets dans ta feuille où tu as tes commentaires, depuis le menu développeur. Ensuite tu modifies dans le code l'emplacement du commentaire

Exemple pour ce code qui devrait te convenir

Target.Comment.Shape.Top = Target.Top + 20 (pour l'emplacement haut/bas (modifier le +20)

Target.Comment.Shape.Left = Target.Left + 20 (pour l'emplacement gauche/droite (modifier le +20) teste avec -100 pour mettre à gauche

Dim m
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If m <> "" Then Range(m).Comment.Visible = False
    If Not Target.Comment Is Nothing Then
    Target.Comment.Visible = True
    Target.Comment.Shape.Top = Target.Top + 20
    Target.Comment.Shape.Left = Target.Left + 20
    Target.Comment.Shape.Height = 40
    Target.Comment.Shape.Width = 70
    m = Target.Address
  Else
   m = ""
  End If
End Sub

super, MERCIIIII , j'ai reussi a mettre mes commentaire à gauche quand je clic mais si je clic autre part, le commentaire ne s'efface pas. Es ce qu'il existe une solution ????

Re,

Clic droit sur la cellule

Masquer les commentaires

Merci, cette manip c'est ok pour moi, mais en fait je souhaitez quelque chose d'automatique car je visualise plein de commentaire sur mon tableur. Peux tu m'aider

Re...

Essaie comme ça :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
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 - 20
    Target.Comment.Shape.Left = Target.Left - 50
    Target.Comment.Shape.Height = 40
    Target.Comment.Shape.Width = 70
  End If
End Sub

...en tatonnant un peu sur les valeurs Top et Left

Attention aux valeurs négatives qui interdisent des commentaires en première colonne et dans les premières lignes...

A+

tu es un génie. MERCIIIIIIII, c'est super, dernière question, Est il possible que la taille du commentaire s'ajuste selon les informations dedans ??

Pas le temps de chercher maintenant, regarde chez JB il y a un paramètre d'ajustement automatique...

Sinon il faut que tu calcules le nombre de caractères de chaque commentaire set que tu multiplies par un coeficient moyen (à calculer)

On verra ce soir à la veillée...

A+

Bonjour,

A tester.

Cdlt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cmt As Comment
    For Each cmt In Me.Comments
        cmt.Visible = False
    Next cmt
    Set cmt = Target.Comment
    If Not cmt Is Nothing Then
        With cmt
            .Visible = True
            With .Shape
                .Top = cmt.Parent.Top
                .Left = cmt.Parent.Offset(0, -2).Left + 5
                .TextFrame.AutoSize = True
            End With
        End With
    End If
    Set cmt = Nothing
End Sub

merci beaucoup pour ce magnifique travail. cela me correspond parfaitement.

Bonjour

suite de la macro de M12

Dim m
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If m <> "" Then Range(m).Comment.Visible = False
    If Not Target.Comment Is Nothing Then
    Target.Comment.Visible = True
    Target.Comment.Shape.Top = Target.Top + 20
    Target.Comment.Shape.Left = Target.Left + 20
    Target.Comment.Shape.Height = 40
    Target.Comment.Shape.Width = 70
    m = Target.Address
  Else
   m = ""
  End If
End Sub

qui fonctionne bien

mais j'essais de l'appliquer que pour deux colonnes d'une feuil

mais que l'on puisse voir les aux autres commentaires normalement

genre: Then Range("E3:F128")

et je n'y arrive pas

c'est a cause du "m" je suppose

merci d'avance