Insertion Commentaire

Bonjour,

J'ai fait une macro pour insérer un commentaire.

voici le code

Sub InsertionComment()
 Dim MyCmt As String
 Dim LaCell As Range

 Set LaCell = ActiveCell
 MyCmt = InputBox("Inscrivez votre commentaire")
 On Error Resume Next

 With LaCell
 .AddComment
 With .Comment
 .Visible = True
 .Text Text:=MyCmt
 End With
 End With
 End Sub

Mais le souci est que le commentaire reste affiché et cela cache les autres cellules.

Alors comment faire.

Merci

Bonjour,

Excusez-moi pour cette question idiote.

je viens de trouver.

ActiveCell.Comment.Visible = False

Merci

Tu peux également remplacer .Visible = True dans ton code par false et ainsi éviter une ligne de code en plus pour rien.

Même si tu as toi-même résolu ton pb:

Sinon les gens regardent le post (Surtout qu'il y avait 0 réponses au final)