Boite commentaire fixe !?

[WEIDER]

Bonjour,

Pourriez vous m'aider s'il vous plait.
Une histoire de placement de commentaire de cellule...
Tout est dit dans mon fichier joint.

Merci beaucoup à tous !

 

[BOISGONTIER]

Re : Boite commentaire fixe !?

Bonjour,

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

JB

 

[13GIBE59]

Re : Boite commentaire fixe !?

Bonjour Weider,

Sur le site à voir absolument de Boigontier, ici, tu trouveras dans le paragraphe Commentaires ce qui devrait te convenir...

 

[WEIDER]

Re : Boite commentaire fixe !?

Merci à vous deux !

Par contre n'étant pas trop top en VBA, ce code se mets bien sur la feuille lorsque l'on est en mode développeur ?
Que ce passe t'il si l'on mets 2 voir 3 commentaires sur la même feuille ?