Cette macro évènementielle active une cellule précise...pour l'exemple il s'agit de la cellule C3...ensuite le texte saisi s'insère dans le commentaire de la cellule...
partie à coller dans un module de feuille
Option Explicit
' Vériland Octobre 2003
' l'action de cette macro se déclenche grâce à cette macro évènementielle...
' ...au moment du clique de souris sur une cellule...
' attention...il faut que la cellule contienne déjà un commentaire
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Question As String
'précisément dans la cellule C3...
If ActiveCell.Address() = "$C$3" Then
Question = InputBox("Inscrivez votre commentaire", "MESSAGE")
' si je clique sur "Annuler" ou s'il n'y a aucun commentaire on quitte cette procédure...
If Question = "" Then Exit Sub
' par contre si la boite InputBox contient un message ou une valeur autre que ""
' après avoir cliqué sur , on continue la boucle dans la cellule active...
With ActiveCell
.Comment.Text Text:="Voici votre dernier message :" & Chr(10) & Chr(10) & Question
End With
End If
End Sub